Добавление данных в файл

Указание for append в операторе open подготавливает файл для вывода данных и смещает указатель на конец файла. Последую­щие операторы приписывают новую информацию к уже имею­щейся. В предложенной далее программе в файл данных об ав­томобилях добавляются сведения о двух новых поступлениях.

' Программа создания файла данных об автомобилях

CLS

INPUT " Введите имя файла"; F$

' Открытие файла

OPEN F$ FOR APPEND AS II

INPUT "Марка автомобиля? (Для окончания работы введите QWE.); М$

IF UCASE$(M$)="QWE" OR UCASE$(М$)="ЙЦУ" THEN 1

INPUT "Номер автомобиля?"; N$

INPUT "Цвет автомобиля?"; С$

INPUT "Год производства автомобиля?"; G$

INPUT "Продажная цена автомобиля?"; S$

WRITE #1, М$, N$, C$, G$, S$ LOOP

' Закрытие файла 1 : CLOSE #1 PRINT "Файл дополнен"'

Оператор графики

Включение графического режима производиться командой SCREEN 9. Графических режимов несколько, девятый режим обладает наибольшей разрешающей способностью. Графический режим включается только один раз.

В режиме SCREEN 9 экран представляет собой координатную сетку с началом в левом верхнем углу, вправо от которого увеличивается координата Х, а вниз координата Y. Максимальное значение Х на экране 640, а Y – 350.

Рис. Размеры и координаты экрана в

режиме SCREEN 9

Для изображения точки используется оператор PSET со следующим синтаксисом:

PSET (X, Y), C

где Х и Y- координаты точки на экране, а С – ее цвет. Если цвет не указан, то точка будет изображена последним установленным цветом (это касается и всех прочих графических примитивов).

Рассмотрим пример.

SCREEN 9

PSET (320, 175), 4

На черном экране в этом случае появиться красная точка в центре.

Для изображения отрезка прямой линии используйте оператор

LINE (X1, Y1) – (X2, Y2), C

где Х1, Y1 – координаты начала отрезка; Х2, Y2 – координаты конца отрезка; С – цвет.

Например, мы хотим изобразить отрезок синего цвета на желтом экране с координатами: 100, 300 – 600, 50. Программа будет выглядеть так:

SCREEN 9

COLOR 1, 14

LINE (100, 300) – (600, 50), 1

Для изображения окружности используется оператор CIRCLIE. Он имеет вид:

CIRCLE (X, Y), R, C

где X, Y – координаты центра, R – радиус (в экранных точках), С – цвет.

Например, оператор

CIRCLE (320, 175), 50, 2

изобразит зеленую окружность радиусом 50 в центре экрана.

Для изображения эллипса служит оператор

CIRCLE (X, Y), R, C,,, K

где X, Y – координаты центра эллипса, R – радиус той окружности, из которой этот эллипс получился, С – цвет, К – значение коэффициента сжатия.

Коэффициент сжатия К= R1/R2. Для эллипсов, вытянутых по горизонтали коэффициент сжатия находится в пределах от 0 до 1. Для эллипсов, вытянутых по вертикали коэффициент сжатия будет больше 1.

Оператор закраски имеет следующий синтаксис:

PAINT (X, Y), C1, C2

где Х, Y – координаты любой точки внутри закрашиваемого контура, С1 – цвет, которым закрашивается контур,С2 – цвет самого контура. Если эти цвета совпадают, то достаточно указать С1.

Правила закраски:

Контур должен быть замкнут.

Контур должен быть одноцветен. Если составляющие даже замкнутого контура разных цветов, то для компьютера эта ситуация аналогична разрыву. Будет закрашен весь экран.

Координаты точки закраски должны лежать внутри контура.

Рекомендуется закрашивать контур непосредственно после того, как

он нарисован.

Для расширения возможностей машинной графики Бейсика был дополнительно разработан специальный макроязык GML (Graphics Macro Language). Он позволяет строить довольно сложные изображения и быстро выводить их на экран. Каждая команда языка представляет собой латинскую букву, после которой следует один или два числовых параметра (как правило, целых числа). Команды

этого языка перечислены в таблице.

ТАБЛИЦА КОМАНДЫ ЯЗЫКА GML