Kamis, 16 Maret 2017
KUIS 2
by: Dela.J
“Membuat Aplikasi Kolam Renang
AQUARIUS”
Masukkan kontrol-kontrol seperti
gambar di bawah:
2 Frame
8 Label
2 ComboBox
2 OptionButton
7 TextBox
3 CheckBox
3 CommandButton
Susun dan Edit kontrol diatas seperti gambar dibawah:
Setelah selesai masukkan Code. Dengan
ketentuan :
- Jika di pilih salah satu optionbutton ‘L/P’ maka akan muncul keterang di kolom sampingnya ‘L untuk Laki-laki dan P untuk Perempuan’.
- Pada ComboBox ‘Jenis Kolam Renang’ terdapat dua item yaitu ‘Dewasa dan anak-anak’, jika dipilih salah satu maka akan muncul keterangan harga di kolom ‘Harga Tiket Per-orang’.
- Pada ChecBox jika di ceklist maka akan muncul harganya di kolom sampingnya.
- Terakhir, ketika klik CommandButton ‘HITUNG’ maka akan muncul hasil/uang yang harus dibayarkan di kolom ‘TOTAL PEMBAYARAN’.
Berikut Coding-nya:
Kode untuk ComboBox Jenis Kolam Renang
Private Sub CboJenis_Click()
If CboJenis.Text = "Dewasa" Then
TxtHarga.Text = "25000"
ElseIf CboJenis.Text = "Anak-anak" Then
TxtHarga.Text = "15000"
End If
End Sub
Kode untuk CheckBox Coca cola
Private Sub ChkCola_Click()
If ChkCola.Value = 1 Then
TxtCola.Text = "6000"
ElseIf ChkCola.Value = 0 Then
TxtCola.Text = ""
End If
End Sub
Kode untuk CheckBox Parfait
Private Sub ChkParfait_Click()
If ChkParfait.Value = 1 Then
TxtPar.Text = "12000"
ElseIf ChkParfait.Value = 0 Then
TxtPar.Text = ""
End If
End Sub
Kode untuk CheckBox Potato
Private Sub ChkPotato_Click()
If ChkPotato.Value = 1 Then
TxtPotato.Text = "5000"
ElseIf ChkPotato.Value = 0 Then
TxtPotato.Text = ""
End If
End Sub
Kode untuk Tombol CommandButton Hitung
Private Sub CmdHitung_Click()
If ChkPotato.Value = Checked Then
total = total + 5000
End If
If ChkCola.Value = Checked Then
total = total + 6000
End If
If ChkParfait.Value = Checked Then
total = total + 12000
End If
TxtTotal.Text = Val(TxtHarga.Text) * Val(TxtJumlah.Text) + Val(total)
End Sub
Kode untuk Tombol CommandButton Keluar
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Kode untuk Tombol CommandButton Lagi
Private Sub CmdLagi_Click()
TxtNama.Text = ""
TxtJenis.Text = ""
TxtHarga.Text = ""
TxtJumlah.Text = ""
TxtTotal.Text = ""
CboNomor.Text = ""
CboJenis.Text = ""
TxtCola.Text = ""
TxtPotato.Text = ""
TxtPar.Text = ""
End Sub
Kode untuk Sub Form
Private Sub Form_Load()
CboNomor.AddItem "1"
CboNomor.AddItem "2"
CboNomor.AddItem "3"
CboNomor.AddItem "4"
CboNomor.AddItem "5"
CboNomor.AddItem "6"
CboNomor.AddItem "7"
CboNomor.AddItem "8"
CboNomor.AddItem "9"
CboNomor.AddItem "10"
CboNomor.AddItem "11"
CboNomor.AddItem "12"
CboNomor.AddItem "13"
CboNomor.AddItem "14"
CboNomor.AddItem "15"
CboJenis.AddItem "Dewasa"
CboJenis.AddItem "Anak-anak"
End Sub
Kode untuk OptionButton L
Private Sub OptLaki_Click()
TxtJenis.Text = "Laki-Laki"
End Sub
Kode untuk OptionButton P
Private Sub OptPerempuan_Click()
TxtJenis.Text = "Perempuan"
End Sub
Setelah selesai pilih RUN>Start
atau tekan F5 (biar cepet)
Isikan manual di kolom ‘Nama Pengunjung, dan Jumlah
orang”. Hasilnya seperti gambar dibawah:
"Semoga bermanfaat"
"Terimakasih"
by: Jeje_Art
by: Jeje_Art
