Tujuan
Memberikan pemahaman tentang struktur
keputusan atau pemakaian selection If.
Struktur Keputusan
Struktur keputusan adalah struktur program yang melakukan proses pengujian
untuk mengambil suatu keputusan apakah suatu baris atau blok instruksi akan
diproses atau tidak. Pengujian kondisi ini dilakukan untuk memilih salah satu
dari beberapa alternatif yang tersedia.
IF … THEN … ELSE STATEMENT
A. Pengambilan Keputusan Antara 2 (Dua) Pilihan
Bentuk Penulisan:
If [Ekspresi
Logika] Then
[Statement 1]
Else
[Statement 2]
End if
Struktur keputusan
ini akan menguji Ekspresi Logika (kondisi) yang ditentukan, jika kondisi
bernilai True (benar) maka Statement1
akan diproses, tetapi jika kondisi bernilai False (Salah)
maka Statement2 yang akan
diproses.
Ekspresi
Logika adalah suatu kondisi yang akan diuji. Untuk
menetapkan nilai yang akan diuji pada suatu kondisi harus menggunakan Operator Relasi, yaitu :
< : lebih kecil
<= : lebih kecil atau sama dengan
= : sama dengan
<> : tidak sama dengan
> : lebih besar
>= : lebih besar atau sama dengan
Contoh 1:
1. Desain Program
2.
Alur Program
- Input Nilai
- Klik Proses, maka akan tampil keterangan “LULUS”
atau “GAGAL” pada Hasil.
Pengujiannya
sebagai berikut:
Jika
Nilai 75 keatas maka “LULUS”
Jika
Nilai dibawah 75 maka “GAGAL”
3. Kode Program
Kode
program diketik pada Objek Button1 (Proses) sbb:
Private Sub
BtnProses_Click(ByVal sender As System.Object,…
If
TxtNilai.Text >= 75 Then
TxtHasil.Text
= "LULUS"
Else
TxtHasil.Text
= "GAGAL"
End If
End Sub
B. Pengambilan Keputusan Dari Banyak Pilihan (Lebih dari 2 Pilihan)
Bentuk Penulisan:
If [Ekspresi
Logika1] Then
[Statement1]
ElseIf [Ekspresi Logika2] Then
[Statement2]
ElseIf [Ekspresi Logika3] Then
[Statement3]
...
Else
[Statement n]
End if
Struktur keputusan
ini akan menguji Ekspresi Logika (kondisi) yang ditentukan, jika Ekspresi
Logika1 bernilai True (benar) maka Statement1 akan diproses, tetapi jika kondisinya
bernilai False (Salah) maka Ekspresi Logika2 akan diuji. Jika Ekspresi
Logika2 bernilai True maka Statement2 akan diproses, tetapi jika
kondisinya bernilai False maka Ekspresi Logika3 akan diuji. Jika Ekspresi
Logika3 bernilai True maka Statement3 akan diproses, tetapi jika
kondisinya bernilai False maka Statement n yang akan diproses.
Contoh 2:
1. Menggunakan
Program pada Contoh1, tetapi Alur Program diubah sebagai berikut:
- Input
Nilai
- Klik
Proses, maka akan tampil keterangan “LULUS” / “DAFTAR PENGGANTI” / “GAGAL” pada
hasil.
Pengujiannya
sebagai berikut:
Jika
Nilai 85 keatas maka “LULUS”
Jika
Nilai 75 - 84 maka “DAFTAR PENGGANTI”
Jika
Nilai dibawah 75 maka “GAGAL”
2. Kode Program
Kode
program diketik pada Objek Button1 (Proses) sbb:
Private Sub
BtnProses_Click(ByVal sender As System.Object,…
If TxtNilai.Text
>= 85 Then
TxtHasil.Text
= "LULUS"
ElseIf TxtNilai.Text
>= 75 Then
TxtHasil.Text
= "DAFTAR PENGGANTI"
Else
TxtHasil.Text
= "GAGAL"
End If
End Sub
Contoh 3:
Penggunaan Objek ComboBox
Objek ComboBox digunakan untuk membuat daftar pilihan.
Untuk memasukkan daftar pilihan ada 2 cara:
(1) menggunakan properties yaitu items
Klik
properties items, kemudian ketik daftar pilihan.
(2) menggunakan
kode program
BP. :
NamaObjekComboBox.Items.Add(“Daftar
Pilihan“)
1. Desain Program sbb:
2.
Alur Program
- Pilih (klik) salah satu Kode Barang pada
objek ComboBox, maka akan tampil Nama Barang dan Harga Barang.
Tabel Pengujiannya sebagai berikut:
Kode Barang
|
Nama Barang
|
Harga Barang
|
PL01
|
Pulpen Pilot
|
1200
|
PL02
|
Pulpen Standar
|
1000
|
BK01
|
Buku AA 60 Lbr
|
3800
|
BK02
|
Buku Sinar Dunia 50 Lbr
|
3000
|
3.
Kode Program
Perintah diketik
pada Objek ComboBox.
Private Sub CboKb_SelectedIndexChanged(ByVal sender As…
If Cbokb.Text = "PL01"
Then
TxtNB.Text
= "PULPEN PILOT"
TxtHB.Text
= 1200
ElseIf Cbokb.Text = "PL02"
Then
TxtNB.Text
= "PULPEN STANDAR"
TxtHB.Text
= 1000
ElseIf Cbokb.Text = "BK01"
Then
TxtNB.Text
= "BUKU AA 60 LBR"
TxtHB.Text
= 3000
Else
TxtNB.Text
= "BUKU SINAR DUNIA 50 LBR"
TxtHB.Text
= 3000
End If
End Sub
Latihan 3:
Ubah tampilan program menjadi sbb:
Kita Jawab di Blog Berikutnya...
Check it Out.!!
Tidak ada komentar:
Posting Komentar