Создать анимацию движущегося предмета из угла в угол — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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$ = ""

Следующий вариант

1
2
3
4
5
6
7
8
9
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

Похожие записи/страницы: