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

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