Как нарисовать светофор в qbasic?
Как нарисовать светофор в qbasic?
3 ответа
@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.
@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 секунд. Он будет продолжать это циклически, пока не будет нажата любая клавиша на клавиатуре.
@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$ <> ""