Движущаяся фигура

@Painkiller13 · Регистрация: 13.04.2016

Author24 — интернет-сервис помощи студентам

Как сделать движущиюся фигуру в qbasic с помощью пустого цикла в цикле x ?

QBasic/QuickBASIC

SCREEN 12
FOR x = 1 TO 100
    CIRCLE (x, 100), 100, 2
    CIRCLE (x, 150), 101, 0
NEXT

@Pro_grammer · 13.04.2016, 20:01

Сообщение от Painkiller13

Как сделать движущиюся фигуру в qbasi

Иллюзия движения достигается приёмом - нарисовал фигуру ->задержка ->стёр фигуру -> Изменил координаты и повторил всё заново
Стирание это обычно нарисовать эту же фигуру цветом фона на том же месте.

Примерно это выглядит так

QBasic/QuickBASIC

SCREEN 12
FOR x = 1 TO 500
    CIRCLE (x, 100), 100, 3
    FOR i = 1 TO 1000000 ' Примитивная задержка перед стиранием
    NEXT i
    CIRCLE (x, 100), 100, 0
NEXT

@Painkiller13 · 13.04.2016, 20:10 **[ТС]**

Есть вариант сделать так чтобы он останавливался про нажатии какой-нибудь клавиши ?

@Sasha_Smirnov · 18.04.2016, 02:51

Есть.

@Painkiller13 0 / 0 / 0 Регистрация: 13.04.2016 Сообщений: 27
	13.04.2016, 20:10 [ТС]	3
	Есть вариант сделать так чтобы он останавливался про нажатии какой-нибудь клавиши ? 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	18.04.2016, 02:51	4
	Есть. 0