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)
WaktuBiaya
11 Jam3.000
22 Jam5.000
33 Jam7.000
44 Jam9.000
55 Jam10.500
66 Jam12.000
77 Jam13.500
88 Jam15.000
98 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 BoxPropertiesKeterangan
Form 1Star Up PostitionCenter Screen
Label 1CaptionPackage
Label 2Time
Label 3Cost
Text 1NameText1
EnabledTrue
Text(Kosongkan saja)
Text 2NameTextWaktu
EnabledFalse
Text(Kosongkan saja)
Text 3NameTextBiaya
EnabledFalse
Text(Kosongkan saja)
Command 1CaptionDETAILS
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

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

Comments