Информатика

Всё о сервере, форум!
Основы программирования
ИНФОРМАЦИОННО-РАЗВЛЕКАТЕЛЬНЫЙ ПОРТАЛ

ИНФОРМАТИКА: ЕГЭ, ТЕОРИЯ, ПРАКТИКА, ТЕСТЫ

QBasic
Создание движущихся изображений

Как заставить рисунок двигаться?
1. Рисуем объект цветом отличным от цвета фона.
2. Рисуем объект цветом фона.
3. Изменяем координаты.
4. Повторяем 1-3 столько раз сколько потребуется.
Пример 1: Движущийся круг.
REM ‘Движущийся круг
SCREEN 1
x = 1
y = 1
REM ‘цвет фона - 0(черный), цвет рисунка - 1
FOR i = 1 TO 150
CIRCLE (x, y), 2, 1                                               Рисуем объект цветом отличным от цвета рисунка.
REM FOR j = 1 TO 250000                                  задержка
NEXT j
CIRCLE (x, y), 2, 0                                                Рисуем объект цветом цветом фона
 
x = x + 2                                                                Изменяем координаты
y = y + 1
NEXT i
END
Оператор LOCATE - перемещает курсор на экране в указанную позицию.
- INKEY$ возвращает нулевую строку символов, если нет символа для
возврата.
- Для стандартных клавиш INKEY$ возвращает 1-байтовую строку символов,
содержащую считанный символ.
- Для расширенных клавиш INKEY$ возвращает 2-байтовую строку символов,
состоящую из символа нуля (ASCII 0) и скан-кода клавиатуры.


При копировании материала с сайта активная ссылка обязательна!
Сайт управляется SiNG cms © 2010-2015