11. Организация меню с использованием средств среды 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(код цвета), цвет фона.

0	Чёрный
1	Синий
2	Зелёный
3	Голубой
4	Красный
5	Фиолетовый
6	Коричневый
7	Тёмно-серый
8	Светло-серый
9	Ярко-голубой
10	Ярко-зелёный
11	Ярко-голубой
12	Розовый
13	Ярко-фиолетовый
14	Жёлтый
15	Белый

Лабораторная работа №17. Составления меню.

Цель работы:

1. Закрепить полученные теоретические знания и практические навыки.

2. Изучить стандартный модуль TurboPascal CRT.

3. Познакомится с работой с окнами.

4. Освоить некоторые методы сортировки записей.

Постановка задачи:

1. Написать программу, которая формирует меню, состоящее из 9 пунктов

1. Открыть.

2. Создать.

3. Поиск.

4. Добавить.

5. Удалить.

6. Корректировка.

7. Просмотр.

8. Сортировка.

9. Выход.

Каждый пункт должен быть оформлен в виде отдельной процедуры.

2. В каждой процедуре должна быть проверка существования файла.

3. Программа должна работать с данными, приведёнными в конкретном варианте.

Содержание отчёта:

1. Постановка задачи для конкретного варианта.

2. Распечатать исходные данные.

3. Текст программы.

4. Распечатка результатов работы программы после выполнения пунктов меню 4,5,6 и 8.