Dalam pelajaran sebelumnya, kita telah belajar bagaimana mengontrol aliran program menggunakan struktur kontrol If …ElseIf. Dalam pelajaran ini, Anda akan belajar cara lain untuk mengontrol aliran program di Visual Basic 2010, yaitu, struktur Select Case control.
Pilih struktur pengendalian Case sedikit berbeda dari struktur If….ElseIf pengendalian. Perbedaannya adalah bahwa struktur Select Case kontrol pada dasarnya hanya membuat keputusan pada satu ekspresi atau dimensi (misalnya nilai ujian) sedangkan struktur pengendalian pernyataan If ... ElseIf dapat mengevaluasi hanya satu ekspresi, masing-masing pernyataan If ...ElseIf juga dapat menghitung sama sekali berbeda dimensi. Pilih Kasus disukai ketika ada ada beberapa kondisi karena menggunakan laporan If…Then..ElseIf akan menjadi terlalu berantakan.
10.1 Struktur Select Case…End Select
Format Pilihan struktur pengendalian Case adalah sebagai berikut:
Ekspresi uji pilih Case
The format of the Select Case control structure is as follows:
Select Case test expression
Case expression list 1
Blok dari satu atau lebih Visual Basic 2010 laporan
Case expression list 2
Blok dari satu atau lebih Visual Basic 2010 laporan
Case expression list 3
Blok dari satu atau lebih Visual Basic 2010 laporan
Case expression list 4
.
.
.
Case Else
Blok dari satu atau lebih Visual Basic 2010 laporan
End Select
Penggunaan Pilihan Kasus ditunjukkan pada contoh berikut:
Contoh 10.1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim grade As String
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
End Sub
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
End Sub
Contoh 10.2
Dalam contoh ini, Anda dapat menggunakan kata kunci Apakah bersama-sama dengan operator perbandingan.
Dim mark As Single
mark = TextBox1.Text
Select mark
Case Is >= 85
Label1.Text = "Excellence"
Case Is >= 70
Label1.Text = "Good"
Case Is >= 60
Label1.Text = "Above Average"
Case Is >= 50
Label1.Text = "Average"
Case Else
Label1.Text = "Need to work harder"
End Select
End Sub
End Class
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
Output dari contoh 10.4
Code Project structur case to open source Vb.Net
DownloadCode Project Structur Case.....to I open source Vb.Net
0 comments:
Post a Comment