VrnMod

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » VrnMod » Болталка » QBasic


QBasic

Сообщений 1 страница 3 из 3

1

Здравствуйте. Погода на улице не предрасполагает к лакокрасочным работам, поэтому решил занять себя программированием на языке 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

А вот набросок того, что должно получиться на выходе:

0

2

а для чего оно нужно?

0

3

bad boy написал(а):

а для чего оно нужно?

Практическая часть – нулевая (почти), а вот для общего развития серого вещества в черепе - самое то :) . В принципе, бейсик весьма легкий язык для изучения, хотя и очень старый. Если хочешь научится писать неплохие приложения для собственных нужд – учи C++, а если хочешь занять часик – другой свободного времени – вполне подойдет и бейсик. Есть и графические библиотеки, и звуковой процессор и ещё куча всего. Могу попробовать написать простенькую игрушку на математику, если конечно интересно :smoke:

0


Вы здесь » VrnMod » Болталка » QBasic


Рейтинг форумов | Создать форум бесплатно