Глобальная константа color.
Помимо всего прочего существует команда color X. Она предназначена для задания текущего цвета. Чтобы было понятнее, приведу пример: Screen 7 Как видите, при рисовании линии я теперь могу не указывать цвет. Команда color назначает «цвет по-умолчанию», т.е. тот, которым будут рисоваться объекты, у которых цвет вообще не указан. Как следствие, надпись «Для продолжения нажмите любую клавишу», возникающая после завершения работы программы, тоже окрашивается в назначенный цвет. По ходу выполнения программы можно менять «цвет по-умолчанию», т.е. использовать color X несколько раз. Полезная графика. Как я уже говорил, полезность графических возможностей Qbasic весьма сомнительна. Единственная польза может быть при использовании Qbasic для построения графиков. Попробуем сделать что-нибудь интересное: SCREEN 9 LINE (210, 10)-(210, 210) LINE (50, 110)-(370, 110) FOR x = -200 TO 200 STEP 0.1 Сначала мы устанавливаем разрешение № 9 (высокое, чтобы было красиво) и цвет по-умолчанию – темно-серый (8). После этого чертим координатную плоскость – второй блок отвечает за вертикальную линию с черточками, а третьй – за горизонтальную. В последнем блоке мы должны начертить сам график. Для этого делаем кучу маленьким кружков радиусом 0.1 и цветом 6. Будем всего строить 1010 кружков (-50, -49.9,... -49... -1, -0.9,... 0,... 1,... 49, 49.1,... 50). За Х будем брать указанные значения. Так как кружки будут находиться очень близко друг к другу, то будет создаваться впечатление целого контура. Обратите внимание, что у нас на экране чем точка выше, тем она имеет меньшую координату. На бумаге ось OY направлена вверх, поэтому результат вычисления Х мы должны умножить на -1. Центр нашей координатной плоскости находится в точке 210,110, именно поэтому мы добавляем соответствующие значения к координатам наших кружков в предпоследней строчке. Саму функцию надо писать в скобках, где в примере написан только Х. Неясным для меня остается вот что: по идее, при построении гиперболы (500 / Х, к примеру), Qbasic должен ругануться на «Деление на 0», т.к. оно действительно происходит и человек с математическим складом ума без труда это заметит. Однако этого не происходит, если не менять шаг. Даже если сообщение возникает, достаточно просто нажать Запуск (Alt, стрелка справо и т.п.) и Перезапустить. Все приходит в норму. Странно, и каков же результат выражения «500 / 0»? J. Как я всегда говорю на уроках алгебры, «делить на ноль можно, просто вы этого не умеете». Юмор, однако. Не гарантирую, что приведенная программа будет у вас нормально работать, я её привел просто для примера того, что вообще можно сделать, если использовать графику в Qbasic с умом. Мои программки. Хочу привести небольшую коллекцию того, чем я занимался раньше. SCREEN 7 Не совсем красиво, зато работает. Вот ещё пример: SCREEN 7 Сейчас я сам удивляюсь, как я мог рисовать такое, но тогда, три года назад, мне это казалось необычайно круто J. Засим прощаюсь, дорогие читатели. Согласно замечаниям и дополнениям посетителей сайта буду вносить изменения в самоучитель. Авторское право на все опечатки принадлежит мне. Буду рад по этому поводу услышать замечания. Если будут вопросы или предложения – всегда рад услышать их в моем форуме. Адрес сайта преждний – http://sysadmin.3dn.ru/. Всего доброго!
|
