Fungsi Select case visual basic 2010

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:

1. Select Case test expression   
2.    Case expression list 1  
3.         Block of one or more VB statements   
4.    Case expression list 2  
5.         Block of one or more VB Statements   
6.    Case expression list 3  
7.         Block of one or more VB statements   
8.    Case expression list 4   
9.         .   
10.         .   
11.         .   
12.    Case Else   
13.         Block of one or more VB Statements   
14. 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:

1. Public Class Form1  
2.     Dim grade As String  
3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
4.         grade = TextBox1.Text  
5.         Select Case grade  
6.             Case "A"  
7.                 Label1.Text = "High Distinction"  
8.             Case "A-"  
9.                 Label2.Text = "Distinction"  
10.             Case "B"  
11.                 Label3.Text = "Credit"  
12.             Case "C"  
13.                 Label4.Text = "Pass"  
14.             Case Else  
15.                 Label5.Text = "Fail"  
16.         End Select  
17.     End Sub  
18. 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:

1. Public Class Form1  
2.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
3.         Dim mark As Single  
4.         mark = TextBox1.Text  
5.         Select Case mark  
6.             Case Is >= 85  
7.                 Label1.Text = "Excellence"  
8.             Case Is >= 70  
9.                 Label2.Text = "Good"  
10.             Case Is >= 60  
11.                 Label3.Text = "Above Average"  
12.             Case Is >= 50  
13.                 Label4.Text = "Average"  
14.             Case Else  
15.                 Label5.Text = "Need to work harder"  
16.         End Select  
17.     End Sub  
18. 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:

1. Public Class Form1  
2.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
3.         Dim mark As Single  
4.         mark = TextBox1.Text  
5.         Select Case mark  
6.             Case 0 To 49  
7.                 Label1.Text = "Need to work harder"  
8.             Case 50 To 59  
9.                 Label2.Text = "Average"  
10.             Case 60 To 69  
11.                 Label3.Text = "Above Average"  
12.             Case 70 To 84  
13.                 Label4.Text = "Good"  
14.             Case Else  
15.                 Label5.Text = "Excellence"  
16.         End Select  
17.     End Sub  
18. End Class  

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

---

Klik Like/share jika anda menyukai tulisan Share to FB

---