Построение графика функции. Применение метода Scale

Применение метода Scale

Имя_объекта.Scale(Xmin,Ymax)-(Xmax,Ymin)

Private Sub Command1_Click() Picture1.Cls Picture1.Scale (0, 6)-(10, 0) For j = 0 To 6 Step 0.5 Picture1.Line (0, j)-(10, j), vbWhite Next For i = 0 To 10 Step 0.5 Picture1.Line (i, 0)-(i, 6), vbWhite Next End Sub

Общий вид формы	Изменение свойств графического окна при проектировании (FillColor, FillStyle, AutoRedraw)

'Задание вида функции
Function F(x)
F = 3 * Sin(x) * Cos(x / 6)
End Function

Private Sub Command1_Click()
Const pi = 3.1415926
Picture1.Cls
miny = 0: maxy = 0: minx = 0: maxx = 0
'Цикл для нахождения минимального и
'максимального значения функции
For x = -2 * pi To 2 * pi Step 0.1
y = F(x)
If y < miny Then
miny = y
minx = x
End If
If y > maxy Then
maxy = y
maxx = x
End If
Next
'Разметка графического окна методом Scale
Picture1.Scale (-2 * pi, maxy)-(2 * pi, miny)
'Вывод на метку значений минимума и максимума функции с
'соответствующими аргументами
Label1.Left = maxx - 1 'Задание координат левого
Label1.Top = -0.3 'верхнего угла метки
Label1.Caption = Format(maxx, "0.00")+"; "+Format(maxy, "0.00")
Label2.Left = minx – 1
Label2.Top = 0.5
Label2.Caption = Format(minx, "0.00")+"; "+Format(miny, "0.00")
'Построение оси Х
Picture1.Line (-2 * pi, 0)-(2 * pi, 0), vbBlack
'Построение оси y
Picture1.Line (0, -2 * pi)-(0, 2 * pi), vbBlack
'Цикл для построения графика функции методом Pset
For x = -2 * pi To 2 * pi Step 0.01
y = F(x)
Picture1.PSet (x, y), vbRed
Next
'Пометка на графике точек максимума и минимума функции
Picture1.Circle (maxx, maxy), 0.15, vbRed
Picture1.Line (maxx, maxy)-(maxx, 0), vbWhite
Picture1.Circle (minx, miny), 0.15, vbRed
Picture1.Line (minx, miny)-(minx, 0), vbWhite
End Sub

Дата добавления: 2014-11-16