Unload Form3

End

End Sub

Строки Form2.SetFocusиForm3.SetFocusнеобходимы для того, чтобы «вытащить» эти формы на передний план (поместить сверху остальных окон)

7.В модуле формы Form3 набрать следующий код:

Private Sub Form_Resize()

Graph

End Sub

8.Используя окно управления раскладкой (FormLayout) выбрать наиболее удобное расположение форм на экране при запуске приложения.

9.Сохранить новый компонент проекта модуль Module3 в личной папке, присвоить ему имя в соответствие с требованиями раздела 4:

L5_<ФИО>_Module3

10.Запустить приложение на выполнение. Пронаблюдать его работу, изменяя значения параметров и щелкая «Расчет». Изменить размеры формы Form3.

Примечание. В данном примере при построении графика применен «точечный» метод: график на экране представляется в виде множества точек. Причем, чем больше берется точек, тем лучше выглядит график. Возможен другой подход – «отрезочный» метод, когда график представляется в виде отрезков. Соединяющих соседние точки. Чтобы выполнить график в виде совокупности отрезков, следует в процедуре Graph(см. п.5) заменить цикл рисования графика на следующий:

For i = 1 To n

Form3.Line (EkrX(MX(i - 1)), EkrY(MY(i - 1))) - (EkrX(MX(i)), EkrY(MY(i)))

Next

Лабораторная работа № 6.