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 :
- Deklerasikan variabel – variabel berikut :
Option Explicit
Public bil1, luas, volume, jawabvolume, jawabluas As Integer
- Setelah itu klik dua kali form1 dan ketikkan kode :
Private Sub Form_Load()
Randomize
lblrusuk.Caption = Int(Rnd * 10)
End Sub
- 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
- 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
- Double klik tombol keluar dan ketikkan kode :
Private Sub cmdkeluar_Click()
End
End Sub