Membuat Program Sedehana untuk Vektor


langkah yang pertama
– buat form awal seperti berikut
ujung harapan
buat menu editor seperti berikut
ujung harapan
– 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

ujung harapan

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
ujung harapan
-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
ujung harapan

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
ujung harapan

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
ujung harapan
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..

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Zoemalang's community

ujung malang adalah Sebuah desa yang hilang terganti dengan ujung harapan

YoYo Games Blog Feed

Ujung malang adalah Sebuah desa yang hilang terganti dengan ujung harapan

Dealer Termurah

Menjual Segala Jenis Motor Baru Di Indonesia Cash Maupun Kredit

%d blogger menyukai ini: