Порядок выполнения работы
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. Запустить приложение на выполнение. Сделать несколько расчетов для различных исходных данных. Результаты расчета сохранить на МД в виде файлов в личной папке. Просмотреть результаты расчетов, выбирая их из файлов на МД.