A Prayer Tuhanku…
Aku berdo’a untuk seorang pria yang akan menjadi bagian dari hidupku
Seseorang yang sungguh mencintaiMu lebih dari segala sesuatu
Seorang pria yang akan meletakkanku pada posisi kedua di hatinya setelah Engkau
Seorang pria yang hidup bukan untuk dirinya sendiri tetapi untukMu
Wajah tampan dan daya tarik fisik tidaklah penting
Yang penting adalah sebuah hati yang sungguh mencintai dan dekat dengan Engkau
dan berusaha menjadikan sifat-sifatMu ada pada dirinya
Dan ia haruslah mengetahui bagi siapa dan untuk apa ia hidup sehingga hidupnya tidaklah sia-sia
Seseorang yang memiliki hati yang bijak tidak hanya otak yang cerdas
Seorang pria yang tidak hanya mencintaiku tapi juga menghormatiku
Seorang pria yang tidak hanya memujaku tetapi juga dapat menasihatiku ketika aku berbuat salah
Seseorang yang mencintaiku bukan karena kecantikanku tapi karena hatiku
Seorang pria yang dapat menjadi sahabat terbaikku dalam setiap waktu dan situasi
Seseorang yang dapat membuatku merasa sebagai seorang wanita ketika aku di sisinya
Tuhanku…
Aku tidak meminta seseorang yang sempurna namun aku meminta seseorang yang tidak sempurna,
sehingga aku dapat membuatnya sempurna di mataMu
Seorang pria yang membutuhkan dukunganku sebagai peneguhnya
Seorang pria yang membutuhkan doaku untuk kehidupannya
Seseorang yang membutuhkan senyumku untuk mengatasi kesedihannya
Seseorang yang membutuhkan diriku untuk membuat hidupnya menjadi sempurna
Tuhanku…
Aku juga meminta,
Buatlah aku menjadi wanita yang dapat membuatnya bangga
Berikan aku hati yang sungguh mencintaiMu sehingga aku dapat mencintainya dengan sekedar cintaku
Berikanlah sifat yang lembut sehingga kecantikanku datang dariMu
Berikanlah aku tangan sehingga aku selalu mampu berdoa untuknya
Berikanlah aku penglihatan sehingga aku dapat melihat banyak hal baik dan bukan hal buruk dalam dirinya
Berikanlah aku lisan yang penuh dengan kata-kata bijaksana,
mampu memberikan semangat serta mendukungnya setiap saat dan tersenyum untuk dirinya setiap pagi
Dan bilamana akhirnya kami akan bertemu, aku berharap kami berdua dapat mengatakan:
“Betapa Maha Besarnya Engkau karena telah memberikan kepadaku pasangan yang dapat membuat hidupku menjadi sempurna.”
Aku mengetahui bahwa Engkau ingin kami bertemu pada waktu yang tepat
Dan Engkau akan membuat segala sesuatunya indah pada waktu yang telah Engkau tentukan
Amin….
source: dudung.net
Rabu, 19 Mei 2010
Rabu, 12 Mei 2010
Form2(lanjutan)
Private Sub Command1_Click()
Label2.Caption = "nama saya " + Text1.Text + " angkatan " + Combo2.Text
If Combo1.Text = "P. Mat" Then
Label3.Caption = "Program Studi Pendidikan Matematika, S1"
ElseIf Combo1.Text = "Mat" Then
Label3.Caption = "Program Studi Matematika, S1"
Else
Label3.Caption = "Program Studi Statisitik Terapan dan Komputasi, S1 "
End If
If Option1.Value = True Then Label4.Caption = "Jenis Kelamin Laki-laki"
If Option2.Value = True Then Label4.Caption = "Jenis Kelamin Perempuan"
End Sub
Private Sub Command2_Click()
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
Private Sub Form_Load()
Label5.Caption = "Selamat Datang," + Form2.Text1.Text
End Sub
Label2.Caption = "nama saya " + Text1.Text + " angkatan " + Combo2.Text
If Combo1.Text = "P. Mat" Then
Label3.Caption = "Program Studi Pendidikan Matematika, S1"
ElseIf Combo1.Text = "Mat" Then
Label3.Caption = "Program Studi Matematika, S1"
Else
Label3.Caption = "Program Studi Statisitik Terapan dan Komputasi, S1 "
End If
If Option1.Value = True Then Label4.Caption = "Jenis Kelamin Laki-laki"
If Option2.Value = True Then Label4.Caption = "Jenis Kelamin Perempuan"
End Sub
Private Sub Command2_Click()
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
Private Sub Form_Load()
Label5.Caption = "Selamat Datang," + Form2.Text1.Text
End Sub
DATA MAHASISWA
Private Sub Command1_Click()
If Text2.Text = "mahasiswa" Then
Form1.Visible = True
Form2.Visible = False
Else
Label3.Caption = "password salah"
End If
End Sub
If Text2.Text = "mahasiswa" Then
Form1.Visible = True
Form2.Visible = False
Else
Label3.Caption = "password salah"
End If
End Sub
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
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
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
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
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
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
Langganan:
Postingan (Atom)