Cоздать анимацию движущегося предмета из угла в угол
Категория: Basic
2011-09-19 16:45:55
Вариант 1:
code: #basic
SCREEN 12 CLS x = 0 y = 0 dx = 1 dy = 1 DO LINE (x, y) - (x+8, y+6), 0, BF x = x + dx y = y + dy IF x >= 640 THEN dx = -1 ELSEIF x <= 0 THEN dx = 1 END IF IF y >= 480 THEN dy = -1 ELSEIF x <= 0 THEN dy = 1 END IF LINE (x, y) - (x+8, y+6), 15, BF FOR i = 1 TO 10000:NEXT LOOP WHILE INKEY$ = ""
автор: Vovan-VE
Вариант 2:
code: #basic
SCREEN 12 a=1 y=10 FOR x=10 TO 620 STEP a LINE (x,y)-STEP(10,10),12,bf y=y+0.75*a IF x>619 THEN SLEEP LINE (x,y)-STEP(10,10),0,bf NEXT
автор: кот Бегемот
Поделиться: