Как нарисовать машину в qbasic?

Пользователь

от aaron_armstrong , в категории: Другие , 2 года назад

Как нарисовать машину в qbasic?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

3 ответа

Пользователь

от yasmine , год назад

@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


Пользователь

от francisco.friesen , 8 месяцев назад

@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, программа завершается, иначе ожидание продолжается.

Пользователь

от amaya_bahringer , 7 месяцев назад

@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$ <> "" ' Цикл ожидания нажатия клавиши для выхода


После запуска кода на экране появится рисунок машины с кузовом, колесами и окном.