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
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”
- 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.
- Jika kondisi dipenuhi maka dilakukan proses yang hanya satu baris perintah
- Jika kondisi dipenuhi maka dilakukan proses yang lebih dari satu baris perintah
- Jika kondisi dipenuhi maka dilakukan proses A, jika tidak dilakukan proses B yang masing-masing hanya satu baris perintah
- Jika kondisi dipenuhi maka dilakukan proses A, jika tidak dilakukan proses B yang masing-masing hanya satu baris perintah
Private Sub Command1_Click()
bil = Val(Text1)
If bil Mod 2 = 0
Then ket = “GENAP”
Elseket = “GANJIL”
End If
Text2 = ket
End Sub
bil = Val(Text1)
If bil Mod 2 = 0
Then ket = “GENAP”
Elseket = “GANJIL”
End If
Text2 = ket
End Sub
Penulisan percabangan di dalam Visual Basic mempunyai beberapa format, antara lain:
If kondisi Then <Proses Kondisi Benar>
If kondisi Then
<Proses Kondisi Benar> End If
If kondisi Then <Proses A> Else <Proses B>
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