DIM a$(5), k$(5)
DIM a1$(5), a2$(5), a3$(5), a4$(5), a5$(5)
Присвоение значений элементов пунктов меню
a$(0) = " menu: "
a$(1) = "1111"
a$(2) = "2222"
a$(3) = "3333"
a$(4) = "4444"
a$(5) = "5555"
k$(0) = " Контекстная помощь "
k$(1) = "1111 ооооооооооооооооооооооооооооооооооооооооооооо"
k$(2) = "2222 ьоооооооооооооооол"
k$(3) = "33пррррррррррр орррррррррр33"
k$(4) = "4ннннннннннннннн пррррло енллллллллллллллллллл444"
k$(5) = "55неллллллл енл ле55"
a1$(0) = " menu1: "
a1$(1) = "gggggg1111"
a1$(2) = "ggggggggg2222"
a1$(3) = "ggggggggggg3333"
a1$(4) = "ggggggggggg4444"
a1$(5) = "ggggg5555"
a2$(0) = " menu2: "
a2$(1) = "ghnnffgnbfgg1111"
a2$(2) = "gggggnfgngggg2222"
a2$(3) = "ggggggggfdnfdngggg3333"
a2$(4) = "ggggggdnbdfggggg4444"
a2$(5) = "ggggg5555"
a3$(0) = " menu3: "
a3$(1) = "dhfdnbfgnf"
a3$(2) = "ggggggggg2222"
a3$(3) = "gggrthrtgggggggg3333"
a3$(4) = "ggggggggggg4444"
a3$(5) = "ggggg5555"
a4$(0) = " menu5: "
a4$(1) = "gggggg1111"
a4$(2) = "ggggggggg2222"
a4$(3) = "ggggerherherggggggg3333"
a4$(4) = "ggggggggggg4444"
a4$(5) = "ggggg5555"
a5$(0) = " menu5: "
a5$(1) = "gggggg1111"
a5$(2) = "ggggggggg2222"
a5$(3) = "ggggggggggg3333"
a5$(4) = "ggggggggggg4444"
a5$(5) = "ggggg5555"
Пример вызова процедуры:
DO
CALL menuG(a$(), 1, k$(), 25, 1, cod%)
COLOR 0, 3
LOCATE 3, 10
PRINT " Номер выбранного пункта меню cod%="; cod%
LOCATE 4, 10
PRINT " Для завершения программы нажмите ESC !!!"
SELECT CASE cod%
CASE 1
COLOR 0, 3
CLS
LOCATE 12, 10
PRINT " Пример вызова процедуры вертикального меню"
CALL menuSV0(1, 1, a1$(), 5, 10, 1, 0, 0, "1", 1, 14, 1, 14, 1, 15, 4, cod%)
CASE 2
CALL menuSV0(1, 1, a2$(), 10, 20, 1, 0, 0, "1", 2, 14, 2, 14, 1, 15, 4, cod%)
CASE 3
CALL menuSV0(0, 0, a3$(), 15, 30, 1, 0, 0, "1", 3, 14, 4, 14, 1, 15, 4, cod%)
CASE 4
CALL menuSV0(1, 1, a4$(), 5, 50, 1, 0, 0, "1", 4, 14, 5, 14, 1, 15, 4, cod%)
CASE 5
CALL menuSV0(0, 0, a5$(), 15, 10, 1, 0, 0, "1", 0, 14, 6, 14, 1, 15, 4, cod%)
CASE ELSE
END SELECT
LOOP UNTIL cod% = 0
LOCATE 25, 1
PRINT " Нажми любую клавишу !!! ";
c$ = INPUT$(1)
2.Описание практической части работы:
2.1. Цели лабораторной работы Изучить возможность организации выбора необходимых для работы действий в программе с использованием системы основного горизонтального меню и вспомогательных вертикальных.
2.2. Постановка задачи Организовать обработку информации в соответствии с заданием, выданным преподавателем. В работе использовать интерфейс, состоящий из системы меню.
2.3. Порядок выполнения работы:
2.3.1. Ознакомиться с теоретической частью.
2.3.2. Получить задание у преподавателя.
2.3.3. Выполнить работу.
2.3.4. Оформить отчет:
2.3.4.1. Содержание отчета:
1. Цель работы - краткая формулировка поставленной цели.
2. Порядок выполнения - определяются действия, необходимые для выполнения данной работы.
3. Постановка задачи - формулирование задачи в соответствии с индивидуальным заданием.
4. Решение поставленной задачи:
4.1. Математическое описание решения поставленной задачи содержит описание связей между параметрами с использованием принятых в математике обозначений.
4.2. Описание логической структуры программы (алгоритм решения) содержит:
- краткое описание схемы программы,
- алгоритм решения (по ГОСТ ) - рисунок,
- краткое описание используемых операторов языка программирования (при необходимости).
4.3. Описание программы содержит:
- название файла, его размер,
- текст программы (или фрагмент для решения конкретной, наиболее важной части задания).
4.4. Результат работы программы:
- значения, полученные в результате выполнения программы
- анализ полученных результатов.
Выводы - отвечают на поставленную цель.
2.4. Контрольные вопросы:
1. Что такое интерфейс ?
2. Как выглядит вертикальное меню ?
3. Для каких целей можно использовать вертикальное меню ?
4. Сколько параметров задается при вызове вертикального меню ?
5. Какой параметр возвращается из подпрограммы при вызове вертикального меню ?
6. Можно ли изменить цвет фона меню ?
7. Можно ли сделать меню всплывающим и исчезающим и для каких целей его можно использовать ?
8. В каком режиме работает вертикальное меню ?
9. Для решения каких задач удобнее использовать систему горизонтального меню ?
10. Что нужно организовать в программе, чтобы вернуться к предыдущему или горизонтальному меню?