Переменные

CheckBreak: Boolean;	Реакция на Ctrl-Break
CheckEOF: Boolean;	Реакция на Ctrl-Z - end of file
DirectVideo: Boolean;	Разрешение/запрещение прямой работы с видеопамятью
CheckSnow: Boolean;	Реакция на "снег" монитора
LastMode: Word;	Хранение последнего текстового режима
TextAttr: Byte;	Текущий текстовый атрибут
WindMin: Word;	Координаты <X,Y> верхнего левого угла текущего окна
WindMax: Word;	Координаты <X,Y> нижнего правого угла текущего окна

Процедуры и функции

• function KeyPressed: Boolean;

возвращает значение True, если на клавиатуре была нажата любая клавиша.

• function ReadKey: Char;

читает символ с клавиатуры без эхо повтора и приостанавливает исполнение программы до нажатия на любую клавишу, кроме Shift, Ctrl, Alt, CapsLock, NumLock.

• procedure TextMode(Mode: Integer);

устанавливает нужный текстовый режим.

• procedure Window(X1,Y1,X2,Y2: Byte);

открывает текстовое окно на экране с абсолютными координатами <X1,Y2>, <X2,Y2>.

• procedure GotoXY(X,Y: Byte);

перемещает курсор в нужное место <X,Y> активного окна.

• function WhereX: Byte;

возвращает горизонтальную координату X текущего положения курсора в активном окне.

• function WhereY: Byte;

то же для вертикальной координаты Y.

• procedure ClrScr;

очищает окно и помещает курсор в левый верхний угол <1,1>.

• procedure ClrEol;

удаляет все символы от текущей позиции курсора до конца строки без перемещения курсора.

• procedure InsLine;

вставляет пустую строку в позицию курсора.

• procedure DelLine;

удаляет строку, на которой находится курсор, и перемещает все строки, расположенные ниже нее, на строку вверх.

• procedure TextColor(Color: Byte);

устанавливает цвет символов.

• procedure TextBackground(Color: Byte);

устанавливает цвет фона.

• procedure LowVideo, procedure HighVideo и procedure NormVideo;

устанавливает низкую, высокую и нормальную яркость символов.

• procedure Delay(MS: Word);

приостанавливает работу программы на указанное число миллисекунд MS.

• procedure Sound(Hz: Word) и procedure NoSound;

включает звуковой генератор с указанной звуковой частотой Hz и выключает звуковой генератор.

4. Модуль Graph. Графический режим

Графический режим ПК существенно отличается от текстового как по принципам функционирования, так и по возможностям. Графика применяется практически во всех серьезных программных разработках, так как позволяет увидеть результаты расчетов в виде чертежей, графиков, иллюстраций в движении. Фирмой Borland разработана библиотека графических функций (Модуль Graph.tpu) как приложение к Turbo-пакетам фирмы Borland и графические драйверы - файлы *.bgi (Borland Graphics Interface ), обеспечивающие взаимодействие программ с графическими устройствами.

1. Подключение графической библиотеки производится оператором:

Uses Graph;

2. Переключение из текстового режима в графический (инициализация) осуществляется процедурой:

Procedure InitGraph(Gd, Gm, 'way');

где Gd - имя графического драйвера (параметр-переменная),

Gm - номер графического режима монитора (параметр-переменная),

'way' - путь к файлам с графическими драйверами (*. bgi), например, C:\TP\BGI.

Первые два параметра должны иметь целый тип, третий параметр строковый.

В графическом режиме изображение формируется из точек (пикселов) разных цветов. Количество точек на экране и число допустимых цветов можно задавать выбором подключаемого драйвера и номером графического режима. Вариации графических режимов весьма разнообразны, особенно для качественных мониторов. Например, адаптер IBM 8514 / A может обеспечить разрешение 1024 х768 точек и 256 цветов.

Приведем таблицу графических возможностей для мониторов EGA, VGA.

Монитор драйвер режим Число точек Число Число видео-

"Gd" "Gm" на экране цветов страниц

EGA EGA 0 640 x 200 16 4

EGA 1 640 x 350 16 2

VGA VGA 0 640 x 200 16 4

VGA 1 640 x 350 16 2

VGA 2 640 x 480 16 1

Обычно драйверы подключаются в режиме автоопределения используемого монитора ПК. Для этого перед инициализацией графического режима задается Gd:= Detect; или Gd:= 0;. В этом случае по умолчанию устанавливается режим с наибольшим числом точек на экране, а значение параметра "Gm" игнорируется. Номер наибольшего режима для текущего драйвера возвращает функция Function GetMaxMode:Integer;.

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

Function GetMaxX: Integer; - по оси "Х";

Function GetMaxY: Integer; - по оси "Y".

Начало координат (X= 0, Y= 0) расположено в левом верхнем углу экрана. Ось Х направлена слева направо, ось Y - сверху вниз (Рис.).

3. Для возврата из графического режима в текстовый можно использовать процедуру Procedure CloseGraph.