11 August 2014

VB.NET: Struktur Kode Pernyataan Select Case


Pernyataan Select Case adalah untuk memeriksa kesesuaian beberapa list nilai yang disebut Case. Kemudian sebuah nilai/variable diperiksa kesesuaiannya dengan setiap case tersebut.

Sintaks:
Select [ Case ] expression
    [ Case expressionlist
        [ statements ] ]
    [ Case Else
        [ elsestatements ] ]
End Select


Keterangan:
expression: adalah nilai/variable yang akan diperiksa dengan tipe data dasar dalam VB.NET seperti  Boolean, Byte, Char, Date, Double, Decimal, Integer, Long, Object, SByte, Short, Single, String, UInteger, ULong, dan UShort.

expressionlist: List nilai atau variable dalam case untuk dibandingkan dengan expresion. Dalam satu case dapat memiliki beberapa nilai yang dipisahkan dengan koma.

statements: code/pernyataan yang akan dijalankan jika expression cocok dengan expressionlist yang ada pada case tersebut.

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

Contoh penggunaan:
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:



Click here if you like this article.


0 comments: