Модуль CRT. Константы. Переменные.
Модуль CRT содержит подпрограммы управления текстовым выводом на экран дисплея, звуковым генератором и чтения клавиатуры.
В режиме текстового вывода используются следующие координаты экрана: левый верхний угол экрана имеет координаты 1.1; горизонтальная координата возрастает слева направо, вертикальная – сверху вниз. Если на экране определено окно, все координаты определяются относительно границ окна. Исключением являются координаты процедуры Window установки границ окна, которые всегда задаются относительно границ экрана.
Для чтения клавиатуры используются две функции – KeyPressed и ReadKey. Функция KeyPressed определяет факт нажатия на любую клавишу и не приостанавливает дальнейшее исполнение программы.
Функция KeyPressed читает расширенный код нажатой клавиши. Если к моменту обращения к функции не была нажата ни одна клавиша, программа приостанавливает свою работу, ожидая действий пользователя.
Управление звуковым генератором строится по схеме Sound – Delay – NoSound. Процедура Sound включает звуковой генератор и заставляет его непрерывно генерировать звук нужного тона. Процедура Delay приостанавливает работу программы на заданное число миллисекунд реального времени. Процедура NtfSound отключает звуковой генератор.
Константы
Константы режима работы
| const | ||
| BW40 | = | 0; {Черно-белый, 40 символов, 25 строк} |
| BW80 | = | 2; {Черно-белый, 80 х 25} |
| Mono | = | 7; {Монохромный, 80 х 25} |
| С040 | = | 1; {Цветной, 40 х 25} |
| С080 | = | 3; {Цветной, 80 х 25} |
| Font8x8 | = | 256; {Для EGA/VGA режим 43 или 50 строк} |
| С40 | = | C040; {Для совместимости с версией 3.0} |
| С80 | = | C080; {Для совместимости с версией 3.0} |
Константы цветов
const
Black = 0; {Черный}
Blue = 1; {Синий}
Green = 2; {Зеленый}
Cyan = 3; {Голубой}
Red = 4; {Красный}
Magenta = 5; {Фиолетовый}
Brown = 6; {Коричневый}
LightGray = 7; {Светло-серый}
DarkGray = 8; {Темно-серый}
LightBlue = 9; {Ярко-синий}
LightGreen = 10; {Ярко-зеленый}
LightCyan = 11; {Ярко-голубой}
LightRed = 12; {Розовый}
LightMagenta= 13; {Малиновый}
Yellow = 14; {Желтый}
White = 15; {Белый}
Blink = 128; {Мерцание символа}
Переменные
var
CheckBreak:Boolean;{Разрешает/запрещает контроль CTRL + Break}
CheckEof:Boolean; {Разрешает/запрещает контроль CTRL + Z}
CheckSnow:Boolean {Разрешает/запрещает контроль "снега"}
Directvideo:Boolean; {Разрешает/запрещает прямой доступ к видеопамяти}
LastMode:Word; {Хранит последний текстовый режим}
TextAttr:Byte; {Хранит текущий байт атрибутов}
WindMin:Word; {Координаты левого верхнего угла текущего окна}.
WindMax:Word; {Координаты правого нижнего угла}