Организация меню с использованием средств среды Turbo Pascal

Turbo Pascal предоставляет возможность организации меню с помощью встроенного стандартного модуля CRT.

Инициализация модуля CRT:

Program name;

Uses CRT, {через запятую перечисляются другие нужные в данной программе модули};

Type ……

……

var ……

……

begin

end.

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

В режиме текстового вывода используются следующие координаты экрана: левый верхний угол экрана имеет координаты 1,1; горизонтальная координата возрастает слева направо, вертикальная -сверху вниз. Если на экране определено окно, все координаты определяются относительно границ окна.

Для чтения клавиатуры используются две функции – KeyPressed и ReadKey. Функция KeyPressed определяет факт нажатия на любую клавишу и не приостанавливает дальнейшего исполнения программы.

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

Управления звуковым генератором строится по схеме: Sound – Delay – NoSound. Процедура Sound(n), (где n -параметр в Герцах type n:Word), включает звуковой генератор и заставляет его непрерывно генерировать звук нужного тона. Процедура Delay(n), (где n -параметр в миллисекундах type n:word), приостанавливает роботу программы на заданное число миллисекунд реального времени. Процедура NoSound отключает звуковой генератор.

Определение текстового окна на экране выполняется с помощью процедуры Window(x1,y1,x2,y2: byte), где x1,y1 –координаты левого верхнего угла, x2,y2 –правого нижнего угла.

Clrscr; - процедура без параметра, очищает текущее окно и придает ему цветовые параметры заданные прежде.

Определение цвета текстового окна на экране выполняется с помощью процедур:

Textcolor(код цвета), цвет символов,

Textbackground(код цвета), цвет фона.

	Чёрный
	Синий
	Зелёный
	Голубой
	Красный
	Фиолетовый
	Коричневый
	Тёмно-серый
	Светло-серый
	Ярко-голубой
	Ярко-зелёный
	Ярко-голубой
	Розовый
	Ярко-фиолетовый
	Жёлтый
	Белый