Построить гпафик функции заданый параметрически

помогите плиз, а то я больше уже запуталась.
мне необходимо построить график функции:
y(t)=5*(1-cos(t))
x(t)=5*(1-sin(t))
изобразить в Picture
найти наименьшее и наибольшее значение функции для построения.
вот мой код, но он неправильно рисует. подскажите

Private Sub Command1_Click()
Dim x, t, y_t, Min_y, Max_y As Single, y As Single, i As Single
x = 5 * (1 - Sin(t))
t = (Sin(5 + x)) ^ (-1)
y_t = 5 * (1 - Cos(t))
Min_y = 0
Max_y = 0
For x = -15 To 15
y_t = 5 * (1 - Cos(t))
If y_t < Min_y Then Min_y = y_t
If y_t > Max_y Then Max_y = y_t
Next x
Print "Max = "; Max_y; "Min_y ="; Min_y
Picture1.Scale (-15, Max_y)-(15, -0.5)
Picture1.Line (-15, 0)-(15, 0), vbBlack 'ocb X
Picture1.Line (0, Min_y)-(0, Max_y), vbBlack 'ocb Y
For x = -15 To 15 Step 1
Picture1.Line (x, 0)-(x, 15), vbBlack
Picture1.CurrentX = x + 1
Picture1.CurrentY = -0.02
Print
Picture1.Print Format(x, "0")
Next x

For y = Min_y To Max_y Step 1
Picture1.Line (-15, y)-(15, y), vbBlack
Picture1.CurrentX = 1
Picture1.CurrentY = y - 1
Picture1.Print Format(y, "0")
Next y
For x = -15 To 15 Step 0.5
y_t = 5 * (1 - Cos(t))
'Picture1.PSet (x, y_t), vbBlue
'PSet (x, -y_t), vbBlue
Picture1.Circle (x, y_t), 5, RGB(255, 0, 0)
Next x
End Sub

0

Сообщение от Vika_2012 изобразить в Picture

в VBA нет элемента управления "Picture". Вы перепутали раздел Форума, вам надо в раздел "Visual Basic".

0