Вертикальное POPUR- меню

LIGHTBAR- меню

Для создания такого меню используются команды @…PROMPT, MENU и возможно SET MESSAGE

@ Y,X PROMPT< выр. С1 > [MESSAGE< выр С2 >]

выдает в позиции Y,X строку меню < выр С1 > выражение в скобках

[ ] усиливает информативность меню.

Само меню состоит из ряда (до 128) команд PROMT, показывающих в заданных позициях экрана строки меню.

Перемещение внутри меню пользователь осуществляет нажатием клавиш со стрелками, выбор клавишей Enter.

Команда SET MESSAGE то [выр N][LEFT/RIGHT/CENTER]

Применяется, чтобы в строке < выр N > экрана \ окна вывести дополнительное сообщение к пункту меню, на котором стоит курсор, слева, справа, в центре. Эта команда без параметра < выр N> направляет сообщение в последнюю строку экрана.

Пример

CLEAR

SET MESSAGE то16 CENTER

@ 5.31 SAY ' Меню системы

@ 7.31 PROMPT ' Конец работы ' MESSAGE ' Выход из системы '

@ 9.31 PROMPT ' Дополнение данных '

@ 11.31 PROMPT ' Корректировка '

@ 13.31 PROMPT ' Печать данных ' MESSAGE ' Включите принтер '

MENU то R

SEN MESSAGE ТО

Такое меню создается командой

@ Y,X MENU< массив >, < выр N1>,< выр N2 >[TITLE < выр C >]

Y,X- координаты левого верхнего угла окна меню экрана

< массив >- имя одномерного массива, который содержит элементы меню символьного типа до 50 знаков

< выр N1>- число элементов в меню (до 128)

< выр N2>- число одновременно изображаемых на экране элементов в меню (до 17).

TITLE < выр C >- заглавное меню, изображаемое в верхней части.

Команда @….MENU только отображает меню на экране.

Активизация меню осуществляется командой

READ MENU TO < переменная > [SAVE]

< переменная >- номер позиции меню, выбранная пользователем, если она не определена, то курсор устанавливается на первую строку меню.

Параметр SAVE позволяет сохранить меню на экране после его использования. Оно может быть стерто командой CLEAR.

Пример

CLEAR

DIMEN SION a (3)

A(1)= ' Ввод данных '

A(2)= ' Редактирование '

а(3)= ' Удаление ' меню

М=2 ввод данных

@ 8.30 MENU a.3 TITLE ' Меню ' редактирование

READ MENU TO m удаление

Дата добавления: 2013-12-13