Тема 30: Використання модуля CRT. Текстове виведення на екран. Програмування звукового генератора

Установка текстового режиму.

Процедура TextMode (Mode:word) установлює текстовий режим виведення інформації. Параметр Mode задається ім'ям константи чи номером режиму
(табл. 30.1):

Таблиця 30.1. Текстові режими виведення інформації.

Ім'я константи	Номер режиму	Екран	Монітор
bw40 co40 bw80 co80 mono font8x8		40x25 40x25 80x25 80x25 80x25 80/40x43 80/40x50	Ч/б, CGA, EGA Кольор., CGA, EGA Ч/б, CGA, EGA Кольор., CGA, EGA MDA, Hereales Кольор., EGA Кольор., VGA

Константа Font8x8 самостійно не застосовується і повинна додаватися до інших констант, наприклад:

TextMode(co80+font8x8); - установлюється режим со80, але кількість рядків не 25, а 43 чи 50.

Установка кольору та фону.

Процедура TextColor установлює колір символів. Колір задається назвою чи номером (табл. 30.2).

Таблиця 30.2. Номери та назви кольорів

Номер та назва кольору	Колір	Номер та назва кольору	Колір
0(Black) 1(Blue) 2(Green) 3(Cyan) 4(Red) 5(Magenta) 6(Brown) 7(LightGray)	-чорний -синій -зелений -блакитний -червоний -фіолетовий -коричневий -сірий	8(DarkGray) 9(LightBlue) 10(LightGreen) 11(LightCyan) 12(LightRed) 13(LightMagenta) 14(Yellow) 15(White) 128(Blink)	-темно-сірий -світло-сірий -світло-зелений -світло-блакитний -світло-червоний -світло-фіолетовий -жовтий -білий -мерехтіння

Мерехтіння задається додаванням до кольору константи Blink:

TextColor(Blue+Blink);

Змінна TextAttr використовується для керування кольором символів, фону, режимом мерехтіння і застосовується за формулою:

TextAttr := колір _символу + 16*колір_фону [ + мерехтіння];

Колір символу = 0...15; колір фону = 0..7; мерехтіння = 128.

Змінна має тип byte, і біти в байті несуть наступну інформацію:

0 - синій компонент кольору символів;

1 - зелений компонент кольору символів;

2 - червоний компонент кольору символів;

3 - яскравість символів(1 - є, 0 - немає);

4 - синій компонент кольору фону;

5 - зелений компонент кольору фону;

6 - червоний компонент кольору фону;

7 - мерехтіння(1- є, 0 - немає).

Процедура TextBackGround (Color byte) установлює колір фону color=0..7.

Керування рядками.

Процедура ClrScr очищає екран чи поточне вікно і поміщає курсор у лівий верхній кут.

Процедура ClrEoL стирає всі символи в рядку, починаючи з поточної позиції курсору до кінця рядка.

Процедура DelLine видаляє рядок, у якому розташований курсор, при цьому нижчестоящі рядки переміщаються нагору на одну позицію.

Установка яскравості символів.

Процедура HighVideo установлює режим максимальної яскравості.

Процедура LowVideo скасовує максимальну яскравість і встановлює нормальний режим яскравості.

Процедура NormVideo відновлює той режим (колір символів, фон, мерехтіння), що був напочатку роботи програми.

Керування курсором.

Процедура GotoXY(x, y:byte) встановлює курсор у позицію X (стовпець) і Y (рядок) щодо поточного вікна.

Функції WhereX:byte і WhereY:byte визначає координати Х та Y місця розташування курсору.

Текстове вікно.

Процедура Window (x1,y1,x2,y2:byte) формує вікно і задається координатами x1, y1 - лівим верхнім і x2, y2 - правим нижнім кутом вікна. Після виконання Window вікно стає поточним.

Керування звуком.

Процедура Sound (Hz : word) включає динамік і генерує звук з частотою Hz.

Процедура NoSound скасовує Sound. Ця процедура обов'язково повинна бути після виконання процедури Sound, інакше динамік буде звучати і після виконання програми.

Процедура Delay (t:Word) виконує затримку часу t у мілісекундах (1000млск. = 1сек.).

Приклади програм.

{Використання процедур TextMode, TextColor, Window, TextBackGround, GotoXY, ClrScr, функції Delay}

usescrt;

vari:byte;