KONDISI DAN KEPUTUSAN

PERCABANGAN DENGAN IF.. THEN.. ELSE

Percabangan berdasarkan kondisi suatu variabel atau nilai di dalam pemrograman Visual Basic dinyatakan dengan perintah:

Penulisan percabangan seperti di atas disebut dengan “kondisi dan keputusan”. Dalam pengertian yang umum bisa dikatakan:

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. 

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






Jika kondisi dipenuhi maka dilakukan proses lebih dari satu baris perintah 

 If kondisi Then 
     <Proses Kondisi Benar>
 End If 
2. Jika kondisi dipenuhi maka dilakukan proses A, jika tidak maka akan dilakukan proses B, yang masing-masing hanya satu baris perintah lebih dari satu baris perintah 

 If kondisi Then <Proses A> Else <Proses B>


3. Jika kondisi dipenuhi maka dilakukan proses A, jika tidak dilakukan proses B yang masing-masing lebih dari satu baris perintah 

           If kondisi Then 

                 <Proses A>

          Else

                 <Proses B>

          End If