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

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

2. Сохранить компоненты проекта Form1 и Form2 в личном каталоге под новым именем, соответствующем лабораторной работе Lab5. Для этого выделить компонент в окне проекта, щелкнуть на пункте Fileоперационного меню и выбрать строку Save <имя> As.... В появившемся окне диалога набрать полное имя файла в соответствии с требованиями п.4:

L5_<ФИО>_Form1

L5_<ФИО>_Form2

Для сохранения всего проекта под новым именем (после сохранения форм) выполнить команду File Þ Save Project As...( Файл Þ Сохранить Проект как…) и в появившемся окне диалога ввести новое имя файла проекта:

L5_<ФИО>_Project

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

4.Создать форму Form3.

5. Создать новый модуль Module3, включив в него следующий код:

Public Kx As Single

Public Ky As Single

Public Sub Graph()

'Процедура построения графика функции

Dim i As Integer

'Уточнение границ областей изменения аргумента и

'функции

If XMin > 0 Then XMin = -(XMax - XMin) / 50

If XMax < 0 Then XMax = (XMax - XMin) / 50

If YMin > 0 Then YMin = -(YMax - YMin) / 50

If YMax < 0 Then YMax = (YMax - YMin) / 50

'Определяем масштабный множитель

'(коэффициент перехода от математических координат

'к экранным)

Kx = Form3.ScaleWidth / (XMax - XMin)

Ky = Form3.ScaleHeight / (YMax - YMin)

'Строим оси координат

Form3.Cls

Form3.Line (EkrX(0), 0)-(EkrX(0),

Form3.ScaleHeight)

Form3.Line (0, EkrY(0))-(Form3.ScaleWidth, EkrY(0))

'Строим график

For i = 1 To n

Form3.PSet (EkrX(MX(i)), EkrY(MY(i)))

Next

End Sub

Function EkrX(x As Single) As Integer

'Перевод математической координаты Х в экраную

'Функция CInt преобразует вещественные данные

'(результат вычисления) в целое

EkrX = CInt((x - XMin) * Kx)

End Function

Function EkrY(y As Single) As Integer

'Перевод математической координаты У в экраную

EkrY = CInt((YMax - y) * Ky)

End Function

6.В процедуру обработки события Click командной кнопки Command1 (Расчет) формы Form1 добавить инструкцию вызова процедуры рисования графика, а в процедуру обработки события Click командной кнопки Command2 (Выход) - инструкцию для удаления формы Form3.Получим следующий код (жирнымвыделены добавленные строки):

Private Sub Command1_Click()

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

'Расчет

'Последовательно вызываются процедуры:

' * - табулирования

' * - печать таблицы значений

' * - рисование графика функции

'При отрисовке в каждой форме эта форма

'делается видимой(свойство Visible)

'и выносится на передний план путем передачи этой

'форме фокуса (метод SetFocus)

TabFunc Xnac, Xkon, hX

Form2.Visible = True