Основные процедуры и функции модуля Crt

1. Работа с клавиатурой и звуком.

ReadKey — функция, возвращающая символ нажатой клавиши без вывода его на экран. Тип результата — Char. Аргумента у функции нет. Специальные клавиши на клавиатуре (функциональные F1 — F12, управления курсором, Alt, Ctrl и т. д.) генерируют расширенные коды. При нажатии такой клавиши функция ReadKey возвращает сначала нулевой, а затем — расширенный код клавиши.

Repeat.

Writeln ('Продолжаем?- Да/Нет (Д/Н)');

S := ReadKey;

Until (S='H') OR (S='н') ;

KeyPressed — функция без аргумента, возвращает значение True (истина), если клавиша нажата, и False (ложь) в противном случае. Символ, соответствующий нажатой клавише, остается в буфере клавиатуры. Функция не распознает клавиш перевода регистра (Shift, Alt, NumLock и т. д.).

WriteLn ('Работа окончена. Нажмите любую клавишу …');

Repeat Until KeyPressed;

Delay (задержка: word); — процедура, которая выполняет задержку на число миллисекунд, задаваемых параметром задержка.

Sound (частота: word); — процедура, которая включает внутренний излучатель звука, который будет издавать звуковой сигнал с частотой, заданной параметром частота.

NoSound выключает внутренний излучатель звука.

Внимание! Звуковой сигнал, включенный процедурой Sound, будет звучать до тех пор, пока его не выключить обращением к процедуре NoSound.

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

Procedure Zvuk (freq, long: word);

Begin.

Sound (freq);

Delay (long);

NoSound;

End; { Zvuk }.

2. Управление цветом Можно задавать и изменять цвет текста и фона с помощью следующих процедур:

TextBackGround (Color:Byte); — задает цвет фона.

TextColor (Color:Byte); — задает цвет текста.

Параметр Color (цвет) может задаваться выражением целого типа, которое должно принимать значения в диапазоне 0.15, или одной из определенных в модуле Crt констант цветов (название цвета на английском языке). Константы для фонового и основного цвета и их значения приведены ниже:

Цвет текста может быть любой, а цвет фона — из восьми первых.

Константа мерцания имеет имя Blink, а значение — 128.

TextMode (Mode:Integer); — процедура; задает указанный текстовый режим (mode).

3. Создание окон и позиционирование курсора.

Window (X1,Y1,X2,Y2:byte); — процедура, которая определяет на экране текстовое окно. Параметры (X1,Y1) представляют собой координаты верхнего левого угла окна, а параметры (X2,Y2) — нижнего правого.

Это окно не имеет визуально наблюдаемых границ. Минимальный размер текстового окна — один столбец на одну строку.

Если передаваемые координаты окажутся недопустимыми, то обращение к процедуре игнорируется. По умолчанию при запуске программы определяется окно (1,1,80,25), что соответствует всему экрану.

Пример.

Window (1,1,80,25);- окно во весь экран.

Window (1,24,80,24);- одна строка (24-ая) внизу экрана.

ClrScr — процедура; очищает экран (последнее открытое окно), и устанавливает курсор в левый верхний угол экрана. Обычно выполняется перед выводом данных на экран.

Очистка заключается в окрашивании экрана фоновым цветом.

TextBackGround (Blue); {Назначен синий цвет для фона }.

ClrScr; { Весь экран окрашивается в синий цвет }.

Window (1,1,60,20); { Назначено новое окно }.

TextBackGround (LightGray); { Цвет фона }.

ClrScr;{ Прямоугольная область экрана с координатами }.

{ (1,1,60,20) окрасится в светлосерый цвет }.

GoToXY (X, Y: Byte); — процедура, которая устанавливает курсор внутри текущего окна в позиции с координатами (X, Y); X задает столбец, а Y — строку. Координаты крайних точек экрана приведены на рис. 8.1.

Рис. 7.1. Координаты углов экрана в текстовом режиме

Имеются две функции, позволяющие узнать текущее положение курсора на экране.

WhereX — возвращает координату X для текущей позиции курсора в текущем окне. Тип результа: byte. Аргументов — нет.

WhereY — возвращает координату Y для текущей позиции курсора в текущем окне. Тип результа: byte. Аргументов — нет.