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)
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 seperti ini,

3. Ubahlah Propertiesnya seperti 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 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

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


Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+

0 Response to "Contoh Program Sederhana Select Case"

Post a Comment