KONDISI DAN KEPUTUSAN

Percabangan dengan If…Then…Else…
Percabangan berdasarkan kondisi suatu variabel atau nilai di dalam pemrograman Visual Basic dinyatakan dengan perintah:
If <kondisi> Then
< Keputusan kondisi benar >
Else
< Keputusan kondisi salah >
End If
Penulisan percabangan seperti di atas disebut dengan “kondisi dan keputusan”. Dalam pengertian yang umum bisa dikatakan:
Jika memenuhi kondisi maka lakukan proses keputusan untuk kondisi benar, jika tidak lakukan proses keputusan untuk kondisi salah
Contoh 1:
“Jika bilangan habis dibagi dua maka bilangan itu adalah bilangan genap, jika tidak bilangan itu adalah bilangan ganjil”, yang dituliskan dengan:
If bilangan mod 2 = 0 Then
Ket = “Bilangan genap”
Else
Ket = “Bilangan ganjil”
End If
Contoh 2:
“Jika peminjaman lebih dari 7 hari maka dikenakan denda sebesar 2000”, yang dituliskan dengan
If peminjaman>7 Then
Denda = 2000
Else
Denda = 0
End If
Contoh Aplikasi 4.1:
Membuat aplikasi untuk menentukan apakah bilangan yang dimasukkan adalah bilangan genap atau ganjil.
(1) Buat project baru
(2) Pada form1, tambahkan komponen-komponen: 2 Label, 2 TextBox dan 1 command button
(3) Pada label1, isi property [Caption] dengan Bilangan. Pada label2, isi property [Caption] dengan Keterangan.
(4) Pada semua textbox, kosongkan property [Text].
(5) Pada Command1, isi property [Caption] dengan Cek.
(6) Atur tampilannya seperti gambar 4.1 berikut:


(7) Click Command1, tambahkan program untuk mengecek apakah bilangan yang dimasukkan bilangan genap atau ganjil dengan cara : “Jika bilangan habis dibagi dua maka bilangan tersebut genap, jika tidak bilangan tersebut ganjil”
Private Sub Command1_Click()
bil = Val(Text1)
If bil Mod 2 = 0 Then
ket = "GENAP"
Else
ket = "GANJIL"
End If
Text2 = ket
End Sub
(8) Simpan project ini dengan memilih menu [File] >> [Save Project]. Maka simpan form dengan nama formLatihan41, dan simpan project dengan nama projectLatihan41.
(9) Jalankan program dan uji dengan beberapa bilangan.
Penulisan percabangan di dalam Visual Basic mempunyai beberapa format, antara lain:
(1) Jika kondisi dipenuhi maka dilakukan proses yang hanya satu baris perintah
If kondisi Then <Proses Kondisi Benar>
(2) Jika kondisi dipenuhi maka dilakukan proses yang lebih dari satu baris perintah
If kondisi Then
<Proses Kondisi Benar>
End If
(3) Jika kondisi dipenuhi maka dilakukan proses A, jika tidak dilakukan proses B yang masing-masing hanya satu baris perintah
If kondisi Then <Proses A> Else <Proses B>
(4) Jika kondisi dipenuhi maka dilakukan proses A, jika tidak dilakukan proses B yang masing-masing hanya satu baris perintah
If kondisi Then
<Proses A>
Else
<Proses B>
End If
Percabangan dengan If…Then…Else… Berantai
Percabangan tidak harus hanya memiliki satu kondisi, bisa juga percabangan memiliki banyak kondisi dengan banyak proses keputusan, hal ini sering dinamakan dengan percabangan berantai. Percabangan berantai secara umum ada dua macam yang dituliskan dengan:
(1) Jenis percabangan berantai dengan hanya satu kondisi yang bisa terpenuhi
If <kondisi1> Then
<Keputusan dalam kondisi1>
else
if <Kondisi2> Then
Modul Dasar Pemrograman 2 Dengan Visual Basic 37
<Keputusan dalam kondisi2>
else
if <Kondisi3> Then
<Keputusan dalam kondisi3>
Else
If <Kondisi4> Then
<Keputusan dalam kondisi 4>
Else
--- Keputusan yang lain ---
End If
End If
End If
End If
(2) Jenis percabangan berantai dengan banyak kondisi yang harus dipenuhi.
If <kondisi1> Then
<Keputusan dalam kondisi1>
if <Kondisi2> Then
<Keputusan dalam kondisi2>
if <Kondisi3> Then
<Keputusan dalam kondisi1, kondisi 2
dan kondisi 3>
Else
<Keputusan dalam kondisi1 dan kondisi2
tetapi tidak dalam kondisi 3>
End If
End If
End If
Pemilihan dengan Select Case
Salah satu model percabangan adalah percabangan index atau yang dikenal dengan pemilihan berindex, dalam visual Basic percabangan index ini menggunakan Select Case dengan format:
Select Case <variable>
Case 0:
<Proses untuk keadaan variabel=0>
Case 1:
<Proses untuk keadaan variabel=1>
Case 2:
<Proses untuk keadaan variabel=2>
Case 3:
<Proses untuk keadaan variabel=3>
Case 4:
<Proses untuk keadaan variabel=4>
.......................
End Select