АЛТАЙСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

Кафедра информационных систем в экономике

Задания и упражнения по процедурному языку FoxPro

Материалы к курсу "Информатика и программирование" для студентов 1 курса специальности "Прикладная информатика в экономике"

Барнаул 2003

Составитель:      к.ф.-м.н., доцент кафедры ИСЭ АГУ

Юдинцев Алексей Юрьевич

Напечатано в типографии экономического факультета АГУ пр. Социалистический, 68, тел. 36-42-32

Содержание

НАЧАЛО РАБОТЫ В СРЕДЕ РАЗРАБОТЧИКА FOXPRO....................................................... 5

Расположение среды разработчика FoxPro2.5..................................................................... 5

Начало работы в среде разработчика Visual FoxPro............................................................ 5

КОНСТАНТЫ И ПЕРЕМЕННЫЕ.................................................................................................. 6

Символьный тип данных........................................................................................................... 6

Числовой тип данных................................................................................................................ 7

Тип данных дата........................................................................................................................ 8

Логический тип данных............................................................................................................ 9

Переменные................................................................................................................................ 9

Определение типа данных, функция TYPE().......................................................................... 10

Команды вывода на экран ? и ??............................................................................................ 10

Ввод данных с клавиатуры. Команда input........................................................................... 11

УПРАВЛЕНИЕ ХОДОМ ВЫПОЛНЕНИЯ ПРОГРАММЫ. БЛОЧНЫЕ ОПЕРАТОРЫ........ 11

Организация ветвления. Оператор IF … ELSE … ENDIF................................................... 12

Множественное ветвление. Оператор DO CASE … ENDCASE........................................ 12

Безусловные циклы. Оператор FOR … ENDFOR.................................................................. 13

Условные Циклы. Оператор DO WHILE … ENDDO............................................................. 14

ПРОЦЕДУРЫ И ФУНКЦИИ....................................................................................................... 15

Передача параметров в подпрограммы................................................................................ 16

Определение количества параметров, переданных в подпрограмму. Функция PARAMETERS() 17

МАССИВЫ................................................................................................................................... 18

Создание массивов................................................................................................................... 18

Элементы массива................................................................................................................... 18

ОБЛАСТИ ВИДИМОСТИ ПЕРЕМЕННЫХ............................................................................... 19

Команда PUBLIC..................................................................................................................... 19

Команда LOCAL....................................................................................................................... 19

Команда PRIVATE.................................................................................................................... 20

СТРОКОВЫЕ ФУНКЦИИ........................................................................................................... 23

1. Определение длины строки. Функция len()........................................................................ 23

2. Удаление пробелов. Функции alltrim(), ltrim(), rtrim(), trim()............................................ 23

3. Преобразование строки в число. Функция str()................................................................. 23

4. Определение позиции подстроки в строке. Функции at(), rat()....................................... 23

5. Преобразование строки в число. Функция val()................................................................ 24

6. Извлечение подстроки. Функция substr()........................................................................... 24

7. Преобразование строк. Функции strtran() и stuff()........................................................... 24

8. Работа с ASCII кодами символов. Функции asc(), chr().................................................... 25

ЗАДАЧИ И УПРАЖНЕНИЯ ДЛЯ САМОСТОЯТЕЛЬНОГО РЕШЕНИЯ............................... 25

ПРИМЕРЫ ПРОЦЕДУР И ФУНКЦИЙ...................................................................................... 25

ЗАДАЧИ ДЛЯ САМОСТОЯТЕЛЬНОГО РЕШЕНИЯ............................................................... 26

РАБОТА С ФАЙЛАМИ НА НИЗКОМ УРОВНЕ...................................................................... 26

1. Открытие и закрытие файла, номер канала файла........................................................ 27

2. Считывание информации из файла................................................................................... 27

3. Перемещение по файлу........................................................................................................ 28

4. Запись в файл........................................................................................................................ 28

5. Работа со строками файла................................................................................................ 29

7. Определение конца файла.................................................................................................... 30

8. Создание файла.................................................................................................................... 30

1. Копирование файла.............................................................................................................. 31

2. Функция, возвращающая строку из данного файла по ее номеру................................... 32

ГРАФИЧЕСКИЕ ФУНКЦИИ...................................................................................................... 33

Объект _SCREEN. Основные свойства................................................................................. 33

Методы объекта _SCREEN.................................................................................................... 35

Работа с текстом. Метод Print........................................................................................... 35

Функции для рисования фигур................................................................................................. 36

Управлением стилем и толщиной линии рисования............................................................. 38

Рисование заполненных фигур................................................................................................ 39

ФУНКЦИИ ДАТЫ И ВРЕМЕНИ................................................................................................. 40

Получение текущей даты. Функция DATE()......................................................................... 40

Определение текущего дня недели. Функции DOW, CDOW.................................................. 40

Определение месяца заданной даты. Функции MONTH, GOMONTH................................. 40

Определение года. Функция YEAR()........................................................................................ 41

Функции времени...................................................................................................................... 41

Примеры использования функций даты-времени................................................................. 41

РАБОТА С ФАЙЛАМИ НА ВЫСОКОМ УРОВНЕ.................................................................. 42

Редактирование файлов. Команды MODIFY FILE ... и MODIFY COMMAND .................. 42

