Ход работы. 1. Создайте в папке Лабораторная_работа_№11 папку 11.4.
1. Создайте в папке Лабораторная_работа_№11 папку 11.4.
2. Расположите на форме 1 компонент PictureBox, 3 компонента CommandButton.
3. Свойству формы Name задайте значение frmГрафик, а свойству Caption – «График функции y = 1/x». Остальные свойства формы и остальных компонентов установите самостоятельно, по своему усмотрению.
4. Объявите переменные в разделе глобальных объявлений:
DimxAs Single,yAs Single,i As Integer
5. Щелкнув мышью два раза на кнопке «Построить график», напишите обработчик события Click (необходимые комментарии приведены после знака апострофа):
Private SubCommand1_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-приложения.
Дата добавления: 2015-06-12; просмотров: 474;