VB TUTORIAL - Alur Program(Kondisi Percabangan) ~ Apa Aja Boleh

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
( >, >=, <, <=).

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. Bentuk kondisi
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

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

----------------------------------------------------------------------------

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

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)

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".

Contoh : masukkan angka 11 kemudian klik tombol Cek Bilangan

Maka akan muncul pesan sebagai berikut :

Untuk melakukan test terhadap kondisi percabangan Select Case caranya pilihsalah satu pilihan pada listBox kemudian klik tombol Cek Pilihan, maka akan mncul pesan yang menyatakan anda memilih pilihan tertentu sesuai pilihan yang anda pilih.

Contoh : Pilih pilihan2 kemudian klik tombol Cek Pilihan