Здравствуйте. Погода на улице не предрасполагает к лакокрасочным работам, поэтому решил занять себя программированием на языке Qbasic (попрошу без «ха-ха»). Язык простой, поэтому сразу приступим к делу. Книги с основными операторами Вы можете скачать и сами, благо в сети их предостаточно. А в этом посте я хотел бы привести пример простейшей программы, которая рисует на экране компьютера дом, дорогу и солнце. Размер экрана задает оператор screen 9, образуя поле 640х350. Хочу предупредить, что код весьма сырой, но дорабатывать его до мастерства мне лень. Вот собственно сам код программы, компилируйте на здоровье:
CLS
SCREEN 9
COLOR 0, 9
LINE (0, 200)-(640, 350), 2, BF
CIRCLE (130, 200), 90, 14, 0, 3.14
LINE (40, 200)-(220, 200), 14
PAINT (130, 190), 14
LINE (400, 170)-(520, 270), 3, BF
LINE (400, 250)-(520, 270), 8, BF
LINE (430, 190)-(490, 230), 15, BF
LINE (460, 190)-(460, 230), 0
LINE (460, 210)-(490, 210), 0
REM крыша
LINE (400, 170)-(460, 120), 4
LINE (520, 170)-(460, 120), 4
LINE (400, 170)-(520, 170), 4
REM стена
LINE (520, 170)-(620, 150), 4
LINE (520, 270)-(620, 250), 4
LINE (520, 250)-(620, 230), 4
LINE (620, 150)-(620, 250), 4
LINE (520, 249)-(520, 270), 4
REM крыша
LINE (460, 120)-(560, 100), 4
LINE (560, 100)-(620, 150), 4
REM рама окна
LINE (430, 190)-(490, 190), 0
LINE (430, 190)-(430, 230), 0
LINE (430, 230)-(490, 230), 0
LINE (490, 230)-(490, 190), 0
REM обвод лицевой дома
LINE (400, 170)-(400, 270), 7
LINE (400, 170)-(520, 170), 7
LINE (520, 170)-(520, 270), 7
LINE (400, 250)-(520, 250), 7
LINE (400, 270)-(520, 270), 7
REM лучи солнца
LINE (10, 160)-(40, 170), 14
LINE (20, 110)-(60, 140), 14
LINE (70, 80)-(90, 120), 14
LINE (130, 60)-(130, 110), 14
LINE (190, 80)-(170, 120), 14
LINE (240, 100)-(200, 140), 14
LINE (220, 170)-(260, 150), 14
REM дорога
LINE (280, 200)-(320, 200), 0
LINE (280, 200)-(200, 350), 0
LINE (200, 350)-(300, 350), 0
LINE (320, 200)-(300, 350), 0
PAINT (280, 340), 0
END
А вот набросок того, что должно получиться на выходе: