VBScript Select Case

Pada tutorial sebelumnya kita sudah belajar tentang conditional if . Dengan menggunakan conditional if, kita bisa melakukan pengecekan pada variable/kondisi dan menentukan aksi selanjutnya. Tidak hanya itu, conditional if juga dapat dilakukan secara bertingkat, yaitu dengan menggunakan 'If ... Then ... ElseIf ... Then'

Tapi coba bayangkan apabila harus mengecek banyak kondisi dengan conditional if, maka code kita akan menjadi sangat panjang dan kemungkinan akan menjadi sulit untuk dibaca. Nah, VBScript menyediakan fitur untuk mengatasi hal tersebut, yaitu select case.

Mari kita lihat contohnya..

Berikut adalah program sederhana menggunakan conditional if :

var_numeric = 1

If var_numeric = 1 then
   msgbox("varible berisi angka satu")
ElseIf var_numeric = 2 then
   msgbox("varible berisi angka dua")
ElseIf var_numeric = 3 then
   msgbox("varible berisi angka tiga")
ElseIf var_numeric = 4 then
   msgbox("varible berisi angka empat")
ElseIf var_numeric = 5 then
   msgbox("varible berisi angka lima")
ElseIf var_numeric = 6 then
   msgbox("varible berisi angka enam")
ElseIf var_numeric = 7 then
   msgbox("varible berisi angka tujuh")
ElseIf var_numeric = 8 then
   msgbox("varible berisi angka delapan")
ElseIf var_numeric = 9 then
   msgbox("varible berisi angka sembilan")
ElseIf var_numeric = 10 then
   msgbox("varible berisi angka sepuluh")
End If

Melihat code di atas mungkin sebagian orang merasa malas untuk membacanya karena code yang terlalu panjang.
Akan menjadi lebih ringkas dan mudah dimengerti apabila menggunakan select case

var_numeric = 1

select case var_numeric
   case 1
      msgbox("varible berisi angka satu")
   case 2
      msgbox("varible berisi angka dua")
   case 3
      msgbox("varible berisi angka tiga")
   case 4
      msgbox("varible berisi angka empat")
   case 5
      msgbox("varible berisi angka lima")
   case 6
      msgbox("varible berisi angka enam")
   case 7
      msgbox("varible berisi angka tujuh")
   case 8
      msgbox("varible berisi angka delapan")
   case 9
      msgbox("varible berisi angka sembilan")
   case 10
      msgbox("varible berisi angka sepuluh")
end select

Apabila dijalankan maka kedua code di atas akan menghasilkan output yang sama, yaitu :

Berikut adalah penjelasan mengenai syntax select case :

select case <variable>
   case <nilai variable>
      <aksi>
   case <nilai variable>
      <aksi>
end select

Pada bagian select case <variable>, kita dapat memasukkan variable apa saja. Pada contoh di atas variable yang saya pakai berisi numeric. Variable tersebut akan dicek nilainya pada bagian case <nilai variable>. Apabila <nilai variable> sesuai, maka akan dilakukan <aksi>. Apabila nilai variable ternyata tidak sama, maka akan dilakukan pengecekan pada case <nilai variable> berikutnya. Sampai dengan end select, yang merupakan akhir dari pengecekan. Mudah bukan?

Moral Cerita :

select case memiliki fungsi yang sama dengan conditional if, yaitu untuk melakukan pengecekan terhadap suatu kondisi, hanya saja select case lebih tepat digunakan untuk banyak kemungkinan, karena code yang kita tulis bisa sangat ringkas dan mudah untuk dibaca.