Struktur IF-THEN dan IF-THEN-ELSE (Kontrol Program)

Terdapat pernyataan bahwa jika cuaca hujan maka” saya tinggal di rumah”, sedang tidak
hujan “saya main bola”.
Bentuk strukturnya:
If (cuaca = “hujan” ) then
tindakan
=”tinggal di rumah”
Else
tindakan
=”main bola”
End if
Struktur IF-THEN
Disebut juga dengan
branch sturucture
Merupakan
struktur percabangan dimana suatu ekspresi akan dikerjakan jika kondisinya
terpenuhi. Tetapi jika kondisi tidak terpenuhi maka ekspresi di dalam struktur
if tidak akan dijalankan dan blok if akan dilompati serta program akan
melakukan tindakan berikutnya.
BENTUK
STRUKTURNYA:
IF (KONDISI)
THEN
…….EKSPRESI……
END IF
Kondisi:
Perbandigan antara satu variabel/konstanta dengan variabel/konstanta
lain dengan menggunakan tanda <,
>, =, <>, >=, <=.
Ekspresi:
Rangkaian kode program (blok program) yang akan dijalankan jika
kondisinya bernilai benar (memenuhi syarat).
Contoh:
Buat suatu program yang akan
menyeleksi suatu inputan nilai akhir mahasiswa. Inputan nilai dilakukan lewat
inputbox melalui prosedur form_click. Lakukan seleksi pada nilai tersebut yaitu
jika nilainya lebih besar atau sama dengan 55
cetak keterangan”lulus”. Tetapi jika tidak terpenuhi program akan berakhir. Asumsikan
inputan nilai antara 0 sampai 100.
Private sub form_click()
dim
nilai_akhir as integer
nilai_akhir
= inputbox(“ketik nilai akhir”)
if
(nilai_akhir) >= 55 then
print
“nilai_akhir : “ & nilai_akhir
print
“keterangan : lulus “
end
if
End sub
Struktur IF-THEN-ELSE
Disebut juga dengan selection structure
Merupakan struktur
percabangan dimana suatu ekspresi akan dikerjakan jika kondisinya terpenuhi.
Jika tidak terpenuhi maka ekspresi yang lain akan dikerjakan.
Struktur if then else
sbb:
if (kondisi) then
….ekspresi 1….
else
….ekspresi 2…..
end if
Ekspresi 2: rangkaian kode program(blok program) yang akan dijalankan
jika kondisinya bernilai salah (tidak memenuhi syarat)
Contoh:
Buat suatu program yang akan
menyeleksi suatu inputan nilai akhir mahasiswa. Inputan nilai dilakukan lewat
inputbox melalui prosedur form_click. Lakukan seleksi pada nilai tersebut yaitu
jika nilainya lebih besar atau sama dengan 55
cetak keterangan”lulus”. Tetapi jika tidak terpenuhi cetak keterangan “gagal”. Asumsikan
inputan nilai antara 0 sampai 100.
private sub form_click()
dim
nilai_akhir as integer
nilai_akhir
= inputbox(“ketik nilai akhir”)
if
(nilai_akhir) >= 55 then
print
“nilai_akhir : “ & nilai_akhir
print
“keterangan : lulus “
else
print
“keterangan : gagal “
end
if
end sub
Pada
kondisi tertentu di dalam struktur if then else bisa ditempatkan struktur if
then atau if then else yang lain. Bentuk semacam ini biasa disebut if tersarang
atau nested if.
Bentuk
penulisan dari struktur ini adalah sebagai berikut:
If (kondisi 1) then
if (kondisi 2)
then
…ekspresi 1…
else
…ekspresi
2
end if
Else
ekspresi 3
End if
Atau
If (kondisi 1) then
if (kondisi 2)
then
…ekspresi
1…
else
…ekspresi 2
end if
Else
if (kondisi 3) then
…ekspresi
3…
else
…ekspresi
4…
End
if
End if
Penulisan
di atas dapat juga digabungkan antara else dan if untuk kondisi yang ketiga dan
dengan membuang satu end if, seperti
berikut:
If (kondisi 1) then
if (kondisi 2)
then
…ekspresi
1…
else
…ekspresi
2
end if
Else if (kondisi
3) then
…ekspresi
3…
else
…ekspresi
4…
End if
Keterangan:
Ø Kondisi 1:Berisi
perbandingan antara satu variabel/konstanta dg variabel lain dengan menggunakan
tanda >,<,<>,=,>=,<=
Ø Kondisi 2 : akan dikerjakan jika nilai
kondisi 1 benar(terpenuhi)
Ø Kondisi 3: akan dikerjakan jika nilai
kondisi 1 adalah salah(tdk terpenuhi)
Ø Ekspresi 1 : rangkaian kode program(blok
program) yang akan
dijalankan jika kondisi
1 dan 2 bernilai benar(memenuhi syarat)
Ø Ekspresi 2 : rangkaian program yang akan
dijalankan jika kondisi 1 benar
dan kondisi 2 bernilai salah
Ø Ekspresi 3 : rangkaian program yang akan
dijalankan jika kondisi 1 salah
tetapi kondisi 3 bernilai benar
Ø Ekspresi 4 : rangkaian program yang akan
dijalankan jika kondisi 1 salah
dan kondisi 3 juga salah
Contoh:
Buat
sebuah program menyeleksi jenis kelamin dan status perkawinan seseorang dimana
keduanya diinputkan lewat inputbox. Jika seseorang jenis kelaminnya “pria”,
lakukan seleksi apakah “sudah menikah”. Jika keduanya terpenuhi, tampilkan
“ayah” sedangkan jikat tidak terpenuhi tampilkan ”jejaka”. Tetapi jika jenis
kelaminya “wanita/bukan pria”, lakukan pengecekan apakah statusnya “sudah
menikah”. Jika keduanya terpenuhi, tampilkan “ibu” sedangkan tidak terpenuhi
tampilkan “perawan”. Ketik listing programnya pada prosedur form_click seperti
berikut:
Dim jenis
as string
Dim status
as string
Jenis = inputbox (“jenis kelamin”)
Status = inputbox (“sudah menikah”)
Print “jenis kelamin : “ & jenis
Print “sudah menikah : “ & status
Print “keterangan : “;
If jenis = “pria” then
if
status = “sudah” then
print
“ayah”
else
print
“jejaka”
end
if
Else
if
status =”sudah” then
print
“ibu”
else
print
“perawan”
end
if
End if
Contoh Pemakaian Dalam Program (Program Login)
Private sub command1_click()
If tuser.text <> "" and tpas.text
<> "" then
set
rslogin = new adodb.recordset
rslogin.locktype = adlockoptimistic
rslogin.cursortype = adopendynamic
rslogin.open "select * from login where user_name = '" &
tuser.text & "' and password = '" & tpas.text &
"'", conn, , , adcmdtext
if not
rslogin.eof then
msgbox
("login anda berhasil")
form1.show
login.visible = false
else
msgbox "user name dan password salah silahkan ulangi kembali",
vbcritical
exit sub
end if
End if
End sub
Amazing experience on reading your article. It is really nice and informative.
ReplyDeletePython Training in Chennai
Python Training in T.Nagar
JAVA Training in Chennai
Big data training in chennai
Selenium Training in Chennai
Python Training in Annanagar
Thanks for sharing with us that awesome article you have amazing blog..............
ReplyDeleteBig Data Hadoop Training In Chennai | Big Data Hadoop Training In anna nagar | Big Data Hadoop Training In omr | Big Data Hadoop Training In porur | Big Data Hadoop Training In tambaram | Big Data Hadoop Training In velachery
I am really enjoying reading your well written articles. It looks like you spend a lot of effort and time on your blog. I have bookmarked it and I am looking forward to reading new articles. Keep up the good work.
ReplyDeletetally training in chennai
hadoop training in chennai
sap training in chennai
oracle training in chennai
angular js training in chennai