Search This Blog

Select Case - MS Access - Visual Basic

Gunakan statemen Select Case sebagai alternatif lain dari penggunaan statemen ElseIf pada statemen If...Then...Else ketika melakukan perbandingan dari suatu ekpresi pada beberapa nilai yang berbeda. Ketika statemen If...Then...Else dapat mengevaluasi ekpresi yang berbeda pada setiap statemen ElseIf, statemen Select Case mengevaluasi ekpresi hanya satu kali, pada bagian atas dari struktur kontrol Select Case.

Pada contoh berikut, statemen Select Case mengevaluasi (memeriksa) argumen performance yang dilewatkan pada prosedur. Perlu diperhatikan bahwa setiap statemen Case dapat mengandung lebih dari satu nilai, range dari nilai, atau kombinasi dari nilai dan operator perbandingan. Statemen Case Else secara opsional dapat digunakan dan akan dijalankan jika statemen Select Case tidak memiliki nilai yang cocok pada statemen Case yang ada.

Function Bonus(performance, gaji)
Select Case performance
Case 1
Bonus = gaji * 0.1
Case 2, 3
Bonus = gaji * 0.09
Case 4 To 6
Bonus = gaji * 0.07
Case Is > 8
Bonus = 100
Case Else
Bonus = 0
End Select
End Function

No comments: