Виды меню

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

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

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;