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
Komentar
Posting Komentar