Ход работы. 1. Создайте в папке Лабораторная_работа_№11 папку 11.4

1. Создайте в папке Лабораторная_работа_№11 папку 11.4.

2. Расположите на форме 1 компонент PictureBox, 3 компонента CommandButton.

3. Свойству формы Name задайте значение frmГрафик, а свойству Caption – «График функции y = 1/x». Остальные свойства формы и остальных компонентов установите самостоятельно, по своему усмотрению.

4. Объявите переменные в разделе глобальных объявлений:

Dim x As Single, y As Single, i As Integer

5. Щелкнув мышью два раза на кнопке «Построить график», напишите обработчик события Click (необходимые комментарии приведены после знака апострофа):

Private Sub Command1_Click()

Picture1.Scale (-9, 9)-(9, -9)

Picture1.ForeColor = &HFFFFFF

Picture1.FontBold = True

'абсцисса

Picture1.Line (-9, 0)-(9, 0)

For i = -15 To 15

Picture1.PSet (i, 0)

Picture1.Print i

Next

'ординаты

Picture1.Line (0, -9)-(0, 9)

For i = -15 To 15

Picture1.PSet (0, i)

Picture1.Print i

Next

'график по точкам

For x = -10 To 10 Step 0.005

y = 1 / x

DrawWidth = 7 'толщина линии графика

Picture1.PSet (x, y), QBColor(14)

Next

End Sub

6. Сохраните проект (выбрав File – Save frmГрафик2.frm и Save График2.vbp).

7. Проверьте работоспособность проекта, запустив его на выполнение.

8. Добавьте к коду программы (в конце, перед ключевыми словами End Sub) следующие строки и проанализируйте результат:

For x = -10 To 10 Step 0.005

y = 1 / (-x)

DrawWidth = 7

Picture1.PSet (x, y), QBColor(12)

Next

9. Обработчики событий для кнопок «Очистить» и «Выйти» напишите самостоятельно.

10. Сохраните изменения в проекте.

11. Создайте exe-файл программы с помощью команды File → Make График2.exe.

12. Выйдите из среды Visual Basic, запустите на выполнение файл График2.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.