Struktur Case Pada Vb.Net
Apa itu struktur case pada VB Net ? Select Case ini dipakai untuk menyelidiki 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 yakni List nilai atau variabel dalam case untuk dibandingkan dengan expression.
dalam satu case sanggup mempunyai beberapa nilai yang dipisahkan dengan koma.
Statements adalah code/pernyataan yang dijalankan kalau expression cocok dengan expressionlist.
elsestatements adalah code/pernyataan yang akan dijalankan kalau 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 hingga 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 KLIK DISINI Untuk download Project VB .NET diatas