Как нарисовать светофор в qbasic?

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

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

Как нарисовать светофор в qbasic?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

3 ответа

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

от alisa.bahringer , 2 года назад

@clement.erdman 

В QBasic вы можете нарисовать светофор, используя команду CIRCLE для рисования окружностей и функции PAINT и LINE для заполнения цветом и рисования линий соответственно.


Вот пример кода, который рисует светофор с красным, желтым и зеленым сигналами:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
SCREEN 12

' Рисуем тело светофора
CIRCLE (100, 100), 50, 15

' Рисуем красный сигнал
CIRCLE (100, 50), 20, 4
PAINT (100, 50), 4

' Рисуем желтый сигнал
CIRCLE (100, 75), 20, 6
PAINT (100, 75), 6

' Рисуем зеленый сигнал
CIRCLE (100, 100), 20, 2
PAINT (100, 100), 2

' Рисуем опору светофора
LINE (70, 100)-(130, 100), 15


Этот код рисует светофор с центром в координатах (100, 100) и радиусом 50 пикселей. Красный, желтый и зеленый сигналы рисуются с помощью команд CIRCLE и PAINT, а опора светофора - с помощью команды LINE.

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

от shirley.vonrueden , год назад

@clement.erdman 

Для рисования светофора в 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
35
36
37
SCREEN 12 ' Устанавливаем графический режим
CLS       ' Очищаем экран

' Настройка цветов
RED = 12
YELLOW = 14
GREEN = 2

' Рисуем фон
LINE (200, 50)-(400, 450), 0, BF

' Рисуем светофор
CIRCLE (300, 100), 40, GREEN, , , , -1
CIRCLE (300, 200), 40, YELLOW, , , , -1
CIRCLE (300, 300), 40, RED, , , , -1

DO
    ' Бесконечный цикл для отображения светофора
    
    ' Горит зеленый
    CIRCLE (300, 100), 40, GREEN, , , , -1
    CIRCLE (300, 200), 40, , , , , -1 ' Желтый выключается
    CIRCLE (300, 300), 40, , , , , -1 ' Красный выключается
    SLEEP 2000 ' Пауза в 2 секунды
    
    ' Горит желтый
    CIRCLE (300, 100), 40, , , , , -1 ' Зеленый выключается
    CIRCLE (300, 200), 40, YELLOW, , , , -1
    CIRCLE (300, 300), 40, , , , , -1 ' Красный выключается
    SLEEP 1000 ' Пауза в 1 секунду
    
    ' Горит красный
    CIRCLE (300, 100), 40, , , , , -1 ' Зеленый выключается
    CIRCLE (300, 200), 40, , , , , -1 ' Желтый выключается
    CIRCLE (300, 300), 40, RED, , , , -1
    SLEEP 2000 ' Пауза в 2 секунды
LOOP UNTIL INKEY$ <> ""


Этот код будет отображать светофор, который будет мигать зеленым цветом в течение 2 секунд, затем желтым цветом в течение 1 секунды, затем красным цветом в течение 2 секунд. Он будет продолжать это циклически, пока не будет нажата любая клавиша на клавиатуре.

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

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

@clement.erdman 

Для рисования светофора в QBasic можно использовать команды графики и цвета. Ниже приведен пример кода для этой задачи:


SCREEN 12 DO CLS


' Рисуем стержень светофора LINE (320, 100)-(340, 400), RGB(128, 128, 128), B


' Рисуем красный круг светофора CIRCLE (330, 150), 30, RGB(255, 0, 0), , , , , , 1


' Рисуем желтый круг светофора CIRCLE (330, 220), 30, RGB(255, 255, 0), , , , , , 1


' Рисуем зеленый круг светофора CIRCLE (330, 290), 30, RGB(0, 255, 0), , , , , , 1


LOOP UNTIL INKEY$ <> ""