Как можно нарисовать простые анимированные ривунки в QBasic?

Для рисования простых анимированных рисунков в QBasic можно использовать функции для управления графикой и перемещения объектов. dropcode.ru

Пример кода для анимации движения объекта: dropcode.ru

SCREEN 12  ' Устанавливаем графический режим                                                                           dropcode.ru                      DIM SHARED x AS INTEGER, y AS INTEGER  ' Задаем переменные для координат объекта                                                                           dropcode.ru                      x = 320  ' Устанавливаем начальные координаты по x                                                                           dropcode.ru                      y = 240  ' Устанавливаем начальные координаты по y                                                                           dropcode.ru                      DO   CLS  ' Очищаем экран                                                                           dropcode.ru                        CIRCLE (x, y), 20  ' Отображаем объект на новых координатах                                                                           dropcode.ru                        x = x + 1  ' Перемещаем объект                                                                           dropcode.ru                        y = y + 1  ' Проверяем, достигли ли мы границ экрана                                                                           dropcode.ru                        IF x > 640 THEN x = 0  IF y > 480 THEN y = 0  ' Задержка для создания анимации                                                                           dropcode.ru                        SLEEP 10  ' Цикл продолжается, пока не будет нажата любая клавиша                                                                           dropcode.ru                      LOOP UNTIL INKEY$ <> ”” 

Пример кода для анимации увеличения окружности: forum.hpc.name

SCREEN 12 x = 1 DO   ' Рисуем окружность с увеличивающимся радиусом   CIRCLE (100, 100), x, 15   ' Небольшая задержка для плавности анимации   t = TIMER WHILE TIMER < t + 0.05: WEND   ' Увеличиваем радиус   x = x + 1 LOOP UNTIL x > 100 OR INKEY$ <> ”” 

Для создания более сложных анимаций рекомендуется обратиться к видеоурокам на YouTube, например, «QBasic Tutorial 59 — Making A Drawing Animation». www.youtube.com