Interaktif

Herlin Nurdianasari 4101408164 [ 12/05/10, 15:27]: 1.menu
Private Sub Command1_Click()
GrafikKoor.Visible = True
Menu.Visible = False
End Sub

Private Sub Command2_Click()
Trigono.Visible = True
Menu.Visible = False
End Sub

Private Sub Command3_Click()
interaktif.Visible = True
Menu.Visible = False
End Sub
2. grafik
Dim u, v As Double
Dim x1, y1, y2 As Double
Dim m, n, s, t, t1, t2 As Integer
Const x_min = -3
Const x_max = 8
Const y_min = -3
Const y_max = 8

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

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

For m = y_min To y_max Step 1
y1 = GrafikKoor.Picture1.ScaleHeight / (y_max - y_min) * (y_max - m)
u = GrafikKoor.Picture1.ScaleWidth / (x_max - x_min) * (0 - x_min)
GrafikKoor.Picture1.Circle (u, y1), 25, RGB(0, 0, 225)
Next m

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

For n = x_min To x_max Step 1
x1 = GrafikKoor.Picture1.ScaleWidth / (x_max - x_min) * (n - x_min)
v = GrafikKoor.Picture1.ScaleHeight / (y_max - y_min) * (y_max - 0)
GrafikKoor.Picture1.CurrentX = x1
GrafikKoor.Picture1.CurrentY = v
GrafikKoor.Picture1.Print n
Next n

For m = y_min To y_max Step 1
y1 = GrafikKoor.Picture1.ScaleHeight / (y_max - y_min) * (y_max - m)
u = GrafikKoor.Picture1.ScaleWidth / (x_max - x_min) * (0 - x_min)
GrafikKoor.Picture1.CurrentY = y1
GrafikKoor.Picture1.CurrentX = u
GrafikKoor.Picture1.Print m
Next m

End Sub

Private Sub Command2_Click()
For n = -2 To 6 Step 1 / 1000
s = GrafikKoor.Picture1.ScaleWidth / (x_max - x_min) * (n - x_min)
t = GrafikKoor.Picture1.ScaleHeight / (y_max - y_min) * (y_max - n)
GrafikKoor.Picture1.PSet (s, t), RGB(0, 0, 200)
Next n
End Sub

Private Sub Command3_Click()
For n = -2 To 6 Step 1 / 1000
y = (n ^ 2) - 3 * n + 2
s = GrafikKoor.Picture1.ScaleWidth / (x_max - x_min) * (n - x_min)
t = GrafikKoor.Picture1.ScaleHeight / (y_max - y_min) * (y_max - y)
GrafikKoor.Picture1.PSet (s, t), RGB(200, 0, 0)
Next n
End Sub

Private Sub Command4_Click()
For x = -2 To 2 Step 1 / 1000
y1 = (4 - (x ^ 2)) ^ (1 / 2)
y2 = -1 * ((4 - (x ^ 2)) ^ (1 / 2))
s = GrafikKoor.Picture1.ScaleWidth / (x_max - x_min) * (x - x_min)
t1 = GrafikKoor.Picture1.ScaleHeight / (y_max - y_min) * (y_max - y1)
t2 = GrafikKoor.Picture1.ScaleHeight / (y_max - y_min) * (y_max - y2)
GrafikKoor.Picture1.PSet (s, t1), RGB(0, 200, 0)
GrafikKoor.Picture1.PSet (s, t2), RGB(0, 200, 0)
Next x

End Sub

Private Sub Command5_Click()
Menu.Visible = True
GrafikKoor.Visible = False
End Sub
3. trygonomety
Dim x, y As Double
Dim u, v As Double
Dim alpha, s, t As Double
Const x_min = -90
Const y_min = -2
Const x_max = 360
Const y_max = 2

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

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

For m = y_min To y_max Step 1
y1 = Trigono.Picture1.ScaleHeight / (y_max - y_min) * (y_max - m)
u = Trigono.Picture1.ScaleWidth / (x_max - x_min) * (0 - x_min)
Trigono.Picture1.Circle (u, y1), 25, RGB(0, 0, 225)
Next m

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

For n = x_min To x_max Step 90
x1 = Trigono.Picture1.ScaleWidth / (x_max - x_min) * (n - x_min)
v = Trigono.Picture1.ScaleHeight / (y_max - y_min) * (y_max - 0)
Trigono.Picture1.CurrentX = x1
Trigono.Picture1.CurrentY = v
Trigono.Picture1.Print n
Next n

For m = y_min To y_max Step 1
y1 = Trigono.Picture1.ScaleHeight / (y_max - y_min) * (y_max - m)
u = Trigono.Picture1.ScaleWidth / (x_max - x_min) * (0 - x_min)
Trigono.Picture1.CurrentY = y1
Trigono.Picture1.CurrentX = u
Trigono.Picture1.Print m
Next m

End Sub

Private Sub Command2_Click()
For x = -90 To 360 Step 0.01
y = Sin(x / 57)
s = Trigono.Picture1.ScaleWidth / (x_max - x_min) * (x - x_min)
t = Trigono.Picture1.ScaleHeight / (y_max - y_min) * (y_max - y)
Trigono.Picture1.PSet (s, t), RGB(0, 115, 0)
Next x
End Sub

Private Sub Command3_Click()
For x = -90 To 360 Step 0.01
y = Cos(x / 57)
s = Trigono.Picture1.ScaleWidth / (x_max - x_min) * (x - x_min)
t = Trigono.Picture1.ScaleHeight / (y_max - y_min) * (y_max - y)
Trigono.Picture1.PSet (s, t), RGB(255, 0, 0)
Next x
End Sub

