10. Menggunakan Select Case (Tutorial Visual Basic 2010)

Dalam pelajaran sebelumnya, kita telah belajar bagaimana mengontrol aliran program menggunakan ... Jika struktur pengendalian ElseIf. Dalam bab ini, Anda akan belajar cara lain untuk mengendalikan aliran program, yaitu, struktur Select Case kontrol. Namun, struktur Select Case kontrol adalah sedikit berbeda dari struktur ElseIf Jika .... kontrol. Perbedaannya adalah bahwa struktur Select Case kontrol pada dasarnya hanya membuat keputusan pada satu ekspresi atau dimensi (misalnya nilai ujian) sedangkan ... Jika pernyataan ElseIf struktur pengendalian dapat mengevaluasi hanya satu ekspresi, masing-masing .... Jika pernyataan ElseIf mungkin juga menghitung dimensi yang sama sekali berbeda. Select Case lebih disukai ketika ada ada beberapa kondisi karena menggunakan Jika ... Lalu .. pernyataan ElseIf akan menjadi terlalu berantakan.

10.1 The Select Case...dan Select Structure

Format dari struktur pengendalian Select Case adalah sebagai berikut:

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

10.2 Penggunaan Select Case akan ditampilkan dalam exampless berikut

Contoh 10.1

' Examination Grades
Dim grade As String
Private Sub Compute_Click( )
grade=txtgrade.Text
Select Case grade
  Case  "A"
       Label1.Text="High Distinction"
  Case "A-"
      Label1.Text="Distinction"
  Case "B"
        Label1.Text="Credit"
  Case "C"
        Label1.Text="Pass"
  Case Else
        Label1.Text="Fail"
  End Select

Contoh 10.2

Dalam contoh ini, Anda dapat menggunakan kata kunci Apakah bersama-sama dengan operator perbandingan.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Examination Marks

Dim mark As Single

mark = mrk.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

contoh 10,3
Contoh 10,2 dapat ditulis ulang sebagai berikut:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Examination Marks
Dim mark As Single
     mark = Textbox1.Text
Select Case mark

Case 0 to 49  
     Label1.Text = "Need to work harder" 
Case 50 to 59  
     Label1.Text = "Average" s
Case 60 to 69
     Label1.Text= "Above Average"
Case 70 to 84
     Label1.Text = "Good"
Case 85 to 100
     Label1.Text= "Excellence"
Case Else
     Label1.Text= "Wrong entry, please reenter the mark"
End Select

End Sub

contoh 10,4

Kelas di SMA biasanya disajikan dengan huruf kapital tunggal seperti A, B, C, D atau E. nilai dapat dihitung sebagai berikut:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Examination Marks
Dim mark As Single
    mark = TextBox1.Text
Select Case mark
Case 0 To 49
    Label1.Text = "E"
Case 50 To 59
    Label1.Text = "D"
Case 60 To 69
    Label1.Text = "C"
Case 70 To 79
    Label1.Text = "B"
Case 80 To 100
    Label1.Text = "A"
Case Else
Label1.Text = "Error, please reenter the mark"
End Select

End Sub

Contoh Output Gambar 10.4

Sandi Permana
18113221
2KA39

Tulisan 11
Teori Organisasi Umum 1#
Budi Utami, S.E