Модуль CRT

В модуле сосредоточены процедуры и функции, обеспечивающие управление текстовым режимом работы программы. С помощью входящих в модуль подпрограмм можно перемещать курсор в произвольную позицию экрана, менять цвет выводимых символов и окружающего их фона, создавать окна, управлять звуком.

В режиме текстового вывода используются следующие координаты экрана: левый верхний угол имеет координаты 1,1; горизонтальная координата возрастает слева направо, вертикальная – сверху вниз. Если на экране определено окно, все координаты определяются относительно границ окна. Координаты самого окна задаются относительно границ экрана. Для чтения клавиатуры используются две функции: KeyPressed и ReadKey. Первая определяет сам факт нажатия на любую клавишу и не приостанавливает дальнейшее исполнение программы. Вторая считывает расширенный код нажатой клавиши, и если к моменту обращения функции не была нажата ни одна клавиша, программа приостанавливает свою работу, ожидая действий пользователя.

Функция WhereX:Byte возвращает горизонтальную координату текущей позиции курсора относительно текущего окна.

Функция WhereУ:Byte возвращает вертикальную координату текущей позиции курсора относительно текущего окна.

Процедура ClrScr очищает окно (экран) заданным цветом и помещает курсор в верхний левый угол.

Процедура TextBackGround (color:byte) устанавливает цвет фона.

Процедура TextColor (color:byte) устанавливает цвет символов.

Процедура Window (X1,Y1,X2,Y2: Byte) определяет текстовое окно на экране, где X1,Y1-координаты левого верхнего угла, X2,Y2-координаты правого нижнего угла.

Для задания прямоугольной закрашенной области на экране, обычно выбирают цвет фона, далее определяют окно (Window) и производят очистку экрана (ClrScr).

Управление звуковым генератором строится по схеме Sound-Delay-NoSound. Процедура Sound включает звуковой генератор и заставляет его непрерывно генерировать звук нужного тона. Процедура Delay приостанавливает работу программы на заданное число миллисекунд. Процедура NoSound отключает звуковой генератор.