Построение графика функции - VB (170452)

Формулировка задачи:

Составить программу, которая в центре экрана на синем фоне желтым цветом строит график функции, заданной в параметрической форме : x(t)=(A-B) * cos(t) + D * cos(t*A/B) y(t)=(A-B) * sin(t) + D * sin(t*A/B) , где параметр 0 < t < 2  . Отрисовать график при значении коэффициентов : - А=120, В=40, D=60; - А=120, В=30, D=60; А=120, В=24, D=60 .

Решение задачи: «Построение графика функции»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim A As Single
Dim B As Single
 
Function x(t As Single, A As Single, B As Single) As Single
 x = (A - B) * Cos(t) + d * Cos(t * A / B)
End Function
 
Function y(t As Single, A As Single, B As Single) As Single
 y = (A - B) * Sin(t) + d * Sin(t * A / B)
End Function
 
Private Sub Command1_Click()
Dim t As Single
 A = Val(Text1.Text)
 B = Val(Text2.Text)
 d = Val(Text3.Text)
 Picture1.CurrentX = x(0)
 Picture1.CurrentY = y(0)
 Picture1.BackColor = vbBlue
 Picture1.DrawWidth = 3
 Form1.Print x(0)
 Scale (50, 50)-(500, 500)
 For t = 0 To 2 Step 0.01
  Picture1.Line -(x(t) + 1000, y(t) + 1000), vbYellow
 Next t
End Sub