1. 14. 1. Управление экраном в текстовом режиме
Модуль CRT служит для управления экраном
в текстовом режиме, а также для управления
клавиатурой и звуковыми сигналами.
Модуль содержит библиотеку процедур (подпрограмм)
и функций, которые
выполняются при их вызове.
Модуль подключается в начале раздела
описания основной программы оператором Uses
CRT;
Наименование
Параметры процедуры
Результат выполнения
процедуры
процедуры
TextMode(N);
N
-
тип Word
Задание
текстового режима
N=0
(40x25)-CGA- ч.
б.
работы
монитора.
1
Xm x
N=1
(40x25) -CGA,
Экран очищается, курсор
1 N=2 (80x25)
-EGA,
VGA,
устанавливается в позицию 1, 1.
N=3
(80x25)
цветной
Цвета -
исходные: белые
N=N+256 (80x43)-EGA
цветной символы
на черном экране
Ym (80x50)-VGA цветной Наибольшие
значения координат
N=7
(80x25)-монохромный;
Хm:= Lo(WindMax)+1;
y
( 80 колонок х 25 строк );
Ym:= Hi(WindMax)+1;
Window(x1, y1, x2, y2); Задание окна на экране.
x1 x2
x1, y1, x2, y2 - тип
Byte. Курсор
устанавливается в пози-
y1
цию (1, 1) в системе координат
1 <= x1 < x2 <= Xm
окна.
y2
1 <= y1 < y2
<= Ym Превышение
координат экрана
в
системе координат экрана.
игнорируется.
TextBackGround(N);
N
-
тип Byte
Назначение
цвета фона.
0
<=N<= 7
При N>7
N:= N mod 8
Clrscr;
Использование
процедуры
Очистка активного
окна, экрана
после TextBackGround(N);
курсор устанавливается в пози-
закрашивает активное окно.
цию (1, 1).
Закрашивание окна.
TextColor(N);
N
-
тип Byte
Назначение
цвета символов.
0 <=N<= 15
При N>15, N:= N
mod 16,
а также
при N:= N + 128 -
вывод мерцающих символов
GotoXY(x, y); x,
y -
тип Byte
Установка
курсора в позицию
( x, y )
в системе координат
активного окна, экрана.
InsLine;
Вставка пустой строки.
DelLine;
Удаление строки в позиции
курсора.
ClrEol;
Стирание символов
от позиции курсора до конца строки.
Кроме перечисленных,
отметим процедуры
управления яркостью символов: повышенная
( HighVideo; ), пониженная
( LowVideo; ) и нормальная
( NormVideo; ) яркость,
а также функции, возвращающие номер текущего
столбца ( WhereX; ) и номер текущей строки ( WhereY; ), типа - Byte.
В процедурах TextBackGround(N);
и TextColor(N);
параметр N назначает цвета:
N цвета
символов и экрана N цвета
символов
0
Black,
черный. 8
DarkGray,
темно-серый.
1
Blue, синий. 9 LightBlue,
ярко-синий.
2
Green, зеленый.
10 LightGreen,
ярко-зеленый.
3
Cyan, голубой.
11 LightCyan,
ярко-голубой.
4
Red, красный.
12 LightRed,
ярко-красный.
5
Magenta, фиолетовый.
13 LightMagenta, ярко-фиолетовый.
6 Brown, коричневый. 14 Yellow,
желтый.
7 LightGray, ярко-серый.
15 White,
белый.
При превышении допустимых пределов
параметра N происходит
преобразование N, при
этом символы выводятся с мерцанием.
Мерцание символов можно получить,
также задавая: N:=
N + 128;
В процедурах TextBackGround(N);
и
TextColor(N); можно применять параметр N,
либо наименование цвета,
например:
N:=1;
TextColor(N); { либо } TextColor(Blue);
