Пример 9.4.29. Обработка пунктов меню оператором IF

Обработка пунктов меню

Пример 9.4.28. Меню программы

MENU: REM Меню программы

DEFSTR c

REM переменные, имя которых начинается с символа "с" - символьные

SCREEN 9

LINE (115,20)-(515,140),,b: REM Построение двойной рамки

LINE (119,22)-(511,138),,b

LOCATE 5,22:?"*** Г Л А В Н О Е М Е Н Ю ***"

LOCATE 10,22:?"1.Паспорт программы."

LOCATE 12,22:?"2.Проверка наличия корня."

LOCATE 14,22:?"3.Демонстрация процедуры вычисления."

LOCATE 16,22:?"4.Выход."

RETURN

Для анализа номера выбранного пункта меню можно использовать три оператора: оператор IF, оператора ON GOTO или ON GOSUB, оператор SELECT CASE. Наиболее простой из перечисленных операторов - оператор ON GOTO/GOSUB. Наиболее удобные, с точки зрения структурного программирования, оператор IF, многострочный оператор IF и оператор SELECT CASE.

Для обработки пунктов меню можно использовать простой оператор IF:

IF <условие> THEN <оператор перехода>

IF <условие> THEN <оператор вызова подпрограммы>

OPM1: REM подпрограмма обработки пунктов меню

GOSUB ONK: REM вызов подпрограммы выбора пунктов меню. ONK -метка

1-й вариант 2-й вариант

IF nkl=1 THEN GOTO M1 IF nkl=1 THEN GOSUB M1: GOSUB MENU

IF nkl=2 THEN GOTO M2 IF nkl=2 THEN GOSUB M2: GOSUB MENU

.........

IF nkl=n THEN GOTO Mn IF nkl=n THEN GOSUB Mn: GOSUB MENU

LOCATE 1,1: PRINT "Неправильный ввод. Введите пункт меню"

BEEP 1: REM Выдача звукового сигнала

SLEEP 3: REM Останов на 3 секунды и очистка строки сообщения

LOCATE 1,1: PRINT “ ”

GOTO OPM1: REM Возврат для ожидания нажатия клавиши"

END

ONK: ‘ подпрограмма выбора пунктов меню (простейший вариант)

LOCATE 23,1: “Ваш выбор ”: INPUT “ ”,nkl

RETURN

Здесь Mn - метка подпрограммы выполнения соответствующего пункта меню.

При использовании многострочного IF получается хорошо читаемая структура программы:

Дата добавления: 2014-01-06