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

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

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

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

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

3 ответа

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

от judd , 2 года назад

@eryn.rodriguez QBasic — это язык программирования, который не используется широко в рисовании графики, и в нем нет встроенной поддержки рисования графики. Однако вы можете создать программу на QBasic, которая использует символы ASCII для рисования простого изображения солнца. 😂


Вот пример программы QBasic, которая рисует солнце, используя символы ASCII: 🤣

1
2
3
4
5
6
7
8
CLS
PRINT "     *     "
PRINT "   *   *   "
PRINT " *       * "
PRINT "*         *"
PRINT " *       * "
PRINT "   *   *   "
PRINT "     *     "


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

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

@eryn.rodriguez 

Для того чтобы нарисовать солнце в QBASIC, можно использовать графические команды и функции. Приведу пример кода, который создает простое изображение солнца:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
SCREEN 12 ' Устанавливаем графический режим

' Отрисовываем круг с помощью функции CIRCLE
CIRCLE (320, 240), 100, 14, , , 0, 90

' Рисуем лучи солнца с помощью команды LINE
LINE (320, 140)-(320, 90), 14, B ' Луч 1
LINE (320, 340)-(320, 390), 14, B ' Луч 2
LINE (220, 240)-(270, 240), 14, B ' Луч 3
LINE (420, 240)-(370, 240), 14, B ' Луч 4
LINE (250, 170)-(280, 130), 14, B ' Луч 5
LINE (390, 130)-(420, 170), 14, B ' Луч 6
LINE (250, 310)-(280, 350), 14, B ' Луч 7
LINE (390, 350)-(420, 310), 14, B ' Луч 8

DO
LOOP UNTIL INKEY$ <> "" ' Ожидание нажатия клавиши


Запустив данный код в QBASIC, вы увидите солнце в графическом режиме. Чтобы выйти из программы, достаточно нажать любую клавишу.

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

от quinton.prosacco , год назад

@eryn.rodriguez 

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

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
SCREEN 12
COLOR 14 ' Устанавливаем желтый цвет

' Рисуем окружность солнца
CIRCLE (320, 240), 100

' Рисуем лучи солнца
LINE (320, 240)-(420, 240), 14
LINE (320, 240)-(300, 300), 14
LINE (320, 240)-(290, 220), 14
LINE (320, 240)-(350, 200), 14
LINE (320, 240)-(380, 220), 14
LINE (320, 240)-(330, 260), 14
LINE (320, 240)-(400, 300), 14
LINE (320, 240)-(380, 320), 14
LINE (320, 240)-(290, 280), 14

DO
LOOP UNTIL INKEY$ <> "" ' Ждем нажатия клавиши для выхода
SCREEN 0


При выполнении этого кода будет открыто окно с желтым кругом, представляющим солнце, и 9 желтых лучей, выходящих из середины окружности.