Kali ini, saya akan menerangkan cara membuat program dengan struktur logika SELECT CASE menggunakan Program Visual Basic 6. Struktur ini memeriksa suatu variabel, lalu menjalankan perintah-perintah yang sesuai dengan kondisi yang mungkin terjadi untuk variabel tersebut. Untuk yang satu ini, kita akan menggunakan program keluaran Microsoft Visual Basic 6 untuk membuat aplikasi desktop.
Pertama kita akan membuat program Visual Basic 6 (VB6). Apabila anda belum mempunyai programnya, bisa didownload secara gratis dari faidishare.com disini dan isi serial numbernya dengan 812-2224558 atau 111-1111111.
Kemudian, klik File > New Project > Standard EXE > OK.
Kita akan buat desain seperti dibawah ini :
0 = untuk form kita beri Tag/Captionnya Lets Try.. atau sesuai selera anda di Properties (sebelah paling kanan)
1 = Kita biarkan (Name)nya List1 di properties
2 = Kita biarkan (Name)nya Text1 di properties
3 = (Name)nya diberi nama lblBarang
4 = (Name)nya diberi nama lblHarga
5 = (Name)nya diberi nama lblDiskon
6 = (Name)nya diberi nama lblJumlah
7 = (Name)nya diberi nama lblTotal
8 = Biarkan (Name)nya Command1
Kemudian pada toolbar > View > Code
Isilah kode* tersebut dengan yang dibawah ini :
Pertama kita akan membuat program Visual Basic 6 (VB6). Apabila anda belum mempunyai programnya, bisa didownload secara gratis dari faidishare.com disini dan isi serial numbernya dengan 812-2224558 atau 111-1111111.
Kemudian, klik File > New Project > Standard EXE > OK.
Kita akan buat desain seperti dibawah ini :
0 = untuk form kita beri Tag/Captionnya Lets Try.. atau sesuai selera anda di Properties (sebelah paling kanan)
1 = Kita biarkan (Name)nya List1 di properties
2 = Kita biarkan (Name)nya Text1 di properties
3 = (Name)nya diberi nama lblBarang
4 = (Name)nya diberi nama lblHarga
5 = (Name)nya diberi nama lblDiskon
6 = (Name)nya diberi nama lblJumlah
7 = (Name)nya diberi nama lblTotal
8 = Biarkan (Name)nya Command1
Kemudian pada toolbar > View > Code
Isilah kode* tersebut dengan yang dibawah ini :
[code hl="1, 4, 7"]
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
[/code]
Sehingga jadi seperti ini
Setelah itu, klik Run > Run atau tekan F5 pada keyboard, sehingga jadinya akan seperti ini.
Sehingga jadi seperti ini
Setelah itu, klik Run > Run atau tekan F5 pada keyboard, sehingga jadinya akan seperti ini.
CARA KERJA PROGRAM :
Program ini, memakai struktur SELECT CASE untuk memilih barang yang akan dibeli dan akan menampilkan harga dan diskon dari barang tersebut. Dari sini
kita bisa mengetahui fungsi dari SELECT CASE itu sendiri, yaitu tipe percabangan untuk memilih suatu variabel yang nantinya akan di output-kan.
Semoga artikel ini bermanfaat bagi kalian yang ingin tahu lebih lanjut tentang pemograman. Salam.
*Note : Apabila kalian menemukan masalah di saat mengpastekan kodenya, kalian harus merapikannya terlebih dahulu. Terutama di bagian lblHarga dan lblTotal.
**Note : (Name) dari label dan seluruh desain from harus sama dengan di script kode.
