VB6: Struktur Kode Alur Percabangan IF Clause dan Select Case

IF CLAUSE
Satu Kondisi
Jika satu kondisi terpenuhi maka code result akan dijalankan (dieksekusi). Jika tidak memenuhi kondisi maka tidak ada code yang dieksekusi.
Sintaks:
(1 baris result)
If [kondisi] Then [Result]

(2 atau lebih baris result)
If [kondisi] Then
   [Result]
   [Result]
   ...
End If

Dua Kondisi
Jika satu kondisi terpenuhi maka code result akan dijalankan (dieksekusi) dan jika tidak memenuhi kondisi maka code lain yang dieksekusi.
Sintaks:
If [kondisi] Then
   [Result]
   ...
Else
   [Result]
   ...
End If

Tiga atau Lebih Kondisi
Terdapat beberapa kondisi, jika menemukan kondisi pertama yang sesuai maka code result dibawah nya akan dijalankan. Jika belum sesuai maka akan memeriksa kondisi selanjutnya. Jika ingin menambahkan code result untuk kondisi yang tidak sesuai dengan pilihan kondisi yang tersedia code result dibawah Else dapat ditambahkan.
Sintaks:
If [kondisi] Then
   [Result]
   ...
ElseIf [kondisi] Then
   [Result]
   ...
Else
   [Result]
   ...
End If

SELECT CASE
Alur percabangan Select Case menyediakan cara yang efisien untuk menentukan code yang mana yang akan dijalankan (dieksekusi). Dalam satu blok Select Case terdapat nilai tertentu dari sebuah ekspresi yang dinyatakan dalam baris Select Case. Pilihan nilai akan memeriksa kesesuaian ekspresi dengan nilai kemudian mengeksekusi code dibawah pilihan nilai yang sesuai.
Syntaks:
Select Case expression
   Case value0
        statements
   Case value1
        statements
   Case value2
        statements
   ...........
   ...........
   Case else
        statements
End select

Ada beberapa bentuk cara menuliskan ekspresi Select Case. Untuk lebih memahami nya kita coba pada aplikasi sederhana sebagai berikut:
Design UI:

Declaration Code:
Option Explicit
Dim num As Integer

Code: ekspresi 1 nilai tertentu (1 case 1 nilai)
Private Sub cmdExact_Click()
num = txtInput.Text
Select Case num
Case 0
    MsgBox "You have entered zero"
Case 1
    MsgBox "You have entered one"
Case 2
    MsgBox "You have entered two"
Case Else
    MsgBox "The number you entered is greater than 2"
End Select
End Sub

Code: ekspresi range nilai
Private Sub cmdRange_Click()
num = txtInput.Text
Select Case num
Case 9 To 10
    MsgBox "Grade A"
Case 7 To 8
    MsgBox "Grade B"
Case 5 To 6
    MsgBox "Grade C"
Case Else
    MsgBox "Non Grade Value"
End Select
End Sub

Code: ekspresi  dengan operator perbandingan
Private Sub cmdComparison_Click()
num = txtInput.Text
Select Case num
Case Is > 5
    MsgBox "More Than 5"
Case Is < 5
    MsgBox "Less Than 5"
Case 0
    MsgBox "5 (Five)"
End Select
End Sub

Code: ekspresi  dengan beberapa nilai tertentu
Private Sub cmdSeveralExact_Click()
num = txtInput.Text
Select Case num
    Case 0, 2, 4, 6, 8, 10
        MsgBox "even numbers between 0 and 10"
    Case Else
        MsgBox "Other values"
End Select
End Sub

Click here if you like this article.