Lanjutan praktikum kedua, yaitu membahas tentang IF ELSE. Contoh programnya adalah membuat harga Sewa Hotel seperti tertera di bawah ini :

Double klik pada command Hitung dan isikan source code nya :

with thisform

if val(.text2.value)>=15

.text3.value=(val(.text1.value)*val(.text2.value)*10/100)

.text4.value=(val(.text1.value)*val(.text2.value))-(val(.text1.value)*val(.text2.value)*10/100)

.text5.value='Selamat anda dapat bonus 10%'

Else

if val(.text2.value)=15

.text3.value=(val(.text1.value)*val(.text2.value)*5/100)

.text4.value=(val(.text1.value)*val(.text2.value))-(val(.text1.value)*val(.text2.value)*5/100)

.text5.value='Selamat anda dapat bonus 5%'

else

.text4.value=(val(.text1.value)*val(.text2.value))

.text5.value='Maaf Anda Belum Mendapatkan Bonus'

endif

endwith

Source Code Pada Command Clear :

with thisform

.text1.value=''

.text2.value=''

.text3.value=''

.text4.value=''

.text5.value=''

.text1.setfocus

Endwith

Source Code Pada Command Exit :

Thisform.release

Selanjutnya dijalankan dengan cara klik icon

Jika kita entri lama menginap lebih dari 15 maka akan mendapatkan bonus 10%. Tapi jika kita entri lama menginap kurang dari 15 maka tidak akan  mendapatkan bonus. Dan jika kita entri sama dengan 15 akan mendapatkan bonus 5%