Пример 9.4.27. Паспорт программы

Разработка паспорта и меню программы

Типовые схемы алгоритмов

Описание буфера данных

Открытие файла прямого доступа

Файлы прямого доступа

Порядок работы с файлами прямого доступа значительно отличается от порядка работы с файлами последовательного доступа.

Файл прямого доступа открывается одной командой как для чтения, так и для записи.

OPEN “имя_файла” FOR RANDOM AS #1

FIELD #1, N1 As V1$ [, N2 As V2$]

где N1, N2 – длина поля, As – служебное слово, V1$, V2$ - имена полей буфера данных.

Создание файла прямого доступа:

а) запись данных в буфер:

LSET V1$ =<переменная символьного типа>

LSET V2$ =<переменная символьного типа>

…

б) запись данных из буфера в файл

PUT #1, nom

где nom – номер записи, LSET – функция, прижимает текст к левому краю поля буфера. Другая функция – RSET – прижимает текст к правому краю поля буфера.

Использование файла прямого доступа:

а) чтение данных из файла в буфер данных:

GET #1, nom

б) чтение данных из буфера

<переменная1>=V1$: <переменная2>=V2$ …

В файле прямого доступа могут храниться только символьные переменные. Поэтому числовые переменные при записи в буфер должны быть преобразованы в символьные эквиваленты с помощью следующих функций:

MKI$(N) – преобразует целое число одинарной длины в двухбайтовый символьный эквивалент;

MKL$(N) – преобразует целое число двойной длины в четырехбайтовый символьный эквивалент;

MKS$(N) – преобразует вещественное число одинарной точности в четырехбайтовый символьный эквивалент;

MKD$(N) – преобразует вещественное число двойной точности в восьми байтовый символьный эквивалент.

Обратное преобразование переменных буфера в числовые переменные соответствующего типа осуществляется с помощью функций CVI(C), CVL(C), CVS(C), CVD(C).

Паспорт и меню программы представляют собой текстовую информацию. Для вывода ее на экран используются операторы PRINT, LOCATE, функции TAB(n), SPC(n). Для построения рамок проще всего использовать оператор LINE в графическом режиме.

REM Паспорт программы

CLS:

SCREEN 9

LINE(40,10)-(600,190),,B:

REM Для получения на экране и при печати линий равной

REM толщины проводится двойная вертикальная линия

LINE(41,10)-(601,190),,B:

LOCATE 3,20:?"Министерство образования Республики Беларусь"

LINE(100,25)-(540,25)

LOCATE 5,15:?" Брестский государственный технический университет"

LOCATE 6,12:?" Кафедра вычислительной техники и прикладной математики"

LOCATE 10,20:?" КУРСОВАЯ РАБОТА"

LOCATE 11,20:?" тема: Моделирование изображения детали"

LOCATE13,12:?"Программа позволяет строить аксонометрическое изображение"

LOCATE 14,12:?"детали, и ее проекции, изменять масштаб изображения, пере-"

LOCATE 15,12:?"мещать деталь и поворачивать изображение на произвольный"

LOCATE 16,12:?"угол в режиме диалога с пользователем. Угол вводится в"

LOCATE 17,12:?"градусах"

LOCATE 19,25:?"Исполнитель: Баценко Д.Л. гр.Т-39"

LOCATE 20,25:?"Дата сдачи работы: 1.06.97"

LOCATE 23,35:?"Брест 1997"

Дата добавления: 2014-01-06