Struktur kontrol keputusan

 Struktur kontrol keputusan IF…THEN
Struktur keputusan If..Then dapat ditulis dalam 2 bentuk penulisan , yaitu :
1. IF <kondisi> THEN <peryataan>
Dimana kondisi adalah pernyataan bersyarat, dan pernyataan adalah pernyataan program Visual Basic
yang sah. Bila <kondisi> bernilai True maka <peryataan> akan dikerjakan. Sebagai contoh :
If nilai >= 80 Then Textbox1.Text=A
2. IF <kondisi> THEN
<peryataan1>
ELSE
<peryataan 2>
END IF
Dimana bila <kondisi1> bernilai True maka <peryataan 1> akan dikerjakan,
tetapi bila <kondisi1> bernilai False maka <peryataan 2> yang akan dikerjakan.
Contoh :
If nilai >=60 then
Modul Pemrograman Visual
Label1.caption=”Anda LULUS”
Else
Label1.caption=”Maaf Anda Belum Lulus”
Endif
Atau
IF <kondisi1> THEN
<peryataan jika kondisi1 bernilai True>
ELSEIF <kondisi2>
<peryataan jika kondisi2 bernilai True>
ELSEIF <kondisi3>
<peryataan jika kondisi3 bernilai True>
ELSE
<peryataan jika tidak ada kondisi yang bernilai True>
END IF
Dimana <kondisi> yang merupakan suatu ekspresi logika akan diuji perintah if yang pertama yang ada
disebelah kirinya. Jika <kondisi> benar maka blok perintah yang terletak di bawahnya akan dikerjakan
sampai menemi perintah ElseIf atau Else lalu langsung melompat ke pernyataan End If.
Sebagai contoh :
If nilai>=85 Then
Label1.Caption=”Anda mendapatkan nilai A”
Elseif nilai>=70 Then
Label1.Caption=”anda mendapatkan nilai B”
Elseif nilai>=50 Then
Label1.Caption=”Anda mendapatkan nilai C”
Else
Label1.Caption=”Anda mendapatkan nilai D”
End if

Struktur kontrol keputusan SELECT…CASE

Select Case sebenarnya serupa dengan struktur If…Then…Elself, hanya saja struktur ini lebih efisien , mudah
dibaca dan mudah digunakan terutama jika percabangan dibuat berdasarkan satu variabel kunci, atau uji
kasus (test case). Struktur ini biasanya digunakan untuk percabangan dengan pilihan lebih dari 2
(percabangan dengan banyak pilihan).
Tata penulisan untuk struktur Select Case adalah sebagai berikut:
SELECT CASE <pilihan>
CASE <pilihan 1>
<peryataan program yang dilaksanakan jika pilihan=pilihan1>
CASE <pilihan 2>
<peryataan program yang dilaksanakan jika pilihan=pilihan2>
CASE <pilihan n>
<peryataan program yang dilaksanakan jika pilihan=pilihann>
[CASE ELSE]
<peryataan program yang dilaksanakan jika pilihan1 sampai n tidak ada yang sesuai maka peryataan ini
akan dikerjakan>
END SELECT
Sebagai contoh :
Select Case Nilai
Case >=85
Label1.Caption=” Anda mendapatkan nilai A”
Case >=70
Label1.Caption=”anda mendapatkan nilai B”
Case >=50
Label1.Caption=”anda mendapatkan nilai C”
Else
Label1.Caption=”Anda mendapatkan nilai D”
End Select