Select Case pada Visual Basic

Bentuk Select Case digunakan untuk percabangan banyak. Select Case biasa dipakai untuk alternatif Bentuk If..Then..Else, karena code-codenya lebih mudah dibaca atau tidak ruwet :) hehe...
Bentuk dari Select Case adalah berikut:

Select Case <kondisi>
Case <ekspresi-1>
<pernyataan-1>
...
<pernyataan-1>
Case <ekspresi-2>
<pernyataan-2>
...
<pernyataan-2>
Case else
<pernyataan –n>
End Select

Berikut Contoh dalam program :
1. Buat new project, Standard EXE

2. Masukan 2 buah textbox dan 1 buah commandbutton
3. Kosongkan properti text pada text1 dan text2, kemudian ubah caption command1 menjadi planet.

4. Masukan code program seperti di bawah :

Private Sub Command1_Click()
Dim no_planet As Integer
Dim nama_planet As String

no_planet = Text1.Text

Select Case no_planet
Case 1
    nama_planet = "Merkurius"
Case 2
    nama_planet = "Venus"
Case 3
    nama_planet = "Bumi"
Case 4
    nama_planet = "Mars"
Case 5
    nama_planet = "Jupiter"
Case 6
    nama_planet = "Saturnus"
Case 7
    nama_planet = "Neptunus"
Case 8
    nama_planet = "Uranus"
Case 9
    nama_planet = "Pluto"
Case Else
    MsgBox " saat ini jumlah Planet yang di ketahui ada 9", vbOKOnly, "Nama-Nama Planet"

End Select
Text2.Text = nama_planet
End Sub

5. Jalankan programnya !! jika anda memasukan angka 1-9 pada text1 maka pada text2 akan muncul nama planetnya, jika yang anda masukan angka selain angka 1- 9 maka akan keluar messagebox.

Thanks for reading Select Case pada Visual Basic