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:
Select Case test expression
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
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:
Public Class Form1
Dim grade As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
grade = TextBox1.Text
Select Case grade
Case "A"
Label1.Text = "High Distinction"
Case "A-"
Label2.Text = "Distinction"
Case "B"
Label3.Text = "Credit"
Case "C"
Label4.Text = "Pass"
Case Else
Label5.Text = "Fail"
End Select
End Sub
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:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mark As Single
mark = TextBox1.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
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:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mark As Single
mark = TextBox1.Text
Select Case mark
Case 0 To 49
Label1.Text = "Need to work harder"
Case 50 To 59
Label2.Text = "Average"
Case 60 To 69
Label3.Text = "Above Average"
Case 70 To 84
Label4.Text = "Good"
Case Else
Label5.Text = "Excellence"
End Select
End Sub
End Class
*Masukkan angka ke dalam textbox, maka akan muncul komentar dari label1 hingga label5.
untuk mendapatkan file pdf nya klik download
help me with this situation
BalasHapusi have a textbox and radio button 1 and radio button 2..
i want to make auto check radio button using case statement
i want to make the program read the last number when user key in the textbox
case is =0,2,4,6,8
radiobutton1 = True
radiobutton2 = False
case is =1,3,5,7,9
radiobutton1 = False
radiobutton2 = True
I cannot find a way to read the last number in the textbox..please help me