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 :

Struktur Case Pada VB.NET

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:

Struktur Case Pada VB.NET

Silahkan anda coba pada komputer anda, dan ikuti terus pembelajaran kami selanjutnya..
Silahkan KLIK DISINI Untuk download Project VB .NET diatas