Практическое занятие №8

Тема: Работа с экраном в текстовом режиме.

Необходимый материал:

Процедуры и функции модуля Crt:

1. TextMode (Mode : Word) – процедура, очищает экран, устанавливает текстовый режим, соответствующий параметру «mode».

Таблица 8

Пример: TextMode (CO80); - Активизация цветного текстового режима с экраном в 25 строк по 80 символов в строке.

По умолчанию устанавливает режим Mode = 2 (25 строк по 80 символов в строке):

(1.1) (1.80)

(25.1) (26.80)

2. TextBackGround (Color : Byte) – процедура. Устанавливает цвет фона. Здесь Color – выражение целого типа в диапазоне от 0 до 7.

3. TextColor (Color : Byte) – процедура. Устанавливает цвет выводимых символов. Здесь Color – выражение целого типа в диапазоне от 0 до 15.

4. Window (X1, Y1, X2, Y2 : Byte) – процедура. Определяет новое текстовое окно. Окно – область экрана, выполняющая те же функции, что и полный экран.

5. ClrScr – процедура. Очищает активное окно и устанавливает курсов в левый верхний угол.

6. ClrEol – процедура. Очищает строку активного окна от текущей позиции курсора до конца строки.

7. CoToXY(X,Y : Byte) – процедура. Устанавливает курсов в позицию с координатами X,Y.

8. WhereX : Integer – функция. Возвращает X-ю координату текущей позиции маркера.

9. WhereY : Integer – функция. Возвращает Y-ю координату позиции маркер.

10. KeyPressed : Boolean – функция. Возвращает TRUE? если была нажата любая клавиша клавиатуры и возвращает FALSE иначе.

11. ReadKey : Char – функция. Считывает код символа нажатой клавиши. Ниже дан пример использования функции для клавиши с кодом, хранящимся в одном байте (например, цифровые клавиши, клавиши алфавита):

Var Ch : Char;

Begin

Writeln(‘Переключите клавиатуру на латинский алфавит’);

Writeln(‘Нажмите клавишу <G>’); Ch:= ReadKey;

Writeln(‘Вы нажали клавишу :’, Ch, ‘ ее код:’, Ord(Ch));

Writeln(‘Переключите клавиатуру на русский алфавит’);

Writeln(‘Нажмите ту же клавишу’);

Writeln(‘Вы нажали клавишу : ’ , CH, ‘ ее код: ’ , Ord(Ch));

End.

Пример использования функции для клавиши с кодом, хранящимся в двух байтах (клавиши ,home>, <end>, функциональные клавиши <F1>, <F2> и др.);

Var Ch : Char;

Begin

Ch:=ReadKey:

If Ch:= #0 Then Begin Ch:= ReadKey;

If CH= #79 Then Write(‘Нажата клавиша <End>’);

End.

12. Delay(Time : Word) – процедура. Вызывает задержку выполнения программы на time миллисекунд (0.001 сек).

13. Sound(Hz : Word) – процедура. Включает внутренний звуковой генератор с частотой сигнала Hz Герц. Звук отключается процедурой NoSound.

14. NoSound – процедура. Отключает звуковой генератор.