Управление клавиатурой

Управление экраном в текстовом режиме

Модуль С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

	Black,черный		DarkGray,темно-серый
	Blue, синий		LightBlue,ярко-синий
	Green, зеленый		LightGreen,ярко-зеленый
	Cyan, голубой		LightCyan,ярко-голубой
	Red,красный		LightRed,ярко-красный
	Magenta,фиолетовый		LightMagenta,ярко-фиолетовый
	Brown,коричневый		Yellow,желтый
	LightGray, ярко-серый		White,белый

Мерцание символов можно получить, также задавая: N:= N + 128;

В процедурах TextBackGround(N); и TextColor(N); вместо N можно использовать наименование цвета, например:

N:=1; TextColor(N); { либо } TextColor(Blue);

KeyPressed; - возвращает значение True (тип Boolean) - если была нажата любая клавиша (кроме Ctrl, Alt, NumLock и т. п.), иначе - False.

ReadKey; - возвращает символ нажатой клавиши (тип Char).

Repeat Writeln('Нажмите скорее любую клавишу') until KeyPressed;

Repeat Writeln('Нажмите клавишу "А"'); c:=ReadKey until c='А';

Для очистки буфера клавиатуры применяются операторы:

While KeyPressed Do c:=ReadKey;

Фрагмент 3.

Приведем пример программы, выводящей на экран в различных текстовых режимах надпись в виде ступеньки с заданным шагом "dx" по оси "х", в каждой строке "у", начиная с позиции (1, 1).

PROGRAM FAM;

Uses CRT;

var N: word; f, dx, x, y, i, j, xm, ym: byte;

Дата добавления: 2014-01-07