Stuktur Select Case Visual Basic

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


1. The Select Case...End Select Structure
Format struktur Select Case adalah sebagai berikut:

1. Select Case test expression  
2.   
3. Case expression list 1  
4. Block of one or more VB statements   
5. Case expression list 2  
6. Block of one or more VB Statements   
7. Case expression list 3  
8. Block of one or more VB statements   
9. Case expression list 4   
10. .   
11. .   
12. .   
13. Case Else   
14. Block of one or more VB Statements  
15.   
16. End Select  

2. Penggunaan Select Case ditunjukkan dalam contoh berikut

Contoh 1

1. Dim grade As String  
2.   
3. Private Sub Compute_Click( )  
4.   
5. grade=txtgrade.Text  
6.   
7. Select Case grade  
8.   
9. Case  "A"   
10. Label1.Text="High Distinction"   
11. Case "A-"   
12. Label1.Text="Distinction"   
13. Case "B"   
14. Label1.Text="Credit"   
15. Case "C"   
16. Label1.Text="Pass"   
17. Case Else   
18. Label1.Text="Fail"   
19. End Select  

Contoh 2
Dalam contoh ini, Anda dapat menggunakan variable bersama-sama dengan operator perbandingan.

1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
2.   
3. 'Examination Marks  
4. Dim mark As Single  
5. mark = mrk.Text   
6.   
7. Select Case mark  
8. Case Is >= 85   
9.   
10. Label1.Text= "Excellence"  
11. Case Is >= 70   
12.   
13. Label2.Text= "Good"  
14. Case Is >= 60  
15. Label3.Text = "Above Average"  
16. Case Is >= 50  
17. Label4.Text= "Average"  
18. Case Else  
19. Label5.Text = "Need to work harder"  
20. End Select  
21. End Sub  

Contoh 3

1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
2.   
3. 'Examination Marks  
4.   
5. Dim mark As Single  
6. mark = TextBox1.Text  
7. Select Case mark  
8. Case 0 To 49  
9. Label1.Text = "E"  
10. Case 50 To 59  
11. Label1.Text = "D"  
12. Case 60 To 69  
13. Label1.Text = "C"  
14. Case 70 To 79  
15. Label1.Text = "B"  
16. Case 80 To 100  
17. Label1.Text = "A"  
18. Case Else  
19. Label1.Text = "Error, please reenter the mark"  
20. End Select  
21. End Sub  

Gbr Contoh 3

Semoga Bermanfaat ^.^

Klik Like/share jika anda menyukai tulisan ini;