VB Pemula - Step 9 : Perintah SELECT CASE

Setelah bergelut dengan perintah IF, kita lanjutkan dengan perintah selanjutnya, yaitu SELECT CASE.
 
Apa itu SELECT CASE?

Sebenarnya perintah SELECT CASE hampir sama seperti perintah IF. Apabila Anda menggunakan banyak sekali perintah ELSEIF, tentu saja akan sangat merepotkan bukan? Karena itulah, Anda dapat menggunakan perintah SELECT CASE sebagai alternatif.
Bagaimana dengan strukturnya?? Ini dia....

Select Case
Case

Case

Case

Case Else

End Select


Tidak hanya variabel, Anda juga boleh menggunakan property objek sebagai syarat. (lupa dengan cara penulisan property objek, baca lagi tutorial 3.)
Bagaimana? Lebih simple bukan? Daripada Anda harus menulis:
If = Then

Elseif = Then

Elseif = Then
Bla bla bla.....

Cape deh.... Sangat merepotkan bukan? Bila terlalu banyak syarat, Anda harus berulang kali menuliskan perintah ElseIf .... Then. Maka dari itu, supaya menghemat tenaga dan listrik, pakai saja perintah SELECT CASE sebagai alternatif.
Tapi, ingat! Bukan berarti perintah IF tidak berguna! Perintah SELECT CASE hanya berlaku untuk SATU VARIABEL/PROPERTY OBJEK SAJA! Jika Anda melibatkan banyak variabel atau property objek sebagai syarat, perintah IF adalah pilihan yang tepat, karena Anda dapat mengkombinasikan perintah IF dengan Operator Logika (And, Or, Not).
Biasanya perintah SELECT CASE ini digunakan pada objek Timer. (nanti kita bahas tentang penggunaan timer)
Okay, sekarang, langsung praktik aja.... Kita akan membuat sebuah program sederhana dengan memanfaatkan perintah SELECT CASE ini.
1. Seperti biasa, buatlah sebuah project baru dengan tipe Standard EXE!
2. Buatlah tampilan UI seperti ini!

3. Pada saat Form1_load, tambahkan perintah seperti ini!
List1.AddItem "Jeruk"
List1.AddItem "Alpukat"
List1.AddItem "Strawberry"
List1.AddItem "Semangka"
List1.AddItem "Lengkeng"
List1.AddItem "Kedondong"
Anda sudah tahu fungsi method .AddItem kan? (sudah dibahas lo....di tutorial 3)
4. Pada saat List1_Click, tambahkan perintah seperti ini:
Select Case List1.ListIndex
Case 0
Label2.Caption = "Banyak menandung vitamin C."
Case 1
Label2.Caption = "Salah satu buah yang mengandung lemak..."
Case 2
Label2.Caption = "Hanya tumbuh di daratan tinggi."
Case 3
Label2.Caption = "Buah berair... Hmm... Enak dimakan kalau dimakan di cuaca panas."
Case 4
Label2.Caption = "Pasti buah yang satu ini rasanya manis..."
Case 5
Label2.Caption = "Enak kalau dibikin rujak..."
End Select
Maksud dari perintah ini adalah, jika List1.ListIndex = 0 (maksudnya yang terpilih adalah Jeruk), maka label2.caption akan sama dengan "Banyak menandung vitamin C.". Kenapa ListIndex = 0? Nah yang perlu diingat.... Dalam VB itu segalanya di mulai dari 0 (nol), bukan dari
4. Anda boleh menjalankan programnya agar lebih memahami perintah SELECT CASE ini.
Jadi, SELECT CASE itu hampir sama dengan perintah IF....ELSEIF....ELSE....END IF. Fungsi kedua perintah ini sama, yaitu sebagai perintah LOGIKA.
Nah, sekian penjelasan tentang perintah SELECT CASE. Selanjutnya kita akan mempelajari perintah pengulangan, seperti FOR......NEXT, DO....LOOP, dan WHILE......WEND. Cape?? Boleh istirahat dulu deh.... Nanti lanjut....