Копирование файлов. Команда COPY FILE ... TO ............................................................... 42

Переименование файла. Команда RENAME.......................................................................... 43

Уничтожение файлов. Команды DELETE FILE ... и ERASE ............................................. 43

Функция GETFILE()................................................................................................................. 43

Функция FILE()......................................................................................................................... 44

Функция FULLPATH().............................................................................................................. 44

РАБОТА С ТАБЛИЦАМИ........................................................................................................... 44

Создание таблицы................................................................................................................... 45

Открытие таблицы................................................................................................................ 46

Работа с данными в таблицах. Использование стандартного средства просмотра BROWSE            48

Перемещение по таблице........................................................................................................ 49

Цикл SCAN … ENDSCAN......................................................................................................... 50

Команды поиска....................................................................................................................... 52

КОНТРОЛЬНЫЕ РАБОТЫ......................................................................................................... 52

Вариант № 1............................................................................................................................. 53

Вариант № 2............................................................................................................................. 53

Вариант № 3............................................................................................................................. 54

Вариант № 4............................................................................................................................. 54

Вариант № 5............................................................................................................................. 55

Вариант № 6............................................................................................................................. 55

Вариант № 7............................................................................................................................. 56

Вариант № 8............................................................................................................................. 56

Вариант № 9............................................................................................................................. 57

Вариант № 10........................................................................................................................... 57

 

Начало работы в среде разработчика FoxPro

Расположение среды разработчика FoxPro2.5

Найдите на сетевом диске директорию с файлами FoxPro2.5. (P:\studapp\foxpro25). Среда разработчика FoxPro2.5 запускается файлом foxprox.exe. Перед началом работы подключите драйвер мыши: p:\os\util\gmouse.com.

Среда FoxPro "запоминает" стартовую директорию и пытается создать в ней служебные временные файлы, поэтому необходимо запускать файл foxprox.exe со своего пользовательского диска - диска U:. Создайте пакетный файл (для этого вNorton Commander можно использовать комбинацию клавиш shift+F4) fox_start.bat содержащий команды:

p:\os\util\gmouse.com

p:\studapp\foxpro25\foxprox.exe

С помощью файла fox_start.bat запустите FoxPro. Войдите в главное меню (клавиши Alt или F10). Завершите работу при помощи меню

(File -> Quit).

Повторно запустите FoxPro и завершите работу при помощи команды quit в командном окне.

Войдите в главное меню и откройте служебные окна: command, view, trace, debug.

Используя мышь:

– сверните окна;

– разверните;

– измените размеры;

– закройте все окна.

Откройте командное окно при помощи комбинации клавиш Ctrl+F2.

Повторно выполните вышеперечисленные действия без использования мыши: при помощи системного меню: пункт Window, подпункты: Move (переместить окно) - Ctrl+F7, Size (изменить размер окна) - Ctrl+F8, Zoom (увеличить размер окна) - Ctrl+F9, Cycle (цикл: минимизировать окно, развернуть окно) - Ctrl+F1.

Откройте встроенную электронную справку - Help ( System-> Help).

Найдите статьи по командам: clear, clear all, ?, ??, set talk…, set date…

Начало работы в среде разработчика Visual FoxPro

На диске p: в директории studapp имеются две версии визуального объектно-ориентированного языка FoxPro: Visual FoxPro 3.0 и Visual FoxPro 6.0. Среда разработчика Visual FoxPro3.0 расположена в директории p:\studapp\vfoxpro и запускается файлом p:\studapp\vfoxpro\vfp.exe. Файлы среды разработчика Visual FoxPro 6.0 находятся в директории p:\studapp\vfp98, стартовый файл p:\studapp\vfp98\vfp98.exe.

Процедурные языки обеих версий FoxPro очень близки друг к другу, поэтому в рамках этого курса можно использовать любую версию языка. Следует отметить, что Visual FoxPro 6.0 является частью пакета Visual Studio 6.0 и, поэтому, встроенная помощь-Help, интегрирован в общую библиотеку примеров - MSDN. Кроме того, документация версии 6.0 приведена на английском языке. Встроенная помощь Visual Fox Pro 3.0 приведена на русском языке. Файл встроенной помощи Visual FoxPro 3.0 – foxhelp.hlp представляет собой стандартный help-файл Windows и им можно пользоваться независимо от среды разработчика.

Обе версии визуального FoxPro являются 32-х разрядными windows-приложениями, поэтому для их работы необходима, как минимум, операционная система Windows 95 или другая более современная версия Windows.

При работе с Visual FoxPro, как и с любыми другими windows-приложениями, возникает проблема шрифтов с отсутствующими кириллическими символами. Наиболее ярко это может проявиться в случае нелокализованных версий операционных систем с некириллическим основным системным шрифтом – Windows NT. В этом случае Вам придется настроить основной шрифт среды разработчика на кириллический шрифт.

Запустите среду разработчика vfp.exe или vfp98.exe и в командном окне задайте новое имя шрифта окна среды разработки:

_screen.fontname = "Ms Sans Serif"

После этого при помощи основного меню задайте рабочий шрифт командного окна: Format => Font => Ms Sans Serif и командой ? выведите на экран текстовую константу с кириллическими символами:

? "Пробный текст набранный кириллицей"

В результате эта строка должна отобразиться на экране русскими буквами.