STRUKTUR
KEPUTUSAN (Bagian 1)
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
Objek
|
Name
|
TextBox1
|
TxtNilai
|
TextBox2
|
TxtHasil
|
Button1
|
BtnProses
|
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
contohnya :
Jika Nilai 75 keatas maka “LULUS”
dam untuk Nilai dibawah 75 maka “GAGAL”
Jika Nilai 75 keatas maka “LULUS”
dam untuk Nilai dibawah 75 maka “GAGAL”
Maka bentuk programnya
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
bentuk program Jika Nilai 85 keatas maka “LULUS”
bentuk program Jika Nilai 75 - 84 maka “DAFTAR PENGGANTI”
bentuk program Jika Nilai 85 keatas maka “LULUS”
bentuk program Jika Nilai 75 - 84 maka “DAFTAR PENGGANTI”
bentuk programJika Nilai dibawah 75 maka “GAGAL”
LATIHAN :
Contoh 3:
Penggunaan Objek ComboBox
Objek ComboBox digunakan untuk membuat daftar pilihan.
Untuk memasukkan daftar pilihan ada 2 cara:
(1) menggunakan properties yaituitems
Klik properties items, kemudian ketik daftar pilihan.
(2) menggunakan kode program
BP. :
NamaObjekComboBox.Items.Add(“Daftar Pilihan“)
1. Desain Program sbb
1. Desain Program sbb
No
|
Objek
|
Name
|
Items
|
1
|
ComboBox1
|
Cbokb
|
PL01
|
PL02
| |||
BK01
| |||
BK02
| |||
2
|
TextBox1
|
TxtNb
| |
3
|
TextBox2
|
TxtHb
| |
4
|
Button1
|
BtnTutup
|
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 SubCboKb_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
Cotoh gambar yang sudah Jadi
LATIHAN :
No
|
Objek
|
Name
|
Items
|
|
1
|
ComboBox1
|
Cbokb
|
PL01
|
|
PL02
|
||||
BK01
|
||||
BK02
|
||||
2
|
TextBox1
|
TxtNb
|
||
3
|
TextBox2
|
TxtHb
|
||
4
|
Button1
|
BtnTutup
|
yuk kita selesaikan sama -sama gusy:
1.kita desain dulu sesuai yang diatas
2 .Atur Propertisnya
3.ALUR PROGRAM :
Public Class Form1
Private Sub Cbokb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cbokb.SelectedIndexChanged
If Cbokb.Text = "NS01" Then
TxtNb.Text = "NASI GORENG"
TxtHb.Text = 10000
ElseIf Cbokb.Text = "NS02" Then
TxtNb.Text = "NASI GORENG SPESIAL"
TxtHb.Text = 12000
ElseIf Cbokb.Text = "MS01" Then
TxtNb.Text = "MIE ACEH BIASA"
TxtHb.Text = 10000
Else
TxtNb.Text = "MIE ACEH GORENG"
TxtHb.Text = 15000
End If
End Sub
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
TxtTh.Text = Val(TxtJlh.Text) * Val(TxtHb.Text)
End Sub
Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
TxtHb.Text = ""
TxtJlh.Text = ""
TxtNb.Text = ""
TxtTh.Text = ""
End Sub
Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click
End
End Sub
End Class
4 .jalankan ( menggunakan F5)
maka akan muncul seperti berikut :
yuk tonton videonya :
No comments:
Post a Comment