MEMBUAT PROGRAM SEDERHANA MENCARI VOLUME DAN LUAS PERMUKAAN BANGUN KUBUS

Nama    : I Gede Eka Zuki Pradnyana

NPM    : 1216

Kampus 2A Amlapura

MEMBUAT PROGRAM SEDERHANA MENCARI VOLUME DAN LUAS PERMUKAAN BANGUN KUBUS

Langkah kerja :

Untuk membuat program sederhana menghitung volume dan luas permukaan kubus, pertama – tama buat dan aturlah objek – objek seperti terlihat pada gambar :

Setelah itu , letakkan komponen frame pada form, picture box, 3 buah tombol comand dan label seperti gambar :

 

 

 

 

Aturlah properties objek – objek pada form seperti berikut ini :

NAMA	PROPERTIES	NILAI
FORM1	NAME Caption	Frmsoalkubus Soal Bangun Kubus
Label 1	Name Alignment Back color Caption Font	Label1 Center &H00C0C0FF& Soal Bangun Kubus Ms sans serif bold 24
Label 2	Name Caption   font	Label2 Di bawah ini terdapat bangun kubus dengan rusuk Ms sans serif bold 8
Label 3	Name Caption Alignment Fore color	lblrusuk dikosongkan center &H000000FF&
Label 4	Name Caption   Font	Label4 CM TENTUKAN VOLUME DAN LUAS PERMUKAAN Ms sans serif bold 8
Label 5	Name caption	Label5 Kubus tersebut
Frame 1	Name Caption Font	Frame1 INPUT JAWABANNYA DI SINI Ms sans serif bold 10
Label 6	Name Caption font	Label6 Volume Ms sans serif bold 14
Label 7	Name Caption font	Label7 Luas permukaan Ms sans serif bold 14
Label 10	Name Caption font	Label 10 CM Ms sans serif bold 14
Label 11	Name Caption font	Label11 3 Ms sans serif bold 10
Label12	Name Caption Font	Label12 CM Ms sans serif bold 8
Label 13	Name Caption font	Label13 2 Ms sans serif bold 8
Label 8	Name Caption Font backcolor	lblkomenvol dikosongkan ms sans serif bold 18 &H0000FF00&
Label 9	Name Caption Font backcolor	lblkomenluas dikosongkan ms sans serif bold 18 &H0000FF00&
Picture box	picture	( load picture )
Textbox 1	Name Text font	txtvol Dikosongkan Ms sans serif bold 10
texBox 2	Name Text font	txtluas Dikosongkan Ms sans serif bold 10

 

Sehingga hasil akhirnya seperti berikut ini :

 

 

SELANJUTNYA KITA KODING :

1. Deklerasikan variabel – variabel berikut :
   

   Option Explicit
   

   Public bil1, luas, volume, jawabvolume, jawabluas As Integer
   

   
    

2. Setelah itu klik dua kali form1 dan ketikkan kode :
   

   Private Sub Form_Load()
   

   Randomize
   

   lblrusuk.Caption = Int(Rnd * 10)
   

   End Sub
   

   
    

3. Klik 2kali tombol periksa jawaban dan ketikkan kode berikut ini :
   

   Private Sub cmdperiksa_Click()
   

   bil1 = Val(lblrusuk.Caption)
   

   luas = Val(lblrusuk.Caption ^ 2 * 6)
   

   volume = Val(lblrusuk.Caption ^ 3)
   

   jawabvolume = Val(txtvol.Text)
   

   jawabluas = Val(txtluas.Text)
   

   If jawabvolume = volume Then
   

   lblkomenvol.Caption = "VOLUME KUBUS YANG ANDA INPUT SUDAH BENAR"
   

   Else
   

   lblkomenvol.Caption = " VOLUME KUBUS YANG ANDA INPUT SALAH "
   

   End If
   

   If jawabluas = luas Then
   

   lblkomenluas.Caption = "LUAS PERMUKAAN KUBUS YANG ANDA INPUT SUDAH BENAR "
   

   Else
   

   lblkomenluas.Caption = " LUAS PERMUKAAN KUBUS YANG ANDA INPUT SALAH "
   

   End If
   

   End Sub
   

   
    

4. Klik dua kali tombol soal lain dan ketikkan kode :
   

   Private Sub cmdlain_Click()
   

   Randomize
   

   lblrusuk.Caption = Int(Rnd * 10)
   

   txtvol.Text = Empty
   

   txtluas.Text = Empty
   

   lblkomenvol.Caption = Empty
   

   lblkomenluas.Caption = Empty
   

   txtvol.SetFocus
   

   End Sub
   

   
    

5. Double klik tombol keluar dan ketikkan kode :
   

   Private Sub cmdkeluar_Click()
   

   End
   

   End Sub