Struktur Case Pada VB.NET

Apa itu struktur case pada VB Net ? Select Case ini digunakan untuk memeriksa kesesuaian beberapa list nilai. Kemudian sebuah nilai
atau variabel diperiksa kesesuaiannya dengan setiap case.

Sintaks:

Select [Case] expression      [Case expressionlist           [statement] ]      [Case Else           [elsestatement] ]End Select 

Keterangan:
expression adalah nolai atau variabel yang akan diperiksa.

expressionlist adalah List nilai atau variabel dalam case untuk dibandingkan dengan expression.
dalam satu case dapat memiliki beberapa nilai yang dipisahkan dengan koma.

Statements adalah code/pernyataan yang dijalankan jika expression cocok dengan expressionlist.

elsestatements adalah code/pernyataan yang akan dijalankan jika expression tidak ada yang cocok 
dengan expressionlist yang ada.

 Contoh :

 

Gambar UI

Code:

Public Class Form1

  Private Sub Form1_Load(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles MyBase.Load
     Button1.Text = "Grade"
     Label1.Text = "Input score nilai dalam bentuk angka:"
     Button2.Text = "Hasil kelulusan:"
     Label2.Text = "Ketikan Grade A, B, C, D, atau E:"
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles Button1.Click
     Dim sngScore As Single = CSng(TextBox1.Text)
     Select Case sngScore
         Case Is > 100
             MsgBox("Maksimum score hanya sampai 100.")
         Case Is > 90
             MsgBox("Grade: A")
         Case Is > 70
             MsgBox("Grade: B")
         Case Is > 60
             MsgBox("Grade: C")
         Case Is >= 50
             MsgBox("Grade: D")
         Case Is < 50
             MsgBox("Grade: E")
         Case Else
             MsgBox("Score tidak valid")
     End Select
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles Button2.Click
     Select Case Me.TextBox2.Text
         Case "A", "B"
             MsgBox("Lulus dengan hasil memuaskan.")
         Case "C"
             MsgBox("Lulus dengan hasil cukup.")
         Case "D", "E"
             MsgBox("Tidak lulus.")
         Case Else
             MsgBox("Grade tidak valid.")
     End Select
  End Sub
End Class

Runtime:

Silahkan anda coba pada komputer anda, dan ikuti terus pembelajaran kami selanjutnya..