Алгоритмизация и программирование процессов на Fox
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
озможность облегчить процесс создания файла данных, т.е. предусмотреть создание файла данных со структурой заданной в программе, а не выбираемой самим пользователем, что полностью исключит возможные ошибки пользователя в задании имен полей файла данных, что в сою очередь может сказаться на корректной работе всей программы.
- Алгоритмы
- Создание двухуровневого светового меню
- Создание файла данных
- Чтение файла данных
- Добавление данных в файл данных
- Печать сведений о суммарной стоимости продукции заданного вида по каждому предприятию и о среднем выпуске этой продукции одним предприятием.
- Печать сведений о суммарной стоимости и суммарном выпуске каждой продукции.
- Печать упорядоченного по суммарной стоимости списка продукции пяти видов
- Программы
- Создание двухуровневого светового меню
* Командный файл иерархического меню MainMenu
set Talk off
set Color to n/W* && Выбор цвета экрана
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
Menu 3, menuExit, 2,2
Read Menu Bar to L1, L2&& Вывод меню на экран
set Color to n/W*&& Возврат к цвету экрана
* Обработка выбранного пункта меню
Do Case
Case L1=0
Exit&& Выход в панель главного меню
Case L1=1
Do Case
Case L2=1 && Выбрано действие Создание нового ФД
Do CreateFd
Case L2=2 && Выбрано действие Чтение данных
Do ReadFd
Case L2=3 && Выбра?/p>