Стандартные модули
Модуль сrt
Управление экраном в текстовом режиме
Uses CRT;
Табл. 1
|
Наименование процедуры |
Параметры процедуры
|
Результат выполнения процедуры |
|
TextMode(N); N=0 |
N - тип Word (40x25)-CGA- ч. б. |
Задание текстового режима работы монитора. |
|
N=1 |
(40x25) -CGA, |
Экран очищается, курсор устанавливается в позицию 1, 1. Цвета исходные: белые символы на черном экране Наибольшие значения координат Хm:= Lo(WindMax)+1; Ym:= Hi(WindMax)+1; |
|
N=2 |
(80x25) -EGA, VGA, | |
|
N=3 |
(80x25) цветной | |
|
N=N+256 |
(80x43)-EGA цветной | |
|
Ym |
(80x50)-VGA цветной | |
|
N=7 |
(80x25)-монохромный; (80 колонок х 25 строк ); | |
|
Window(x1, y1, x2, y2); |
x1, y1, x2, y2 - тип Byte 1 <= x1 < x2 <= Xm, 1 <= y1 < y2 <= Ym в системе координат экрана. |
Задание окна на экране. Курсор устанавливается в позицию (1, 1) в системе координат окна. Превышение координат экрана игнорируется. |
|
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:= N + 128 вывод мерцающих символов - |
Назначение цвета символов. При N>15, N:= N mod 16, |
|
GotoXY(x, y); |
x, y - тип Byte |
Установка курсора в позицию ( x, y ) в системе координат активного окна, экрана. |
|
InsLine; |
|
Вставка пустой строки. |
|
DelLine; |
|
Удаление строки в позиции курсора. |
|
ClrEol; |
|
Стирание символов от позиции курсора до конца строки. |
Процедуры управления яркостью символов:
повышенная (HighVideo;),
пониженная (LowVideo;)
нормальная (NormVideo;)
Функции, возвращающие номер текущего столбца (WhereX;) и строки (WhereY;), типа - Byte.
В процедурах TextBackGround(N); и TextColor(N); параметр N назначает цвета:
Табл. 2
|
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 + 128;
В процедурах TextBackGround(N); и TextColor(N); вместо N можно использовать наименование цвета, например:
N:=1; TextColor(N); { либо } TextColor(Blue);
