Новые информационные технологии. Часть 2. Программное обеспечение персонального компьютера / gl4

мерация строк у QBasic в общем случае не нужна, а вместо номера строки можно использовать символьную метку.

Если пустить такую программу командой RUN, то получим: X= 1.414214 i= 3

Эти результаты совпадают с ручным вычислением по описанному алгоритму. Поздравляем вас с первой работающей программой!

4.7.4. Циклы и коды ASCII в QBasic

Мы уже не раз упоминали коды ASCII. Настала пора познакомиться с ними более подробно, а заодно рассмотреть и более совершенную организацию циклов в QBasic.

Начнем с циклов. Уже первые версии языка Basic имели следующую конструкцию для создания циклов с заданным числом их повторения:

FOR I = Nначальное TO Nконечное Тело цикла

NEXT I

В этой конструкции управляющая переменная I меняется от начального значения Nначальное до конечного Nконечное с шагом, равным +1. При этом каждый раз выполняется тело цикла, расположенное между строкой с оператором FOR (для) и оператором выхода из цикла NEXT (следующий). Как только I становится равным N, тело цикла выполняется последний раз и происходит переход к следующей за этой конструкцией строке программы.

Теперь нам нетрудно разобраться с простой программой построения таблиц ASCII, представленной на рис. 4.36.

Эта простая программа имеет целый «букет» интересных особенностей. Так, видно, что оператор PRINT “Комментарий” выводит на экран дисплея текст комментария. Пустой оператор PRINT дает вывод пустой строки – иначе, перевод строки.

Далее в программе имеется подпрограмма вычисления в двойном цикле десятичного кода (I+J) и вывода его вместе со значением соответствующего символа - Conv:. Преобразование кода в символ осуществляет функция CHR$(I+J). При этом с помощью логических условий вывод осуществляется только для кодов, начиная с 32, коды с меньшими значениями являются управляющими и могут вызывать необычные эффекты, например, перевод строки, подачу звукового сигнала и т.д. Вызов подпрограммы осуществляется операторами

COSUB Conv.

Подпрограмма преобразования вызывается два раза для кодов от 0 до 127 и от 128 до 255. Это соответствует выводу основной и аль-

190

тернативной таблиц ASСII. Перед выводом каждой таблицы экран очищается оператором CLS.

Рис. 4.36. Программа построения таблиц ASCII в окне редактора программ интегрированной системы QBasic

Буквально несколько слов об интерфейсе QBasic, который детально изучается на практических занятиях. Это стандартный интерфейс в виде окна с полем редактирования программы и меню. В поле окна видны линейки прокрутки для просмотра больших программ, которые управляются мышью. Меню содержит ряд пунктов, активизация которых создает выпадающие меню (подменю). Среди них есть подменю Run, используемое для запуска введенной программы - командой Start. Она ведет к выводу на экран основной таблицы кодов и символов ASCII:

191

Вид первых 32 символов может быть разным на разных ПК, поскольку эти символы относятся к управляющим. Вывод их можно блокировать, задав С=32. По команде символьного ввода INPUT$(1) вывод останавливается до нажатия любой клавиши. После этого будет выведена альтернативная таблица (в деталях эта таблица может иметь различные виды в зависимости от применяемого ПК):

Первые версии языка Бейсик имели около двух десятков операторов и функций. Практически все они использованы в описанных выше простых программах. Современные версии Бейсика, например, тот же Qbasic, имеют свыше 200 операторов и функций и позволяют, хотя и с разной эффективностью, готовить любые программы: системные, для обработки текстов, для выполнения математических вычислений, для программирования игр и построения графиков и даже для создания анимационной графики. Достаточно полное описание

QBasic можно найти в книгах [5, 27], а по Visual Basic - в [28, 29].

4.7.5. Графические возможности QBasic

QBasic имеет минимум средств реализации цветной машинной графики. Это операторы задания типа экрана SCREEN, очистки экрана CLS, локализации вывода надписей LOCATE, построения и гашения точки на экране дисплея PSET и PRESET, построения отрезков прямых LINE, дуг, окружностей и эллипсов CIRCLE и др.

Для знакомства с их действием составим простейшую обучающую программу на QBasic:

SCREEN 9: CLS

PSET (5, 5), 15

LOCATE 1, 3: PRINT "PSET (5,5),15" PRESET (5, 35), 15

LOCATE 3, 3: PRINT "PRESET (5,35),15" LINE (250, 5)-(350, 30)

LOCATE 1, 23: PRINT "(250,5)"

192

LOCATE 3, 43: PRINT "(350,30)"

