Файлы, создание и обработка файлов, диалоговые окна.

 

Цель: Изучение методов работы с файлами. Использование управляющего элемента Common Dialog Box для формирования диалоговых окон.

Рабочее задание: На основе проекта Lab5 разработать новый проект, включив в него вывод при необходимости полученной таблицы значений в файл на магнитном диске и обратное его чтение. При сохранении и открытии файлов сгенерировать стандартные диалоговые окна с помощью элемента управления Common Dialog Box.

 

Краткие теоретические сведения

 

Массивы предназначены для оперативного хранения информации. При выходе из приложения вся информация, содержащаяся в массиве, теряется. Для длительного хранения данных используются файлы.

Файл – это последовательность логически связанных данных, размещенных на внешнем устройстве. На магнитном диске каждый файл сохраняется под своим уникальным именем в какой-либо конкретной папке и может храниться неопределенное время. Файл состоит из записей. Запись – одна строка файла. Количество записей в файле неограниченно.

Перед работой с файлом его необходимо открыть:

 

Open <имя> For <режим> As #<номер>,

где:

<имя> - имя файла, задаваемое в соответствии с правилами операционной системы: диск: \ путь \ имя. Если имя диска или путь опущены – подразумевается текущий. Это константа или переменная строкового типа;

< режим > - режим доступа к файлу:

Input - чтение из файла;

Append - добавление в конец файла;

< номер > - номер файла, используемый для последующих ссылок на этот файл при обращении к нему.

Запись в файл:

 

Write # <номер>, <список переменных>

Чтение из файла:

Input # <номер>, <список переменных>

 

Закрытие файла:

 

Close # <номер>

 

Каждый из операторов Write # и Input # обрабатывает (записывает или читает) одну запись (строку) файла.

Поскольку количество записей в файле неограниченно, для распознавания конца фала используется функция EOF(<номер>), возвращающая логическое значение «истина» (True), если достигнут конец файла, или «ложь» (False) - в противном случае.

В операторах открытия файла (Open) необходимо указать имя файла с указанием пути к нему (последовательности вложенных друг в друга каталогов). Можно, конечно, заранее определиться с именем и задать его непосредственно в операторе. В этом случае пользователь будет лишен возможности изменять имя файла или его место положения. Более гибким является подход, при котором имя и расширение файла определяется пользователем на этапе выполнения приложения, в привычном для него и стандартном в Windows окне диалога «Открыть» или «Сохранить». Эти окна генерируются с помощью элемента управления Common Dialog Box. Сам элемент не появляется в форме на этапе выполнения. Вызов соответствующего окна осуществляется в коде с помощью методов этого элемента управления. При этом можно установить соответствующие свойства и проанализировать результаты, возвращаемые методом.

Следует иметь в виду, что, хотя Common Dialog Box и является стандартным элементом управления, он не появляется на панели инструментов до тех пор, пока не будет добавлен на панель вручную с помощью команды Project Þ Components (Проект Þ Компоненты).

 

Порядок выполнения работы

1. Войти в среду Visual Basic и загрузить (открыть) проект Lab5. Изменить его имя на Lab6.

2. Сохранить компоненты Form1, Form2 и Form3, затем и весь проект под новым именем, соответствующим номеру лабораторной работы и требованиям, изложенным в разделе 4.

3. Изменить текст заголовка (свойство Caption) в форме Form1 и надпись в заглавном элементе Label.

4. Добавить в панель инструментов элемент Common Dialog Box. Для чего:

- выбрать Project Þ Components (Проект Þ Компоненты).;

- в появившемся окне во вкладке Controls (Управление) установить флажок в строке Microsoft Common Dialog Control 6.0;

- щелкнуть ОК.

5. В окно формы Form1 д обавить элемент Common Dialog Box с именем сdb. Можно поместить его в любое место. На этапе выполнения этот элемент не видим.

6. Создать в форме Form1 командную кнопку Command3 с подписью «Запись».

7. Создать в форме Form1 командную кнопку Command4 с подписью «Чтение». Форма будет иметь вид примерно, как на рис. 15.

 

Рис. 15. Проект формы Form1.

 

8. С кнопками Command3 и Command4 связать следующие коды:

 

Private Sub Command3_Click()

'Обработка события Щелчок для кнопки Запись

 

Dim Str As String

 

cdb.DialogTitle = "Сохранить файл"

'Определили заголовок для окна диалога элемента управления

'Command Dialog Box

 

cdb.ShowSave

'Вызвали метод Сохранить элемента управления

'Command Dialog Box для вывода на экран стандартного

'окна диалога. Результатом его работы будет

'выбранный пользователем путь к файлу (диск-каталог) -

'свойство InitDir и имя файла - свойство FileName

 

Str = cdb.InitDir & cdb.FileName

Open Str For Output As #1

'Открыли файл на диске. Путь (диск-каталог) и имя файла

'получено от элемента управления Command Dialog Box

'после выполнения его метода Сохранить

 

Write #1, n, XMin, XMax, YMin, YMax

'Параметры таблицы значений вывели в первую запись

 

For i = 0 To n

Write #1, MX(i), MY(i)

Next

'В цикле вывели в файл всю таблицу значений

 

Close #1

'Закрыли файл

 

End Sub

 

Private Sub Command4_Click()

'Обработка события Щелчок для кнопки Чтение

'

Dim Str As String

 

cdb.DialogTitle = "Открыть файл"

'Определили заголовок для окна диалога элемента управления

'Command Dialog Box

 

cdb.ShowOpen

'Вызвали метод Открыть элемента управления

'Command Dialog Box для вывода на экран стандартного

'окна диалога. Результатом его работы будет

'выбранный пользователем путь к файлу (диск-каталог) -

'свойство InitDir и имя файла - свойство FileName

 

Str = cdb.InitDir & cdb.FileName

Open Str For Input As #1

'Открыли файл на диске. Путь (диск-каталог) и имя файла

'получено от элемента управления Command Dialog Box

'после выполнения его метода Открыть

 

Input #1, n, XMin, XMax, YMin, YMax

'Прочитали параметры таблицы значений из первой записи

 

ReDim MX(n), MY(n)

'Установили фактический размер массивов

 

For i = 0 To n

Input #1, MX(i), MY(i)

Next

'В цикле прочитали из файла всю таблицу значений

 

Close #1

'Закрыли файл

 

PrntFunc

Form2.Visible = True

Form2.SetFocus

Graph

Form3.Visible = True

Form3.SetFocus

'Вызвали процедуры печати таблицы значений и рисования

'графика. При этом сделали видимыми формы и поместили

'их на передний план, передав фокус.

 

End Sub

 

9. Запустить приложение на выполнение. Сделать несколько расчетов для различных исходных данных. Результаты расчета сохранить на МД в виде файлов в личной папке. Просмотреть результаты расчетов, выбирая их из файлов на МД.

 

Лабораторная работа № 7

Создание операционного меню

 

Цель: Изучение методов и средств Visual Basic для создания операционного меню.

Рабочее задание: На основе проекта Lab6 разработать новый проект Lab7, включив в него строку операционного меню, содержащие пункты:

· Файл – сохранение информации в файл (запись в файл), чтение из файла, выход из программы;

· Вид – опция: отображать /, не отображать – окно с графиком; цвет, которым изображается график и цвет осей координат; шрифт для отображения таблицы значений;

· Помощь – пустое;

· Выход – завершение работы.