Membuat Program Sedehana untuk Vektor

Posted by arbi pramana On Rabu, 29 September 2010 0 komentar
langkah yang pertama
- buat form awal seperti berikut


- buat menu editor seperti berikut


- klik form awal, lalu pada object pilih general dan masukan coding seperti di bawah ini

Private Sub di3_Click()
Form5.Show
Unload Me
End Sub

Private Sub ku1_Click()
Form2.Show
Unload Me
End Sub

Private Sub ku3_Click()
Form4.Show
Unload Me
End Sub

Private Sub ku4_Click()
Form6.Show
Unload Me
End Sub

Private Sub kuII_Click()
Form3.Show
Unload Me
End Sub


- buat form baru / ke 2 pada program vb tersebut
buat bentuk form seperti ini


lalu buat coding seperti berikut pada object umum (general):

Private Sub Command1_Click()
Text7.Text = Tan(Val(Text4.Text) / Val(Text1.Text))
Text10.Text = Sqr((Val(Text1.Text) ^ 2) + (Val(Text4.Text) ^ 2))
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub


-buat lagi form berikutnya / ke 3 dengan cara yang sama
-buat bentuk formnya


-lalu masukan codingnya seperti berikut, sama seperti yang tadi di tempatkan pada object umum (general)

Private Sub Command1_Click()
Text7.Text = 180 - Tan(Val(Text4.Text) / Val(Text1.Text))
Text10.Text = Sqr((Val(Text1.Text) ^ 2) + (Val(Text4.Text) ^ 2))
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub

-buat lagi form berikutnya yang ke 4
-buat bentuk formnya


masukan codingnya dengan cara yang sama

Private Sub Command1_Click()
Text7.Text = 180 + Tan(Val(Text4.Text) / Val(Text1.Text))
Text10.Text = Sqr((Val(Text1.Text) ^ 2) + (Val(Text4.Text) ^ 2))
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub

-buat lagi form berikutnya yang ke 5
-buat bentuk formnya


masukan codingnya

Private Sub Command1_Click()
Text10.Text = Sqr((Val(Text1.Text) ^ 2) + (Val(Text4.Text) ^ 2) + (Val(Text2.Text) ^ 2))
Text7.Text = Cos((Val(Text1.Text) / Text10.Text))
Text3.Text = Cos((Val(Text4.Text) / Text10.Text))
Text5.Text = Cos((Val(Text2.Text) / Text10.Text))
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub


-buat lagi form yang ke 6
- bentuk formnya


masukan codingnya


Private Sub Command1_Click()
a = (Val(Text2.Text) - Val(Text1.Text))
b = (Val(Text3.Text) - Val(Text4.Text))
c = Val(b / a)
Text7.Text = Val(360 - Tan(c))
Text10.Text = Sqr((Val(Text1.Text) ^ 2) + (Val(Text4.Text) ^ 2))
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub

selesai.. sekian ia.. selamat mencoba..

0 komentar:

Posting Komentar