КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Организация цикла
Команда выбора Команда IF ENDTEXT TEXT сообщение осуществляет вывод "сообщения" один к одному. Удобно для вывода больших блоков текста типа Help. Команда вывода строк текста \ или \\. Осуществляет вывод строк текста, результатов выражений и функций, содержимого переменных памяти. Текст можно выводить в файл для создания писем или программ. Команда "\\" осуществляет (в отличие от "\") переход на новую строку. Выводимый текст может содержать выражения в разделителях << >>. Вывод значения выражения происходит при установке TEXTMERGE ON. ПРИМЕР: SET TEXTMERGE TO letter.txt NOSHOW USE base_1 SET TEXTMERGE ON \ <<DAY(DATE())>>, <<CMONTH(DATE())>> \\ <<YEAR(DATE())>> \ \ Дорогой <<name>> <<fam>>! \ \ Текст письма \ MODIFY FILE letter.txt NOWAIT Часто применяется вывод информации в виде псевдографических диаграмм с использованием функции REPLICATE ("набор символов","числовое выражение"), организующей повтор заданного набора символов столько раз, сколько указано в числовом выражении. ПРИМЕР: USE base_z CALCULATE MAX(zar) TO mz SCAN ? REPLICATE("_", ROUND(60*zar/mz,0)) ?? fam AT 61 ENDSCAN Команды управления являются важнейшим средством построения программ. IF <выражение> <команды> [ELSE <команды>] ENDIF Допускаются вложенные IF, для каждого из них должно присутствовать ENDIF. ПРИМЕР. IF WOSR <18 @ 10,12 SAY 'ЮНЫЙ ДРУГ' @ 12,8 Команда выбора имеет формат: DO CASE CASE <условие> < команды> CASE < условие > < команды> ............... ENDCASE Проверяется истинность одного из выражений, выполняются операторы, относящиеся к блоку, где выражение истинно. Команда CASE может заменить выражение IF. Для организации циклов применяется структура с предусловием: DO WHILE <выражение>
< команды > [LOOP] < команды > <EXIT> ENDDO Цикл выполняется до тех пор, пока выражение истинно. По EXIT выход из цикла и передача управления оператору, следующему за ENDDO. Команда LOOP дает переход на начало цикла, пропуска следующих за ним команд до ENDDO. 2.8. Организация FOX – меню Мощный инструмент FoxPro – создание разнообразных меню. Простейшие из таких программ: FOX-LIGHTBAR-меню. Используется команда @ X,Y PROMPT "строка меню" MESSAGE "сообщение" ПРИМЕР. Демонстрация меню с подсветкой элементов CLEAR SET MESSAGE T0 18 CENTER *&& Вывод сообщений в строку 18 по центру @ 4, 31 SAY "Заголовок меню" @ 7, 31 PROMPT "функция 1" @ 9, 31 PROMPT "функция 2" MESSAGE "сообщение о функции 2" @ 11,31 PROMPT "функция 3" MESSAGE "сообщение о функции 3" @ 13,31 PROMPT "Завершение работы" MESSAGE "Выход"
Дата добавления: 2015-05-09; Просмотров: 339; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |