Fungsi Select Case pada VB2010

Fungsi select case berbeda dengan fungsi if..else dalam hal format penulisan. Tapi secara fungsi memiliki kesamaan, yakni untuk menentukan kondisi dari beberapa pilihan. Adapun format penulisan select case yaitu:
Select Case test expression
   Case expression list 1
        Block of one or more VB statements
   Case expression list 2
        Block of one or more VB Statements
   Case expression list 3
        Block of one or more VB statements
   Case expression list 4
        .
        .
        .
   Case Else
        Block of one or more VB Statements
End Select

Contoh 1:
Pada contoh ini kita akan menampilkan komentar dari beberapa nilai huruf yang kita inputkan ke dalam textbox. Masukkan 1 textxbox, 1 button dan 5 buah label ke dalam form. Kemudian ketikkan code berikut:
Public Class Form1
    Dim grade As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        grade = TextBox1.Text
        Select Case grade
            Case "A"
                Label1.Text = "High Distinction"
            Case "A-"
                Label2.Text = "Distinction"
            Case "B"
                Label3.Text = "Credit"
            Case "C"
                Label4.Text = "Pass"
            Case Else
                Label5.Text = "Fail"
        End Select
    End Sub
End Class
 
*Masukkan huruf A atau A- atau B atau C, makan akan muncul kata-kata dari kelima label.

Contoh 2:
Pada contoh ini kita akan menampilkan komentar dari nilai angka yang kita inputkan ke dalam textbox. Masukkan 1 textxbox, 1 button dan 5 buah label ke dalam form. Kemudian ketikkan code berikut:
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mark As Single
        mark = TextBox1.Text
        Select Case mark
            Case Is >= 85
                Label1.Text = "Excellence"
            Case Is >= 70
                Label2.Text = "Good"
            Case Is >= 60
                Label3.Text = "Above Average"
            Case Is >= 50
                Label4.Text = "Average"
            Case Else
                Label5.Text = "Need to work harder"
        End Select
    End Sub
End Class



*Masukkan angka ke dalam textbox, maka akan muncul komentar dari label1 hingga label5.

Contoh 3:
Pada contoh ini kita akan menampilkan komentar dari nilai huruf yang kita inputkan ke dalam textbox. Bedanya dengan contoh 2, yaitu kita memberikan range nilai dari nilai yang akan kita inputkan. Masukkan 1 textxbox, 1 button dan 5 buah label ke dalam form. Kemudian ketikkan code berikut:
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mark As Single
        mark = TextBox1.Text
        Select Case mark
            Case 0 To 49
                Label1.Text = "Need to work harder"
            Case 50 To 59
                Label2.Text = "Average"
            Case 60 To 69
                Label3.Text = "Above Average"
            Case 70 To 84
                Label4.Text = "Good"
            Case Else
                Label5.Text = "Excellence"
        End Select
    End Sub
End Class

 
*Masukkan angka ke dalam textbox, maka akan muncul komentar dari label1 hingga label5.
untuk mendapatkan file pdf nya klik download