Percabangan dengan Select – Case di Vb.Net

Jenis Percabangan berikutnya yang dapat menyelesaikan suatu keputusan berdasarkan beberapa kondisi yaitu percabangan dengan Select akan tetapi percabangan ini tidak dapat menyelesaikan lebih dari satu ekspresi atau ungkapan seperti pada jenis percabangan sebelumnya.

Format penulisan:

Select Case parameter/ekspresi ungkapan
Case1
Statement1
Case2
Statement2
Case-n
Statement-n
Case Else
Statement_Else
End Select

Contoh :
Desain Form :

Pada gambar diatas komponen yang digunakan yaitu :
Button : Text = OK

1. Label : Text = Pilih Nomor :
2. ComboBox : Items = 1 2 3 4

Langkah Berikutnya double klik pada button1 dan ketikan listing dibawah.
Public Class Form1
Dim pilihan As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
pilihan = Val(ComboBox1.Text)
Select Case pilihan
Case 1
MessageBox.Show(“Anda memesan minuman TEH”)
Case 2
MessageBox.Show(“Anda memesan minuman Sosro”)
Case 3
MessageBox.Show(“Anda memesan minuman Fanta”)
Case Else
MessageBox.Show(“Anda memesan minuman SUSU”)
End Select
End Sub
End Class
Nah sudah selesai nih guys silakan runing,