Описание массива пунктов меню

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. Какой параметр возвращается из подпрограммы при вызове вертикального меню?

Можно ли изменить цвет фона меню?

7. Можно ли сделать меню всплывающим и исчезающим и для каких целей его можно использовать?

8. В каком режиме работает вертикальное меню?

9. Для решения каких задач удобнее использовать систему горизонтального меню?

10. Что нужно организовать в программе, чтобы вернуться к предыдущему или горизонтальному меню?