Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Паскаль / sidorov / Сидоров.DOC
Скачиваний:
30
Добавлен:
10.12.2013
Размер:
1.68 Mб
Скачать

1. 14. Модуль сrt

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 ) в системе координат

активного окна, экрана.