LOCATE 2, 44: PRINT "LINE (250,5)-(350,30)" LINE (10, 50)-(250, 100), , B

LOCATE 6, 4: PRINT "LINE (10,50)-(250,100),,B" LINE (280, 50)-(580, 100), 15, B, 30

LOCATE 6, 39: PRINT "LINE (280,50)-(580,100),15,B,30" LINE (10, 130)-(60, 160), 15, BF

LOCATE 11, 10: PRINT "LINE (10,130)-(60,160),15,BF" PSET (320, 120): LINE -(400, 180), , , 30

LOCATE 9, 42: PRINT "PSET (320,120)"

LOCATE 11, 47: PRINT "LINE -(400,180),,,30" CIRCLE (60, 240), 50

LOCATE 22, 1: PRINT "CIRCLE (60,240)" CIRCLE (200, 240), 50, 15, 0, 2

LOCATE 22, 17: PRINT "CIRCLE (200,240),50,15,0,2" CIRCLE (180, 260), 50, 15, -.1, -2

LOCATE 23, 17: PRINT "CIRCLE (180,260),50,15,-.1,-2" CIRCLE (350, 230), 30, , , , 3

LOCATE 17, 47: PRINT "CIRCLE (350,230),30,,,,3" CIRCLE (460, 275), 70, , -.2, 5, .2

LOCATE 22, 48: PRINT "CIRCLE (460,275),70,,-.2,5,.2" LOCATE 24, 12

PRINT "Применение операторов PSET, PRESET, LINE и CIRCLE"; F$ = INPUT$(1)

Эта программа широко использует оператор LOCATE m, n для вывода тестовой надписи в заданное место окна, начиная со знакоместа в строке m и столбце n. Программа составлена так, что она демонстрирует запись на Бейсике того или иного графического оператора и затем иллюстрирует результат его исполнения (рис. 4.37).

Рис. 4.37. Примеры применения графических операторов QBasic

193

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

`Декларация процедуры построения изображения автомобиля

DECLARE SUB DrawTruck ()

`Подготовка массива изображения автомобиля

SCREEN 1, 0 CALL DrawTruck DIM truck%(629)

GET (20, 21)-(119, 70), truck% CLS `Очистка экрана `Построение фонового рисунка

LINE (0, 0)-(319, 148), , B CIRCLE (0, 0), 20

LINE (14, 14)-(50, 50)

LINE (19, 3)-(70, 10)

LINE (3, 17)-(12, 65)

`Цикл перемещения изображения автомобиля

FOR n = 1 TO 210

PUT (n, 100), truck%, PSET LINE (0, 148)-(319, 148)

NEXT n

F$ = INPUT$(1) END

`Процедура построения изображения автомобиля

SUB DrawTruck

CIRCLE (105, 60), 10 PAINT (105, 60), 3 CIRCLE (35, 60), 10 PAINT (35, 60), 3

LINE (21, 21)-(101, 40), , BF

LINE (21, 40)-(119, 60), , BF END SUB

В данной программе объявлена процедура DrawTruck построения изображения автомобиля (сам текст процедуры представлен под программой). Построенный в нижнем левом углу экрана силуэт автомобиля с помощью оператора GET запоминается в целочисленном массиве truck%. После этого строится фоновый рисунок - прямоугольник и солнышко в левом верхнем углу экрана (рис. 4.38).

Для перемещения силуэта автомобиля используется принцип мультипликации - строится на некоторое время изображение автомобиля, затем оно стирается и снова строится чуть правее (рис. 4.38). Для этого в программе организован цикл таких построений FOR-

194

NEXT. В этом цикле с помощью оператора PUT выводится силуэт автомобиля в разных местах экрана.

Рис. 4.38. Конечный кадр перемещения автомобиля

Методические указания

Описание большинства программ этой главы не является исчерпывающе полным. По каждой из описанных программ опубликованы обширные справочники и руководства пользователя, по объему намного превосходящие данное учебное пособие. Тем не менее выше были даны сведения, вполне достаточные для начала работы с программами и их обычного (не профессионального) применения.

10 главных вопросов

1.Что такое электронная таблица и какими параметрами она характеризуется?

2.Что может делать табличный процессор Excel?

3.Как строятся графические диаграммы в Excel?

4.Что такое база данных и системы управления базами данных?

5.Какими возможностями обладает СУБД Access?

6.Как готовятся презентации в PowerPoint?

7.На каких принципах основан компьютерный перевод?

8.Что такое компьютерные вирусы и как с ними бороться?

9.Что вы знаете о языках программирования ПК?

10.Какими средствами обладает язык программирования QBasic?

195