Struktur Case Pada Vb.Net

 Select Case ini dipakai untuk menyelidiki kesesuaian beberapa list nilai 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:
 Select Case ini dipakai untuk menyelidiki kesesuaian beberapa list nilai 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

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel