Создание личной библиотеки программиста

Каждый опытный программист со временем накапливает определенное количество процедур и функций, которые использует как готовые блоки при разработке различных программ. Организуем из них библиотечный модуль Mybibl и откомпилируем его с размещением на диске результата (опция компиляции Build). После выполнения компиляции на диске создается файл Mybibl.tpu, доступный для использования без каких-либо дополнительных описаний. Этот файл можно подключать в любую программу следующим образом:

Uses Mybibl;

Программа в общем случае состоит из заставки, набора процедур, функций и глобального блока (функционирующего посредством меню).

Заставка является визитной карточкой программы. Она выводится на экран сразу после старта программы и содержит информацию о названии программы, ее назначении, авторе и т.д.

Меню – это перечисление возможностей системы, из которого пользователь выбирает нужную в текущий момент. Меню должно быть простым в работе и понятым для самого неподготовленного пользователя. Более или менее сложная система обычно имеет несколько меню. Среди них выделяется главное, наиболее общее меню. Каждый элемент главного меню может генерировать новое (вложенное) меню, являющееся второстепенным по отношению к главному. В свою очередь второстепенное меню может также активизировать подчиненное ему меню и т.д. Уровень вложения меню ограничивается только логической структурой решаемой задачи.

Виды меню

Простой запрос представляет собой наиболее несложный вид меню. Выбор режима меню осуществляется нажатием цифры выбранного режима меню.

Пример простого меню:

Program Simple_Menu;

Uses

Crt;

Const

K=4; {Количество режимов}

Nameregim:array[1..K] of String [26]=

('1 - ввод',

'2 - вывод',

'3 - обработка',

'4 - выход');

Var

i,j: Byte;

Procedure Zast;

Begin

{процедура заставка}

End;

Procedure Vvod;

Begin

{процедура ввода}

End;

Procedure Vivod;

Begin

{процедура вывода}

End;

Procedure Obrabotka;

Begin

{процедура обработки}

End;

Begin

Zast;

While True do

Begin

Clrscr;

GotoXY(24,4);

Write ('ГЛАВНОЕ МЕНЮ');

For j:=1 to 4 do

Begin

GotoXY(25,7+j);

Write (Nameregim[j]);

end;

GotoXY(20,15);

Write (‘Выберете режима и нажмите Enter’);

ReadLn(i);

Case i of

1: Vvod;

2: Vivod;

3: Obrabotka;

4: Exit

Else

Begin

GotoXY(20,17);

Write (‘Такого режима нет. Повторите!’);

end {else}

end {case}

end {while}

End.

Горизонтальное меню представляет собой строку из списка режимов, один из которых (обычно первый) выделен цветом. Выбор нужного пункту меню осуществляется нажатием клавиш →, ←, активизация режима – клавиша Enter.

ГОРИЗОНТАЛЬНОЕ МЕНЮ

Ввод Вывод Обработка Выход

Вертикальное меню – отличается от горизонтального расположением списка режимов.

ВЕРТИКАЛЬНОЕ МЕНЮ

Ввод

Вывод

Обработка

Выход

Модуль Mybibl, содержащий горизонтальное и вертикальное меню, процедуру формирования рамки и установки цветов фона и символов:

Unit MYBIBL;