Библиотека CRT позволяет менять цвета и яркость экрана, производить его очистку, управлять звуковым генератором компьютера.
Подключение модуля CRT производится директивой USES CRT, которая указывается в разделе описаний. CRT - аббревиатура, означающая "Электронно-лучевая трубка".
Таблица настройки цветов в модуле CRT Turbo Pascal
Константа
| Число
| Цвет
| Процедуры
|
Black
|
| Черный
| TextColor, TextBackGround
|
Blue
|
| Синий
| TextColor, TextBackGround
|
Green
|
| Зеленый
| TextColor, TextBackGround
|
Cyan
|
| Голубой
| TextColor, TextBackGround
|
Red
|
| Красный
| TextColor, TextBackGround
|
Magenta
|
| Фиолетовый
| TextColor, TextBackGround
|
Brown
|
| Коричневый
| TextColor, TextBackGround
|
LightGray
|
| Ярко-серый
| TextColor, TextBackGround
|
DarkGray
|
| Темно-серый
| TextColor
|
LightBlue
|
| Ярко-синий
| TextColor
|
LightGreen
|
| Ярко-зеленый
| TextColor
|
LightCyan
|
| Ярко-голубой
| TextColor
|
LightRed
|
| Ярко-красный
| TextColor
|
LightMagenta
|
| Ярко-фиолетовый
| TextColor
|
Yellow
|
| Желтый
| TextColor
|
White
|
| Белый
| TextColor
|
Blink
|
| Мерцание
| TextColor (как слогаемое)
|
Основные директивы модуля CRT
Uses CRT - подключение модуля CRT.
TextColor - устанавливает цвет символов.
TextBackGround - устанавливает цвет фона (только 8 неярких цветов).
HighVideo - устанавливает включение яркости.
LowVideo - устанавливает выбор низкой яркости.
NormVideo - восстановление того цветового оформления, которое было
на момент начала работы программы.
ClrScr - производит очистку экрана.
ReadKey - обеспечивает задержку изображения и выход из программы при
нажатии любой клавиши, например Esc, Enter, Пробел.
Sound(1000) - включение звукового сигнала частотой 1000 Гц.
Sound(1500) - включение звукового сигнала частотой 1500 Гц.
Delay(1000) - установка (задержка) звучания на время 1 с (1000 мс).
Delay(2000) - установка (задержка) звучания на время 2 с.
NoSound - отключение звукового сигнала.
Window(X1, Y1, X2, Y2 : Byte) - определяет текстовое окно на экране. X1, Y1 - координаты левого верхнего угла, Х2, Y2 - правого нижнего угла.
Пример подключения модуля CRT:
USES CRT;
BEGIN
TextColor(14); {Задаёт желтые символы текста}
TextBackGround(5); {Задаёт фиолетовый фон}
HighVideo; {Устанавливает включение яркости}
ClrScr; {Очищает экран}
Пример: TextColor(14+128); {Задаёт мерцание символов желтого цвета}