Membuat Grafik dengan Visual Basic

Dim x, y As Double
Dim x1, y1 As Double
Dim n, m As Integer
Const x_min = -5
Const y_min = -4
Const x_max = 8
Const y_max = 9
Private Sub Command1_Click()
u = Form1.Picture1.ScaleWidth / (x_max - x_min) * (0 - x_min)
Form1.Picture1.Line (u, 0)-(u, Form1.Picture1.ScaleHeight)

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

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

For m = y_min To y_max Step 1
u = Form1.Picture1.ScaleWidth / (x_max - x_min) * (0 - x_min)
y1 = Form1.Picture1.ScaleHeight / (y_max - y_min) * (y_max - m)
Form1.Picture1.Circle (u, y1), 25, RGB(0, 0, 255)
Form1.Picture1.Print m
Next m
End Sub
Private Sub Command2_Click()
For x = -2 To 3 Step 0.001
y = x
u = Form1.Picture1.ScaleWidth / (x_max - x_min) * (x - x_min)
v = Form1.Picture1.ScaleHeight / (y_max - y_min) * (y_max - y)
Form1.Picture1.PSet (u, v), RGB(0, 0, 255)
Next x
End Sub
Private Sub Command3_Click()
For x = -2 To 3 Step 0.001
y = x * x
u = Form1.Picture1.ScaleWidth / (x_max - x_min) * (x - x_min)
v = Form1.Picture1.ScaleHeight / (y_max - y_min) * (y_max - y)
Form1.Picture1.PSet (u, v), RGB(0, 0, 255)
Next x
End Sub
Private Sub Command4_Click()
For x = -2 To 2 Step 0.001
y = Sqr(4 - (x * x))
u = Form1.Picture1.ScaleWidth / (x_max - x_min) * (x - x_min)
v = Form1.Picture1.ScaleHeight / (y_max - y_min) * (y_max - y)
Form1.Picture1.PSet (u, v), RGB(0, 0, 255)
Form1.Picture1.PSet (u, v), RGB(0, 0, 255)
Next x
For x = -2 To 2 Step 0.001
y = -Sqr((4 - (x * x)))
u = Form1.Picture1.ScaleWidth / (x_max - x_min) * (x - x_min)
v = Form1.Picture1.ScaleHeight / (y_max - y_min) * (y_max - y)
Form1.Picture1.PSet (u, v), RGB(0, 0, 255)
Form1.Picture1.PSet (u, v), RGB(0, 0, 255)
Next x
End Sub

Private Sub Command5_Click()
For x = -2 To 3 Step 0.001
y = (x * x) - (3 * x) + 4
u = Form1.Picture1.ScaleWidth / (x_max - x_min) * (x - x_min)
v = Form1.Picture1.ScaleHeight / (y_max - y_min) * (y_max - y)
Form1.Picture1.PSet (u, v), RGB(0, 0, 255)
Next x

End Sub

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