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.
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
<= : 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,…
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
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:
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:
If TxtNilai.Text >= 85 Then
TxtHasil.Text
= "LULUS"
Else 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
2. Alur Program
- Pilih (klik) salah satu Kode Barang pada objek ComboBox, maka akan tampil Nama Barang dan Harga Barang.
Tabel Pengujiannya sebagai berikut:
3. Kode Program
Private Sub
CboKb_SelectedIndexChanged(ByVal sender As…
If Cbokb.Text = "PL01"
Then
TxtNB.Text
= "PULPEN PILOT"
TxtHB.Text
= 1200
Else
TxtNB.Text
= "BUKU SINAR DUNIA 50 LBR"
TxtHB.Text
= 3000
End If
End If
End Sub
0 komentar:
Posting Komentar