Private Sub Command4_Click()
For x = -90 To 360 Step 0.01
y = Tan(x / 57)
s = Trigono.Picture1.ScaleWidth / (x_max - x_min) * (x - x_min)
t = Trigono.Picture1.ScaleHeight / (y_max - y_min) * (y_max - y)
Trigono.Picture1.PSet (s, t), RGB(0, 0, 255)
Next x
End Sub

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

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

For m = y_min To y_max Step 1
y1 = Trigono.Picture1.ScaleHeight / (y_max - y_min) * (y_max - m)
u = Trigono.Picture1.ScaleWidth / (x_max - x_min) * (0 - x_min)
Trigono.Picture1.Circle (u, y1), 25, RGB(0, 0, 225)
Next m

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

For n = x_min To x_max Step 90
x1 = Trigono.Picture1.ScaleWidth / (x_max - x_min) * (n - x_min)
v = Trigono.Picture1.ScaleHeight / (y_max - y_min) * (y_max - 0)
Trigono.Picture1.CurrentX = x1
Trigono.Picture1.CurrentY = v
Trigono.Picture1.Print n
Next n

For m = y_min To y_max Step 1
y1 = Trigono.Picture1.ScaleHeight / (y_max - y_min) * (y_max - m)
u = Trigono.Picture1.ScaleWidth / (x_max - x_min) * (0 - x_min)
Trigono.Picture1.CurrentY = y1
Trigono.Picture1.CurrentX = u
Trigono.Picture1.Print m
Next m

End Sub

Private Sub Command6_Click()
Menu.Visible = True
Trigono.Visible = False
End Sub

4.interaktif(belum jadi)
Dim u, v As Double
Dim x1, y1, y2 As Double
Dim m, n, s, t, t1, t2 As Integer
Const x_min = -3
Const x_max = 8
Const y_min = -3
Const y_max = 8

Private Sub Command1_Click()
For n = x_min To x_max Step 1 / 1000
y = (a.Text * (n ^ 2)) + b.Text * n + c.Text
s = interaktif.Picture1.ScaleWidth / (x_max - x_min) * (n - x_min)
t = interaktif.Picture1.ScaleHeight / (y_max - y_min) * (y_max - y)
interaktif.Picture1.PSet (s, t), RGB(200, 0, 0)
Next n

End Sub

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

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

For m = y_min To y_max Step 1
y1 = interaktif.Picture1.ScaleHeight / (y_max - y_min) * (y_max - m)
u = interaktif.Picture1.ScaleWidth / (x_max - x_min) * (0 - x_min)
interaktif.Picture1.Circle (u, y1), 25, RGB(0, 0, 225)
Next m

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

For n = x_min To x_max Step 1
x1 = interaktif.Picture1.ScaleWidth / (x_max - x_min) * (n - x_min)
v = interaktif.Picture1.ScaleHeight / (y_max - y_min) * (y_max - 0)
interaktif.Picture1.CurrentX = x1
interaktif.Picture1.CurrentY = v
interaktif.Picture1.Print n
Next n

For m = y_min To y_max Step 1
y1 = interaktif.Picture1.ScaleHeight / (y_max - y_min) * (y_max - m)
u = interaktif.Picture1.ScaleWidth / (x_max - x_min) * (0 - x_min)
interaktif.Picture1.CurrentY = y1
interaktif.Picture1.CurrentX = u
interaktif.Picture1.Print m
Next m
End Sub

Private Sub Command3_Click()
Menu.Visible = True
interaktif.Visible = False
End Sub

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

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

For m = y_min To y_max Step 1
y1 = interaktif.Picture1.ScaleHeight / (y_max - y_min) * (y_max - m)
u = interaktif.Picture1.ScaleWidth / (x_max - x_min) * (0 - x_min)
interaktif.Picture1.Circle (u, y1), 25, RGB(0, 0, 225)
Next m

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

For n = x_min To x_max Step 1
x1 = interaktif.Picture1.ScaleWidth / (x_max - x_min) * (n - x_min)
v = interaktif.Picture1.ScaleHeight / (y_max - y_min) * (y_max - 0)
interaktif.Picture1.CurrentX = x1
interaktif.Picture1.CurrentY = v
interaktif.Picture1.Print n
Next n

For m = y_min To y_max Step 1
y1 = interaktif.Picture1.ScaleHeight / (y_max - y_min) * (y_max - m)
u = interaktif.Picture1.ScaleWidth / (x_max - x_min) * (0 - x_min)
interaktif.Picture1.CurrentY = y1
interaktif.Picture1.CurrentX = u
interaktif.Picture1.Print m
Next m
End Sub

Private Sub Command5_Click()
For x = -1 * (r.Text) To r.Text Step 1 / 1000
y1 = (((r.Text) ^ 2) - ((x - h.Text) ^ 2)) ^ (1 / 2)
y2 = -1 * ((((r.Text) ^ 2) - ((x - h.Text) ^ 2)) ^ (1 / 2))
s = interaktif.Picture1.ScaleWidth / (x_max - x_min) * (x - x_min)
t1 = interaktif.Picture1.ScaleHeight / (y_max - y_min) * (y_max - y1)
t2 = interaktif.Picture1.ScaleHeight / (y_max - y_min) * (y_max - y2)
interaktif.Picture1.PSet (s, t1), RGB(0, 200, 0)
interaktif.Picture1.PSet (s, t2), RGB(0, 200, 0)
Next x
End Sub