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

End Sub

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

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

9. Измените диапазон значения X от -10 до +10.

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

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

Задание 4. Составить программу рисования графика функции y = 1/x.

Постановка задачи.

Требуется составить программу, которая при щелчке на кнопку показывает график функции y = 1/x Приложение также должно иметь кнопку для очистки графической поверхности. Примерный внешний вид формы представлен на Рис.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

Дата добавления: 2014-12-23