Percabangan dengan If…Then…Else…

KONDISI DAN KEPUTUSAN merupakan Percabangan berdasarkan kondisi suatu variabel atau nilai di dalam pemrograman Visual Basic dinyatakan dengan perintah:
If Then
< Keputusan kondisi benar >
Else
< Keputusan kondisi salah >
End If

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 :

Membuat  aplikasi  untuk  menentukan  apakah  bilangan  yang  dimasukkan  adalah bilangan genap atau ganjil.

• Buat project baru
• Pada  form1,  tambahkan  komponen-komponen:  2  Label,  2  TextBox  dan  1 command button
• Pada label1, isi property [Caption] dengan Bilangan. Pada label2, isi property [Caption] dengan Keterangan.
• Pada semua textbox, kosongkan property [Text].
• Pada Command1, isi property [Caption] dengan Cek
  
  Atur tampilannya seperti gambar berikut:
  
• 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”
Elseket = “GANJIL”
End If
Text2 = ket
End Sub
• Simpan project ini dengan memilih menu [File] >> [Save Project]. Maka simpan form     dengan nama formLatihan1, dan simpan project dengan nama projectLatihan1.
• Jalankan program dan uji dengan beberapa bilangan.


Penulisan percabangan di dalam Visual Basic mempunyai beberapa format, antara lain:
• Jika kondisi dipenuhi maka dilakukan proses yang hanya satu baris perintah
If kondisi Then <Proses Kondisi Benar>
•  Jika kondisi dipenuhi maka dilakukan proses yang lebih dari satu baris perintah
If kondisi Then
<Proses Kondisi Benar> End If
• 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>
• 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
Contoh 3:
 “Jika nilai<60 maka tidak lulus, jika tidak lulus” dapat dituliskan dengan:
 If Nilai<60 Then Ket=”Lulus” Else Ket=”Tidak Lulus”
 Contoh 4:
 “Jika pembelian > 50000 maka mendapat hadiah cangkir”, dapat dituliskan dengan:
 If pembelian > 50000 Then Hadiah = “Cangkir”
Contoh 5:
“Jika nilai<41 maka keterangan diisi dengan tidak lulus dan nilai huruf diberi E”, dapat dituliskan dengan:
                If nilai<41 Then
                Ket = “ Tidak Lulus” NilaiHuruf = “E”
                End If
Contoh 6:
“Jika  pembelian>500000  maka  mendapat  potongan  10%  dan  hadiah  berupa  tas cantik, jika tidak potongan 5%”, dapat dituliskan dengan:
If pembelian > 500000 Then
Potongan = (10/100) * Pembelian
Hadiah = “Tas Cantik”
Else
Potongan = (5/100) * Pembelian
End If
•