Ketika program berjalan, mungkin hanya blok kode tertentu yang diperlukan saja yang akan dijalankan dengan kondisi tertentu. Hal itu dapat diatur menggunakan alur percabangan. Ada tiga pernyataan yang berkaitan dengan alur percabangan program yaitu: If….Then, If…Then…Else dan Select Case.
If…Then
Pernyataan If…Then akan menguji suatu kondisi, jika True, program akan menjalankan pernyataan yang mengikutinya. Struktur If…Then bisa memiliki sintaks satu baris atau banyak baris. Sintaksnya adalah:
If kondisi Then Pernyataan ‘Untuk perintah 1 baris
If Kondisi Then ‘untuk perintah banyak baris
Pernyataan
End If
Contoh kode dalam satu baris adalah:
If Nilai >= 60 Then Hasil = “Lulus”
Contoh kode dalam banyak baris adalah:
If sNamaFile = “ ” Then
SaveFileAs()
ExitSub
End If
If…Then…Else
Variasi dari pernyataan If…Then adalah pernyataan If…Then…Else yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai True dan blok pernyataan lainnya jika kondisi False. Sintaks pernyataan If…Then…Else sebagai berikut:
If Kondisi Then
BlokPernyataan1
Else
BlokPernyataan2
End If
VB akan menguji kondisi, jika bernilai benar maka VB akan menjalankan blok pernyataan pertama kemudian melompat pada pernyataan di bawah End If. Jika kondisi bernilai salah VB mengabaikan blok pernyataan pertama dan menjalankan blok di bawah kata kunci Else. Contoh kode:
If Nilai >= 60 Then
Hasil = “Lulus”
Else
Hasil = “Tidak Lulus”
End If
Variasi lain dari pernyataan If…Then…Else menggunakan ElseIf sebagai berikut:
If Kondisi Then
BlokPernyataan1
ElseIf Kondisi2 Then
BlokPernyataan2
ElseIf Kondisi3 Then
BlokPernyataan3
Else
BlokPernyataanN
End If
Contoh kode banyak If sebagai berikut:
Dim Pesan As String
Nilai = InputBox(“Masukkan Nilai:”)
If Nilai < 50 Then
Pesan = “D”
ElseIf Nilai < 75 Then
Pesan = “C”
ElseIf Nilai < 90 Then
Pesan = “B”
Else
Pesan = “A”
End If
MsgBox(Pesan)
Select Case
Pernyataan Select Case mirip dengan pernyataan If…Then…Else, pada dasarnya keduanya gunanya sama, tetapi menggunakan Select Case akan mempermudah menulis dan mengelola kode. Ketika pernyataan If…Then…Else memiliki banyak blok kode, kode menjadi sulit dibaca dan diikuti.
Struktur Select Case akan menguji ekspresi tunggal yang dievaluasi sekali pada bagian atas dari struktur. Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok, blok pernyataan yang berhubungan akan dijalankan.
Berikut adalah sintaks pernyataan Select Case:
Select Case Ekspresi
Case Nilai1
BlokPernyataan1
Case Nilai2
BlokPernyataan2
…
Case Else
BlokPernyataanN
End Select
Contoh kode sebagai berikut:
Dim Pesan As String
Select Case Now.DayOfWeek
Case DayOfWeek.Saturday Or DayOfWeek.Sunday
Pesan = “Libur!”
Case DayOfWeek.Monday
Pesan = “I Love Monday!”
Case Else
Pesan = “Kerja lagi, kerja lagi!”
End Select
MsgBox(Pesan)
