Реферат: Алгоритмизация и программирование процессов на Fox

Clear

* Описание массивов данных меню

Declare GenMenu(3,2), menuFile(3), menuZad(3), menuExit(2)

* Задание значений элементов массивов

GenMenu(1,1)=" Файл данных "

GenMenu(1,2)="Работа с файлом данных"

GenMenu(2,1)=" Задание "

GenMenu(2,2)="Задания на курсовой проект"

GenMenu(3,1)=" Выход "

GenMenu(3,2)="Выход из программы"

menuFile(1)="Создание"

menuFile(2)="Чтение"

menuFile(3)="Добавление"

menuZad(1)="Задание №1"

menuZad(2)="Задание №2"

menuZad(3)="Задание №3"

menuExit(1)="Выход в Fox"

menuExit(2)="Выход из Fox"

* Формировние главного меню

Do While .T.

set Color to gr+/g, gr+/b && Установка цвета меню

Menu Bar GenMenu, 3

Read Menu Bar to L1, L2 && Вывод главного меню на экран

Do While L1 > 0 && открыть подменю, если выбран

&& любой пункт главного меню

* Формирование подменю

set Color to gr+/g, gr+/b && Установка цвета подменю

Menu 1, menuFile, 3,3

Menu 2, menuZad, 3,3