Grafik TRIGONOMETRI dengan Visual Basic

Dim x, y As Double
Dim x1, y1 As Double
Dim n, m As Integer
Const phi = 3.14
Const x_min = -1
Const y_min = -2
Const x_max = 5
Const y_max = 2

Private Sub Command1_Click()
u = Form2.Picture1.ScaleWidth / (x_max - x_min) * (0 - x_min)
Form2.Picture1.Line (u, 0)-(u, Form2.Picture1.ScaleHeight)

v = Form2.Picture1.ScaleHeight / (y_max - y_min) * (y_max - 0)
Form2.Picture1.Line (0, v)-(Form2.Picture1.ScaleWidth, v)

For n = x_min To x_max Step 1
x1 = Form2.Picture1.ScaleWidth / (x_max - x_min) * (n - x_min)
v = Form2.Picture1.ScaleHeight / (y_max - y_min) * (y_max - 0)
Form2.Picture1.Circle (x1, v), 25, RGB(0, 0, 255)
Form2.Picture1.Print 90 * n
Next n

For m = y_min To y_max Step 1
u = Form2.Picture1.ScaleWidth / (x_max - x_min) * (0 - x_min)
y1 = Form2.Picture1.ScaleHeight / (y_max - y_min) * (y_max - m)
Form2.Picture1.Circle (u, y1), 25, RGB(0, 0, 255)
Form2.Picture1.Print m
Next m
End Sub

Private Sub Command2_Click()
For x = x_min To x_max Step 0.01
y = Sin(x * (phi / 2))
u = Form2.Picture1.ScaleWidth / (x_max - x_min) * (x - x_min)
v = Form2.Picture1.ScaleHeight / (y_max - y_min) * (y_max - y)
Form2.Picture1.PSet (u, v), RGB(0, 0, 255)
Next x
End Sub

Private Sub Command3_Click()
For x = x_min To x_max Step 0.01
y = Cos(x * (phi / 2))
u = Form2.Picture1.ScaleWidth / (x_max - x_min) * (x - x_min)
v = Form2.Picture1.ScaleHeight / (y_max - y_min) * (y_max - y)
Form2.Picture1.PSet (u, v), RGB(0, 0, 255)
Next x
End Sub

Private Sub Command4_Click()
For x = x_min To x_max Step 0.01
y = Tan(x * (phi / 2))
u = Form2.Picture1.ScaleWidth / (x_max - x_min) * (x - x_min)
v = Form2.Picture1.ScaleHeight / (y_max - y_min) * (y_max - y)
Form2.Picture1.PSet (u, v), RGB(0, 0, 255)
Next x
End Sub

Private Sub Command5_Click()
Form2.Picture1.Cls
u = Form2.Picture1.ScaleWidth / (x_max - x_min) * (0 - x_min)
Form2.Picture1.Line (u, 0)-(u, Form2.Picture1.ScaleHeight)

v = Form2.Picture1.ScaleHeight / (y_max - y_min) * (y_max - 0)
Form2.Picture1.Line (0, v)-(Form2.Picture1.ScaleWidth, v)

For n = x_min To x_max Step 1
x1 = Form2.Picture1.ScaleWidth / (x_max - x_min) * (n - x_min)
v = Form2.Picture1.ScaleHeight / (y_max - y_min) * (y_max - 0)
Form2.Picture1.Circle (x1, v), 25, RGB(0, 0, 255)
Form2.Picture1.Print 90 * n
Next n

For m = y_min To y_max Step 1
u = Form2.Picture1.ScaleWidth / (x_max - x_min) * (0 - x_min)
y1 = Form2.Picture1.ScaleHeight / (y_max - y_min) * (y_max - m)
Form2.Picture1.Circle (u, y1), 25, RGB(0, 0, 255)
Form2.Picture1.Print m
Next m
End Sub

Private Sub Command6_Click()
Form1.Visible = True
End Sub