kali ini aku akan memberi tahu cara membuat program yang menggunakan struktur Select Casemenggunakan VISUAL BASIC seperti gambar berikut
- pertama kalian Open project Standard EXE seperti dibawah.
- slanjutnya kalian buat form seperti gambar ini :
- stelah selsai membuat form, kalian buat label dangan mengklik menu label janagan lupa isikan Caption-nya dengan PILIH BARANG
- setelah itu kalian buat list lalu berikan nama lists1
- lalu buatlah label barang dengan menggunakan menu Label . beri nama lblbarang dan biarkan saja kosong. ubah warna (palette) menjadi warna putih
- setelah itu kalian buatlabel harga seperti membuat label barang diatas... beri nama label harga dan ubah data format currency seperti dibawah ini
- lalu itu buatlah label jumlah
- selanjutnya buatlah label diskon
- trakhir buat label total
- setelah selsai membuat label diatas buatlah label jumlah warnanya (palette) normal. dan berikan caption Jumlah :
- lalu buatlah text box seperti gambar dibawah ini. berinama text1
- selanjutnya buatlah button dengan menu CommandButton dan beri nama Command1. lalu berikan caption OK
- Setelah semua desain selesai kita lanjutkan dengan memasukkan kode-kodenya !
Copy kode ini kedalam desain yang kamu buat .
Private Sub Form_Load()
List1.AddItem "Disket"
List1.AddItem "Buku"
List1.AddItem "Kertas"
List1.AddItem "Pulpen"
End Sub
Private Sub Command1_Click()
Dim harga As Currency, total As Currency
Dim jumlah As Integer
Dim diskon As Single
Dim satuan As String
If List1.Text = "" Then
MsgBox "Anda belum memilih barang!"
List1.ListIndex = 0
Exit Sub
End If
If Text1.Text = "" Then
MsgBox "Anda belum mengisi jumlah barang!"
Text1.SetFocus
Exit Sub
End If
Select Case List1.Text
Case "Disket"
harga = 35000
satuan = "Box"
Case "Buku"
harga = 20000
satuan = "Lusin"
Case "Kertas"
harga = 25000
satuan = "Rim"
Case "Pulpen"
harga = 10000
satuan = "Pak"
End Select
lblbarang.Caption = "Barang : " & List1.Text
lblharga.Caption = "Harga : " & Format(harga, "Currency") & "/" & satuan
lbljumlah.Caption = "Jumlah : " & Text1.Text & "/" & satuan
jumlah = Text1.Text
Select Case jumlah
Case Is < 10
diskon = 0
Case 10 To 20
diskon = 0.15
Case Else
diskon = 0.2
End Select
total = jumlah * (harga * (1 - diskon))
lbldiskon.Caption = "Diskon : " & Format(diskon, "0%")
lbltotal.Caption = "Total Bayar : " & Format(total, "Currency")
End Sub
- setelah kalian selsai memasukan kode di atas ke dalam projectnya... silahkan klik menu RUN lalu klik star. look gambar di bawah ini
- Jika program bisa dijalankan berarti anda telah berhasil membuat project Select ... Case seperti gambar dibawah ini :
