Как нарисовать машину в qbasic?
Как нарисовать машину в qbasic?
3 ответа
@aaron_armstrong
В QBasic можно использовать команду LINE для рисования линий и фигур. Например, чтобы нарисовать квадрат, можно использовать следующий код:
1 2 3 4 5 |
SCREEN 13 LINE (100,100)-(200,100),14 LINE (200,100)-(200,200),14 LINE (200,200)-(100,200),14 LINE (100,200)-(100,100),14 |
Чтобы нарисовать машину, можно использовать несколько линий для создания различных частей машины, таких как кузов, колеса и т.д. Вы также можете использовать различные цвета для разных частей машины.
Например, этот код рисует машину:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
SCREEN 13 ' Рисуем кузов машины LINE (100,100)-(150,50),3 LINE (150,50)-(200,100),3 ' Рисуем колеса CIRCLE (70,100),20,5 CIRCLE (230,100),20,5 ' Рисуем окна LINE (110,60)-(140,60),7 LINE (110,80)-(140,80),7 LINE (160,60)-(190,60),7 LINE (160,80)-(190,80),7 ' Рисуем двери LINE (145,100)-(155,70),2 LINE (155,70)-(165,100),2 ' Рисуем ручку двери LINE (148,70)-(152,70),14 LINE (152,70)-(152,75),14 LINE (148,75)-(152,75),14 ' Рисуем зеркала LINE (195 |
@aaron_armstrong
Вот пример простого кода на QBasic, который рисует машину:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
SCREEN 12 ' Отрисовка контура машины CLS LINE (100, 200)-(400, 200), 15 LINE (50, 200)-(100, 150), 15 LINE (100, 150)-(200, 100), 15 LINE (200, 100)-(300, 100), 15 LINE (300, 100)-(400, 150), 15 LINE (400, 150)-(450, 200), 15 LINE (350, 200)-(150, 200), 15 LINE (150, 200)-(100, 250), 15 LINE (100, 250)-(450, 250), 15 LINE (450, 250)-(400, 200), 15 LINE (350, 200)-(350, 250), 15 LINE (300, 200)-(300, 250), 15 LINE (250, 200)-(250, 250), 15 LINE (200, 200)-(200, 250), 15 ' Отрисовка колес CIRCLE (150, 275), 25, 0 CIRCLE (350, 275), 25, 0 DO ' Ожидание нажатия клавиши WHILE INKEY$ = "" WEND ' Выход из программы при нажатии ESC IF INKEY$ = CHR$(27) THEN END END IF LOOP |
Этот код отрисовывает машину с помощью набора линий. Первые несколько строк определяют размер экрана, а затем код рисует контур машины и колеса. После отрисовки машины программа ожидает нажатия клавиши. Если пользователь нажимает ESC, программа завершается, иначе ожидание продолжается.
@aaron_armstrong
Вот простой пример кода на QBasic для рисования машины:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
SCREEN 12 ' Рисуем кузов машины LINE (100, 200)-(300, 200), 14, BF ' Заливка кузова машины LINE (100, 200)-(300, 200), 0, B ' Контур кузова машины ' Рисуем колеса CIRCLE (150, 250), 30, 0 ' Левое переднее колесо CIRCLE (250, 250), 30, 0 ' Правое переднее колесо CIRCLE (150, 250), 10, 14 ' Заливка левого переднего колеса CIRCLE (250, 250), 10, 14 ' Заливка правого переднего колеса CIRCLE (150, 350), 30, 0 ' Левое заднее колесо CIRCLE (250, 350), 30, 0 ' Правое заднее колесо CIRCLE (150, 350), 10, 14 ' Заливка левого заднего колеса CIRCLE (250, 350), 10, 14 ' Заливка правого заднего колеса ' Рисуем окно LINE (175, 225)-(275, 225), 9 ' Верхняя граница окна LINE (175, 275)-(275, 275), 9 ' Нижняя граница окна LINE (175, 225)-(175, 275), 9 ' Левая граница окна LINE (275, 225)-(275, 275), 9 ' Правая граница окна DO LOOP UNTIL INKEY$ <> "" ' Цикл ожидания нажатия клавиши для выхода |
После запуска кода на экране появится рисунок машины с кузовом, колесами и окном.