Sebuah aplikasi harus memiliki alur program yang baik sehingga tidak akan terjadi kesalahan dan hasil yang dikeluarkan oleh program tidak menyimpang dari yang diinginkan ketika program berjalan. Untuk itu perlu dibuat sebuah kondisi percabangan dalam program. Dalam Visual Basic ada beberapa kondisi percabangan yang dapat digunakan seperti IF… THEN atau SELECT CASE. Kondisi percabangan biasanya dinyatakan dengan menggunakan operator seperti operator sama dengan (=), tidak sama dengan (<>) atau operator‐operator perbadingan lainnya ( >, >=, <, <=).
Macam-macam Struktur percabangan :
1. If … Then
Percabangan dengan menggunakan If … Then digunakan untuk memilih dua kondisi atau lebih dengan memeriksa syarat pada tiap kondisi, jika syarat pada kondisi 1 benar ( True ) maka maka program akan menjalankan pernyataan 1 jika tidak ( False ) maka program akan memeriksa kondisi 2, jika syarat pada kondisi 2 benar ( True ) maka program akan menjalankan pernyataan 2 jika tidak ( False ) maka program akan memeriksa kondisi berikutnya dan begitu seterusnya hingga kondisi terakhir pada percabangan.
Percabangan dengan menggunakan If … Then digunakan untuk memilih dua kondisi atau lebih dengan memeriksa syarat pada tiap kondisi, jika syarat pada kondisi 1 benar ( True ) maka maka program akan menjalankan pernyataan 1 jika tidak ( False ) maka program akan memeriksa kondisi 2, jika syarat pada kondisi 2 benar ( True ) maka program akan menjalankan pernyataan 2 jika tidak ( False ) maka program akan memeriksa kondisi berikutnya dan begitu seterusnya hingga kondisi terakhir pada percabangan.
Bentuk kondisi
percabangan If … Then pada Visual Basic adalah :
If Kondisi1 Then
Pernyataan1
…………
ElseIf Kondisi2 Then
Pernyataan2
…........
Else
Pernyataan3
…………
End if
percabangan If … Then pada Visual Basic adalah :
If Kondisi1 Then
Pernyataan1
…………
ElseIf Kondisi2 Then
Pernyataan2
…........
Else
Pernyataan3
…………
End if
Kondisi percabangan If …Then biasanya digunakan untuk menentukan kondisi perhitungan matematika, membatasi tndakan pengguna program , mengatur tampilan atau mencegah error ketika program di jalankan.
2. Select Case
Dibandingkan dengan percabangan If … Then, Select Case lebih mudah dibaca dan di debug serta lebih mudah digunakan dalam alur program yang membutuhkan banyak percabangan. Bentuk umum percabangan Select Case dalam Visual Basic adalah sebagai berikut :
Select Case Pilihan
Case 1
Pernyataan1
…..
Case 2
Pernyataan2
…..
Case 3
Pernyataan3
……
End Select
2. Select Case
Dibandingkan dengan percabangan If … Then, Select Case lebih mudah dibaca dan di debug serta lebih mudah digunakan dalam alur program yang membutuhkan banyak percabangan. Bentuk umum percabangan Select Case dalam Visual Basic adalah sebagai berikut :
Select Case Pilihan
Case 1
Pernyataan1
…..
Case 2
Pernyataan2
…..
Case 3
Pernyataan3
……
End Select
Pada struktur percabangan Select Case di atas jika Pilihan yang dimasukkan oleh pengguna bernilai 1 maka Pernyataan 1 di eksekusi, jika bernilai 2 maka Pernyataan 2 yang dieksekusi, jika bernnilai 3 maka Pernyataan 3 yang di eksekusi.
Untuk lebih memahami materi tentang kondisi percabangan, buatlah project baru pada Visual Basic 6.0 kemudian pilih Standard.EXE dan buatlah tampilan Form sebagai berikut :
Kemudian atur property masing‐masing object sebagai berikut :
Kemudian copy paste source code berikut ini :
Kode Program :
Private Sub cmdCekBilangan_Click()
Dim a As Integer
a = CInt(txtBilangan.Text)
If a Mod 2 = 0 Then
MsgBox "Bilangan yang anda masukkan adalah bilangan genap"
ElseIf a Mod 2 <> 0 Then
MsgBox "Bilangan yang anda masukkan adalah bilangan ganjil"
End If
End Sub
Kode Program :
Private Sub cmdCekBilangan_Click()
Dim a As Integer
a = CInt(txtBilangan.Text)
If a Mod 2 = 0 Then
MsgBox "Bilangan yang anda masukkan adalah bilangan genap"
ElseIf a Mod 2 <> 0 Then
MsgBox "Bilangan yang anda masukkan adalah bilangan ganjil"
End If
End Sub
Private Sub cmdCekPilihan_Click()
Select Case LstPilihan.Text
Case "Pilihan1"
MsgBox "Anda memilih pilihan 1"
Case "Pilihan2"
MsgBox "Anda memilih pilihan 2"
Case "Pilihan3"
MsgBox "Anda memilih pilihan 3"
End Select
End Sub
Private Sub Form_Load()
LstPilihan.AddItem "Pilihan1"
LstPilihan.AddItem "Pilihan2"
LstPilihan.AddItem "Pilihan3"
End Sub
Select Case LstPilihan.Text
Case "Pilihan1"
MsgBox "Anda memilih pilihan 1"
Case "Pilihan2"
MsgBox "Anda memilih pilihan 2"
Case "Pilihan3"
MsgBox "Anda memilih pilihan 3"
End Select
End Sub
Private Sub Form_Load()
LstPilihan.AddItem "Pilihan1"
LstPilihan.AddItem "Pilihan2"
LstPilihan.AddItem "Pilihan3"
End Sub
Penjelasan Kode Program :
Private Sub Form_Load()
LstPilihan.AddItem "Pilihan1"
LstPilihan.AddItem "Pilihan2"
LstPilihan.AddItem "Pilihan3"
End Sub
Menambahkan item baru pada listBox LstPilihan ketika program pertama kali di load
Dim a As Integer
a = CInt(txtBilangan.Text)
Private Sub Form_Load()
LstPilihan.AddItem "Pilihan1"
LstPilihan.AddItem "Pilihan2"
LstPilihan.AddItem "Pilihan3"
End Sub
Menambahkan item baru pada listBox LstPilihan ketika program pertama kali di load
Dim a As Integer
a = CInt(txtBilangan.Text)
deklarasi variable a bertipe integer dan inisialisasi variable a dari inputan txtBilangan.Text
If a Mod 2 = 0 Then
MsgBox "Bilangan yang anda masukkan adalah bilangan genap"
ElseIf a Mod 2 <> 0 Then
MsgBox "Bilangan yang anda masukkan adalah bilangan ganjil"
End If
If…Then yang melakukan pengecekan apakah angka atau bilangan yang dimasukkan adalah bilangan ganjil atau genap
Select Case LstPilihan.Text
Case "Pilihan1"
MsgBox "Anda memilih pilihan 1"
Case "Pilihan2"
MsgBox "Anda memilih pilihan 2"
Case "Pilihan3"
MsgBox "Anda memilih pilihan 3"
End Select
Select case yang digunakan untuk pengecekan pilihan yang dipilih pemakai Jika sudah selesai maka jalankan program tersebut, kemudian test kondisi percabangan If .. Then dengan cara masukkan sembarang angka pada textbox kemudian klik tombol Cek Bilangan, jika anda memasukkan angka ganjil maka akan muncul pesan "Bilangan yang anda masukkan adalah bilangan ganjil" , sebaliknya jika angka yang anda masukkan genap maka akan muncul pesan "Bilangan yang anda masukkan adalah bilangan genap".
MsgBox "Bilangan yang anda masukkan adalah bilangan genap"
ElseIf a Mod 2 <> 0 Then
MsgBox "Bilangan yang anda masukkan adalah bilangan ganjil"
End If
If…Then yang melakukan pengecekan apakah angka atau bilangan yang dimasukkan adalah bilangan ganjil atau genap
Select Case LstPilihan.Text
Case "Pilihan1"
MsgBox "Anda memilih pilihan 1"
Case "Pilihan2"
MsgBox "Anda memilih pilihan 2"
Case "Pilihan3"
MsgBox "Anda memilih pilihan 3"
End Select
Select case yang digunakan untuk pengecekan pilihan yang dipilih pemakai Jika sudah selesai maka jalankan program tersebut, kemudian test kondisi percabangan If .. Then dengan cara masukkan sembarang angka pada textbox kemudian klik tombol Cek Bilangan, jika anda memasukkan angka ganjil maka akan muncul pesan "Bilangan yang anda masukkan adalah bilangan ganjil" , sebaliknya jika angka yang anda masukkan genap maka akan muncul pesan "Bilangan yang anda masukkan adalah bilangan genap".
Contoh : masukkan angka 11 kemudian klik tombol Cek Bilangan
Contoh : Pilih pilihan2 kemudian klik tombol Cek Pilihan
