Contoh Agenda Sederhana Select Case

Seperti yang aku katakan di pembahasan sebelumnya, mengenai apa itu select case dan fungsinya, kali ini kita akan menciptakan agenda sederhana dengan memakai metode select case. Kita akan menciptakan agenda Billing warnet, dimana user akan menentukan sebuah paket internet, hanya dengan menuliskan satu angka saja, maka klarifikasi paket tersebut akan muncul, sepakat 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 menyerupai ini,

3. Ubahlah Propertiesnya menyerupai 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 menyerupai 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, kemudian klik details, maka di text2 dan text3 akan muncul Waktu berapa jam dan Biaya, menurut dari instruksi case,

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