membuat struktur select & case
Disini saya akan memberi tutorial membuat program yang menggunakan struktur Select .. Case seperti gambar dibawah ini... menarik bukan ??
Langkah-langkahnya :
1. kamu harus buat project di visual basic . pertama Open project Standard EXE seperti dibawah.
2. buat form seperti dibawah ini....
3. lalu buatlah Label dan beri nama label1 dan Caption-nya isikan dengan PILIH BARANG
4. Selanjutnya buatlah list dengan menggunakan menu list box.. berikan nama List1
5. setelah membuat list , lalu buatlah label barang dengan menggunakan menu Label . beri nama lblbarang dan biarkan saja kosong. ubah warna (palette) menjadi warna putih
6. lalu buatlah label label harga seperti membuat label barang diatas... beri nama label harga dan ubah data format currency seperti dibawah ini
7. setelah itu buatlah label jumlah
8. selanjutnya buatlah label diskon
9. dan buat label yang terakhir.. yaitu label total
10. setelah membuat label diatas buatlah label jumlah warnanya (palette) normal. dan berikan caption Jumlah :
11. setelah selesai proses diatas.. buatlah text box seperti gambar dibawah ini. berinama text1
12. selanjutnya buatlah button dengan menu CommandButton dan beri nama Command1. lalu berikan caption OK
13. Setelah semua desain selesai kita lanjutkan dengan memasukkan kode-kodenya !
- Copy semua 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 selesai dimasukkan kedalam projectnya.. cobalah klik run lalu klik start ..
- Jika program tersebut bisa dijalankan berarti anda telah berhasil membuat project Select ... Case seperti dibawah ini !!
0 komentar :
Posting Komentar