Loading halaman Tutorial Visual Basic, Delphi, PHP - Calon Programer : 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.ObjectByVal 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.ObjectByVal 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;

0 Reply :

Posting Komentar

Jika ada pertanyaan atau request,Komentar pada tab blogger akan lebih memudahkan saya untuk membalasnya karena lebih mudah melakukan pengecekan komentar.