Contoh Program Sederhana Select Case

Seperti yang saya katakan di pembahasan sebelumnya, mengenai apa itu select case dan fungsinya, kali ini kita akan membuat program sederhana dengan menggunakan metode select case. Kita akan membuat program Billing warnet, dimana user akan memilih sebuah paket internet, hanya dengan menuliskan satu angka saja, maka penjelasan paket tersebut akan muncul, baiklah berikut tutorialnya :

Sebelum kita memulai tutorialnya, perhatikan terlebih dahulu tabel berikut :

No Case (Paket)	Waktu	Biaya
1	1 Jam	3.000
2	2 Jam	5.000
3	3 Jam	7.000
4	4 Jam	9.000
5	5 Jam	10.500
6	6 Jam	12.000
7	7 Jam	13.500
8	8 Jam	15.000
9	8 Jam (Malam)	10.000

1. Pertama Jalankan VB dan pilih Standar EXE
2. Lalu tambahkan 3 Text box, 1 Command Button dan 4 Label, aturlah tampilanya sehingga seperti ini,

3. Ubahlah Propertiesnya seperti ini :

Tool Box	Properties	Keterangan
Form 1	Star Up Postition	Center Screen
Label 1	Caption	Package
Label 2		Time
Label 3		Cost
Text 1	Name	Text1
	Enabled	True
	Text	(Kosongkan saja)
Text 2	Name	TextWaktu
	Enabled	False
	Text	(Kosongkan saja)
Text 3	Name	TextBiaya
	Enabled	False
	Text	(Kosongkan saja)
Command 1	Caption	DETAILS

Sehingga seperti ini :

4. Lalu Tambahkan script berikut :

Private Sub Command1_Click()
paket = Val(Text1)
Select Case paket
Case 1:
Text2 = "1 Jam"
Text3 = "000

Case 2:
Text2 = "2 Jam"
Text3 = 5000

Case 3:
Text2 = "3 Jam"
Text3 = 7000

Case 4:
Text2 = "4 Jam"
Text3 = 9000

Case 5:
Text2 = "5 Jam"
Text3 = 10500

Case 6:
Text2 = "6 Jam"
Text3 = 12000

Case 7:
Text2 = "7 Jam"
Text3 = 13500

Case 8:
Text2 = "8 Jam"
Text3 = 15000

Case 9:
Text2 = "8 Jam (Malam)"
Text3 = "10000"
End Select
End Sub

Private Sub Command1_Click() paket = Val(Text1) Select Case paket Case 1: TextWaktu = "1 Jam" TextBiaya = 3000 Case 2: TextWaktu = 2 Jam TextBiaya = 5000 Case 3: TextWaktu = 3 Jam TextBiaya = 7000 Case 4: TextWaktu = 4 Jam TextBiaya = 9000 Case 5: TextWaktu = 5 Jam TextBiaya = 10500 Case 6: TextWaktu = 6 Jam TextBiaya = 12000 Case 7: TextWaktu = 7 Jam TextBiaya = 13500 Case 8: TextWaktu = 8 Jam TextBiaya = 15000 Case 9: TextWaktu = 8 Jam (Malam) TextBiaya = 10000 End Select End Sub

5. Jalankan Program, dan cek programnya,

untuk mengujinya, coba tuliskan angka dari 1sampai 9 di text1, lalu klik details, maka di text2 dan text3 akan muncul Waktu berapa jam dan Biaya, berdasarkan dari kode case,

Itulah program sederhana, cara penggunaan Selcet case di Visual Basic
Sekian dan Terimakasih