Лабораторная работа по MicrosoftVisualBasic № 3
Проект «Построение графика функций»
- Запустите программу MicrosoftVisualBasic[Пуск - Все программы - MicrosoftVisualBasic 6.0 - MicrosoftVisualBasic 6.0]. На открывшейся диалоговой панели выбрать тип создаваемого проекта STANDART.EXE и нажать кнопку открыть.
- Разместите на форме графическое поле PictureBox, в котором будет производиться построение графика.
Для большей понятности программного кода будем вводить в него комментарии, которые начинаются с символа «’».
- Разместите на форме кнопку cmd1 и создайте событийную процедуру построения графика, в которой устанавливается масштаб, в цикле осуществляется построение графика функции, рисуются оси координат и печатаются на них числовые шкалы.
Dim sngX As Single, intI As Integer
Private Sub cmd1_Click()
‘Задание масштаба
Picture1.Scale (-10, 2)-(10, -2)
'Построение графика
For sngX = -10 To 10 Step 0.01
Picture1.PSet (sngX, Sin(sngX))
Next sngX
'ось Х
Picture1.Line (-10, 0)-(10, 0)
For intI = -10 To 10
Picture1.PSet (intI, 0)
Picture1.Print intI
Next intI
'ось У
Picture1.Line (0, 2)-(0, -2)
For intI = -2 To 2
Picture1.PSet (0, intI)
Picture1.Print intI
Next intI
End Sub
- Запустите проект и щелкните по кнопке График.
