Struktur IF-THEN dan IF-THEN-ELSE (Kontrol Program)
Di dalam pemrograman kita mengenal istilah struktur penyeleksian Kondisi (Conditional Statemaent) dan struktur perulangan (looping). Kedua struktur ini sangat penting dalam mengontrol suatu program yang kita buat. Tanpa menggunakan kontrol ini program yang kita buat tidak berdaya apa-apa. Penyeleksian kondisi
atau pernyataan kondisi (conditional statement) merupakan suatu pernyataan yang
menganalisa suatu keadaan dan mengambil keputusan berdasarkan pada hasil analisa itu. Hasil dari penyeleksian jika bernilai
benar maka akan dikerjakan instruksi tertentu. Jika salah maka akan dikerjakan
instruksi yang lain.
CONTOH:
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
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
You need to participate in a challenge for probably the best webpage on the web. I will enthusiastically suggest this site!
ReplyDeletePaint
In the wake of going over a modest bunch of the blog articles on your site, I really appreciate your procedure of composing a blog. I bookmarked it to my bookmark site page list and will return sooner rather than later. Kindly look at my site also and let me understand your opinion.
ReplyDeletegadget media
thank Python Training in chennai | Python Classes in Chennai you for your post
ReplyDeleteinstagram takipçi satın al \n instagram takipçi satın al \n takipçi satın al \n takipçi satın al \n instagram takipçi satın al \n takipçi satın al \n instagram takipçi satın al \n aşk kitapları \n tiktok takipçi satın al \n instagram beğeni satın al \n youtube abone satın al \n twitter takipçi satın al \n tiktok beğeni satın al \n tiktok izlenme satın al \n twitter takipçi satın al \n tiktok takipçi satın al \n youtube abone satın al \n tiktok beğeni satın al \n instagram beğeni satın al \n trend topic satın al \n trend topic satın al \n youtube abone satın al \n beğeni satın al \n tiktok izlenme satın al \n sms onay \n youtube izlenme satın al \n tiktok beğeni satın al \n sms onay \n sms onay \n perde modelleri \n instagram takipçi satın al \n takipçi satın al \n tiktok jeton hilesi \n pubg uc satın al \n sultanbet \n marsbahis \n betboo \n betboo \n betboo
ReplyDelete
ReplyDeleteHello
Please i just took up macaw breeding as a hobby after my mom passed away because they were her favorite birds. Despite the fact that they are very intelligent, am finding it very difficult getting them to mate.
For any information CLICK HERE http://supremeparrotfarm.company.com/ we shall get back to you. contact-about-us. THANKS
Ucuz, kaliteli ve organik sosyal medya hizmetleri satın almak için Ravje Medyayı tercih edebilir ve sosyal medya hesaplarını hızla büyütebilirsin. Ravje Medya ile sosyal medya hesaplarını organik ve gerçek kişiler ile geliştirebilir, kişisel ya da ticari hesapların için Ravje Medyayı tercih edebilirsin. Ravje Medya internet sitesine giriş yapmak için hemen tıkla: https://www.ravje.com
ReplyDeleteİnstagram takipçi satın almak için Ravje Medya hizmetlerini tercih edebilir, güvenilir ve gerçek takipçilere Ravje Medya ile ulaşabilirsin. İnstagram takipçi satın almak artık Ravje Medya ile oldukça güvenilir. Hemen instagram takipçi satın almak için Ravje Medyanın ilgili sayfasını ziyaret et: instagram takipçi satın al
Tiktok takipçi satın al istiyorsan tercihini Ravje Medya yap! Ravje Medya uzman kadrosu ve profesyonel ekibi ile sizlere Tiktok takipçi satın alma hizmetide sunmaktadır. Tiktok takipçi satın almak için hemen tıkla: tiktok takipçi satın al
Amazing post! I really liked it
ReplyDeleteMobile Prices Bangladesh
1- takipçi satın al
ReplyDelete2- takipçi satın al
3 - takipçi satın al
WhatsApp Plus v19.32 Crack application that is messaging for Android system only. This application works on your phones that are different. Whatsapp Plus Crack
ReplyDeleteIt is a strong and collective item which is established on and utilized by loads of people in the world. that asks for can move all Microsoft items easily utilizing a single tick for essentially life use. https://cyberspc.com/re-loader-activator-crack/
ReplyDeletewow, nambah pengetahuan banget seputar dunia programming. Terimakasih!
ReplyDeleteChristmas Messages for use in Cards and Letters. May abundant peace and vibrant joy be yours this Christmas season; Wishing you a wonderful holiday season Christmas Wishes For Love
ReplyDeleteThe Vivo Y22s is a mid-range smartphone released in December 2020. It has a 6.51-inch IPS LCD display with a resolution of 720 x 1600 pixels. It is powered by a MediaTek Helio P35 chipset with 4 GB of RAM and 128 GB of internal storage.
ReplyDeletevivo y22s price and full specs
sms onay satın al sms tr onay
ReplyDeleteEv kadınlarına Yardım başvurusu
ReplyDeleteMobil onay satın al
ReplyDeleteyurtdışı kargo
ReplyDeleteresimli magnet
instagram takipçi satın al
yurtdışı kargo
sms onay
dijital kartvizit
dijital kartvizit
https://nobetci-eczane.org/
QCUH
salt likit
ReplyDeletesalt likit
dr mood likit
big boss likit
dl likit
dark likit
K7GİGN
salt likit
ReplyDeletesalt likit
Y6Q
salt likit
ReplyDeletesalt likit
Y8XF
https://bayanlarsitesi.com/
ReplyDeleteGüneşli
Halkalı
Florya
Akbatı
CS0OM5
Ağrı Lojistik
ReplyDeleteÇorlu Lojistik
Kars Lojistik
Antalya Lojistik
Rize Lojistik
E5WLPU
21530
ReplyDeleteBatman Şehir İçi Nakliyat
Malatya Şehir İçi Nakliyat
Çerkezköy Ekspertiz
Binance Referans Kodu
Tunceli Evden Eve Nakliyat
Çorum Parça Eşya Taşıma
Tekirdağ Çatı Ustası
Afyon Şehirler Arası Nakliyat
Bursa Şehir İçi Nakliyat
817B9
ReplyDeleteZonguldak Şehir İçi Nakliyat
Kırıkkale Şehir İçi Nakliyat
Sakarya Şehirler Arası Nakliyat
Mamak Parke Ustası
Van Evden Eve Nakliyat
İzmir Parça Eşya Taşıma
Sakarya Parça Eşya Taşıma
Isparta Şehirler Arası Nakliyat
Cointiger Güvenilir mi
Aioututor for online assistant in your offline education.
ReplyDeleteNice blog keep posting.
ReplyDeleteJava training institute in Hyderabad
The search function is a bit limited. It would be helpful to filter scholarships by specific criteria such as field of study, level (undergraduate, postgraduate), and country eligibility. Enhancing this feature would significantly improve the user experience. See more paraphrasings tool free
ReplyDeleteE1D58
ReplyDeleteFuckelon Coin Hangi Borsada
Binance Referans Kodu
Soundcloud Beğeni Satın Al
Threads Beğeni Satın Al
Parasız Görüntülü Sohbet
Threads Yeniden Paylaş Hilesi
Coin Para Kazanma
Alya Coin Hangi Borsada
Binance Referans Kodu
6F113
ReplyDeleteBtcst Coin Hangi Borsada
Referans Kimliği Nedir
Tiktok Takipçi Satın Al
Telegram Görüntüleme Hilesi
Görüntülü Sohbet
Linkedin Beğeni Satın Al
Twitch Takipçi Hilesi
Dlive Takipçi Satın Al
Soundcloud Reposts Satın Al
5F4F3
ReplyDeleteKripto Para Üretme Siteleri
Görüntülü Sohbet Parasız
Kripto Para Nasıl Kazılır
Raca Coin Hangi Borsada
Binance Borsası Güvenilir mi
Arg Coin Hangi Borsada
Tumblr Beğeni Satın Al
Snapchat Takipçi Satın Al
Binance Referans Kodu
73EAB
ReplyDeletebinance
bingx
okex
binance
referans kimliği
canlı sohbet ücretsiz
binance referans kimliği
btcturk
kripto para telegram
7EAFE
ReplyDeletewhatsapp sanal şov
84CCD
ReplyDeletegüvenilir sanal şov
FF97A
ReplyDeletewhatsapp görüntülü show güvenilir
This comment has been removed by the author.
ReplyDelete81578
ReplyDeletegörüntülü şov
D4801
ReplyDeleteücretli show
I’m glad you found the post helpful for your research! I'll be sure to share more information on the topic in the future.
ReplyDeleteangularjs online classes in hyderabad
411FA8BBEE
ReplyDeletelifta
cialis
bayan azdırıcı damla
geciktirici
green temptation
lay era
vigrande
kaldırıcı
viagra
C7FE54A167
ReplyDeletesildegra
görüntülü şov whatsapp numarası
whatsapp görüntülü şov
whatsapp ücretli show
geciktirici
skype show
ereksiyon hapı
lifta
telegram görüntülü şov
FAC6C31C0A
ReplyDeletesildegra
bayan azdırıcı damla
kaldırıcı
cialis
green temptation
viga
delay
canli web cam show
görüntülü şov
2D07A33C1C
ReplyDeleteskype şov
91738798CA
ReplyDeletethemra macun
telegram görüntülü şov
ücretli şov
performans arttırıcı
skype şov
cam şov
viagra
bayan azdırıcı damla
canli web cam show