Pada postingan saya yang pertama ini, saya akan coba untuk
men’share’kan soal pra UTS yang saya dapati dikelas. Bukan cuma soalnya yang
akan saya share, namun juga codingan yang saya buat ketika itu.
Maksud saya nge’share soal pra UTS ini hanya untuk sekedar
berbagi dan jika teman teman melihat ada kekurangan pada codingan saya, mohon
untuk memberikan kritik dan saran nya pada kolom komentar dibawah. karna jujur
saja, saya bukan orang yang ahli dalam visual basic, dan saya masih dalam tahap
belajar, saya juga pasti sangat membutuhkan saran dan pendapat dari teman teman
untuk menambah wawasan kita semua. Terima kasih . . .
Berikut ini adalah soal yang diberikan sang dosen kepada
kelas kami . . . Cekidot . . .
Dengan ketentuan sebagai berikut..
1.
Kode diklik dan tampil nama sebagai berikut :
Kode
|
ALH
|
PUI
|
IZH
|
Nama
|
Alimah
|
Putri
|
Idzharul
|
- PAKET01
-
Potong rambut
-
Lulur
-
Creambath
- PAKET02
-
Potong Rambut
-
Facial
-
Mandi susu
- PAKET03
-
Potong Rambut
-
Totok Wajah
-
Facial
Ø
Panjang
Ø
Pendek
Paket
|
Jenis Rambut
|
Harga
|
PAKET01
|
Panjang
|
80000
|
Pendek
|
60000
|
|
PAKET02
|
Panjang
|
90000
|
Pendek
|
70000
|
|
PAKET03
|
Panjang
|
100000
|
Pendek
|
90000
|
Ø
Hair Tonic = 40000
Ø
Vitamin Rambut =
50000
6. Tombol
Hitung berfungsi untuk mentotal harga yang harus dibayar (total bayar =harga+biaya).
7 Uang
kembali akan muncul setelah uang bayar diberi nilai dan di enter. (uang kembali
= uang bayar – total bayar).
8. Ketika
tombol LAGI di klik, maka semua akan kosong dan kursor terletak pada kode.
9 Pada
saat tombol KELUAR di klik maka akan muncul tampilan sebagai berikut.
Dan codingan yang saya buat
adalah sebagi berikut.
1. Setelah
membuat design, pertama kali yang saya lakukan adalah membuat kodingan pada text box kode kasir:
Private Sub Ckd_k_Click() // Combobox kode
kasir saya beri nama Ckd_k
If Ckd_k = "ALH" Then // teks box nama saya beri nama Tnm_k
Tnm_k = "Alimah"
Else
If Ckd_k = "PUI" Then
Tnm_k = "Putri"
Else
Tnm_k = "Idzharul"
End If
End If
End Sub
2. Selanjutnya
saya membuat codingan untuk PAKET :
Private Sub Cpaket_Click() // Combobox
pilih paket saya beri nama Cpaket
If Cpaket = "PAKET01" Then // listbox paket saya beri nama Lpaket
LPAKET.Clear
LPAKET.AddItem "Potong Rambut"
LPAKET.AddItem "Lulur, Creambath"
Else
If Cpaket = "PAKET02" Then
LPAKET.Clear
LPAKET.AddItem "Potong Rambut"
LPAKET.AddItem "Facial, Mandi Susu"
Else
LPAKET.Clear
LPAKET.AddItem "Potong Rambut,
Totok"
LPAKET.AddItem "Wajah, Facial"
End If
End If
End Sub
3 . Selanjutnya
saya membuat codingan pada jenis rambut.
Private Sub Cjenis_Click() // combo box jenis
rambut saya beri nama Cjenis.
If Cpaket = "PAKET01" Then
If
Cjenis = "PENDEK" Then
Thrg = 60000 //text
box harga saya beri nama Thrg
Else
Thrg = 80000
End If
Else
If Cpaket = "PAKET02" Then
If
Cjenis = "PENDEK" Then
Thrg = 70000
Else
Thrg = 90000
End If
Else
If Cpaket = "PAKET03" Then
If
Cjenis = "PENDEK" Then
Thrg = 90000
Else
Thrg = 100000
End If
Else
Thrg = ""
End If
End If
End If
End Sub
4. Setelah
selesai, saya membut codingan pada check
box:
Private Sub Ctonic_Click() //check box hair
Tonic saya beri nama Ctonic
If Ctonic = 1 And Cvitamin = 1 Then
Tbiaya = 90000 //Text
box biaya saya beri nama Tbiaya
Else
If Ctonic = 1 Then
Tbiaya = 40000
Else
If Cvitamin = 1 Then
Tbiaya = 50000
Else
Tbiaya = ""
End If
End If
End If
End Sub
Check box hair
tonic dan check box vitamin rambut dibuat sama.
Private Sub Cvitamin_Click() //check box Vitamin Rambut
saya beri nama Cvitamin
If Ctonic = 1 And Cvitamin = 1 Then
Tbiaya = 90000
Else
If Ctonic = 1 Then
Tbiaya = 40000
Else
If Cvitamin = 1 Then
Tbiaya = 50000
Else
Tbiaya = ""
End If
End If
End If
End Sub
5. Setelah
Selesai dengan check box, kemudian saya membuat kodingan pada command hitung.
Private Sub Chitung_Click() //command
hitung saya beri nama Chitung
Ttotal = Val(Thrg) + Val(Tbiaya) //text
box total saya beri nama Ttotal
End Sub
6. Untuk
menghasil kan uang kembali, saya membuat codingan pada text box uang bayar,
sebagai berikut :
Private
Sub Tubay_KeyPress(KeyAscii As Integer)
//text box uang bayar saya beri nama Tubay
If KeyAscii = 13 Then // text box uang kembali saya beri nama Tukem
Tukem = Tubay - Ttotal
End If
End Sub
7. Saat
command LAGI di klik semua akan
bersih, dan kursor pada kode, berikut adalah kodingannya.
Private Sub Clagi_Click() //command
LAGI saya beri nama Clagi
Ckd_k = ""
Tnm_k = ""
Cpaket = ""
LPAKET.Clear
Cjenis = ""
Thrg = ""
Ctonic = False
Cvitamin = False
Tbiaya = ""
Ttotal = ""
Tubay = ""
Tukem = ""
Ckd_k.SetFocus
End Sub
8. Command
keluar kodingannya sebagai berikut :
Private Sub Ckeluar_Click() //command keluar saya beri nama Ckeluar
keluar = MsgBox("Anda yakin akan
keluar..?", vbQuestion + vbYesNo, "Informasi")
If keluar = vbYes Then
End
End If
End Sub
9. Selanjuatnya
adalah membuat tanggal dan waktu, berikut adalah codingannya :
Private Sub Timer1_Timer()
LTANGGAL = Date //Label Tanggal saya beri
nama LTANGGAL.
LWAKTU = Time //Label Waktu saya
beri nama LWAKTU
End Sub
Jangan lupa kritik dan sarannya
kawan
Terima kasih atas kunjungannya. .
.
good
BalasHapus