Membuat Bangun Ruang Dan Bangun Datar Dengan Menggunakan VB

Langkah pertama klik frame pada from dan atur sesuai keinginan anda, lalu ketikan kata-kata seperti       gambar berikut agar terlihat cantik :

Langkah ke dua kita buat gambar klik pada Picture Box dan letakkan pada from lalu pada property pilih picture yang akan digunakan dan klik open hasilnya sebagai berikut :

Langkah ke tiga buat tombol klik pada commend button geser ke form, pada tabel property "caption" diganti dengan "bangun datar" dan "name" diganti "datar". begitu juga dengan tombol yang lainnya tetapi pada "caption dan name" sesuai yang anda inginkan, berikut ini gambaran tombol button :

Apabila ingin melinkkan tombol bangun datar klik 2x pada tombol bangun datar menggunakan perintah sebagai berikut:
Private Sub datar_Click()
b_bgndatar.Show
End Sub

Begitu pula pada tombol bangun ruang klik 2x pada tombol bangun ruang dan ketikkan :
Private Sub ruang_Click()
c_bgnruang.Show
End Sub

Sedangkan tombol button keluar klik 2x pada tombol button keluar dan ketikkan :
Private Sub keluar_Click()
Unload Me
End Sub

Langkah ke empat, buat form baru dengan name "b_bgndatar" dan caption "bangun datar" dan  klik frame pada from dan atur sesuai keinginan anda, lalu buat tombol klik pada commend button geser ke form, pada tabel property misal pada "caption" diganti dengan "persegi" dan "name" diganti "persegi". begitu juga dengan tombol yang lainnya tetapi pada "caption dan name" sesuai yang anda inginkan, berikur gambaran pada form bangun datar.

apabila ingin melinkkan tombol persegi agar masuk ke proses persegi klik 2x pada persegi lalu ketikkan :
Private Sub persegi_Click()
d_persegi.Show
End Sub

Begitu pula dengan tombol-tombol berikutnya perintahnya seperti diatas tinggal ke form berapa yang akan di linkkan.

Langkah ke empat misalnya kita membuat persegi buat form baru dengan name "d_persegi" dan caption "persegi" dan  klik frame pada from dan atur sesuai keinginan anda.
1. pada frame keliling persegi buat label sengan nama sisi.
2. buat textbok lalu pada properrty "name" diberi nama  "s" sedangkan teksnya dikosongkan.
3. buat tombol untuk menghitung klik commend button dan pada property "name" diganti "hkell" dan     "caption" diganti "hitung".
4. klik 2x pada tombol hitung dan ketikan rumus sebagai berikut :
Private Sub hkell_Click()
kellp = 4 * Val(s)
kell.Caption = kellp
End Sub

lalu buat frame kembali untuk membuat luas persegi
1. buat label dengan nama sisi
2. buat textbok lalu pada properrty "name" diberi nama  "s2" sedangkan teksnya dikosongkan.
3. buat tombol untuk menghitung klik commend button dan pada property "name" diganti "htgluas" dan     "caption" diganti "hitung".
4. klik 2x pada tombol hitung dan ketikan rumus sebagai berikut :

Private Sub htgluas_Click()

luasp = Val(s2) * Val(s2)

luas.Caption = luasp

End Sub

sedangkan pada form d_persegi apabila sudah selesai dijalankan agar tampilan form itu langsug hilang maka menggunakan perintah sebagai berikut :

Private Sub Form_Load()

b_bgndatar.Visible = False

End Sub

lalu beri keterangan dan gambar agar terlihat cantik dan interaktif, seperti gambar sebagai berikut :

begitu seterusnya dalam bangun ruang dan bangun datar, akan tetapi rumus-rumusnya yang berbeda.
                                                   

                                                        SELAMAT MENCOBA....