STRUKTUR
KEPUTUSAN (Bagian 2)
Tujuan
Memberikan pemahaman tentang struktur
keputusan atau pemakaian selection Select Case.
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.
Select Case
Statement
Digunakan untuk pengambilan keputusan dari beberapa
pilihan.
Jika dalam perintah IF pengecekan dilakukan berdasarkan
kondisi, namum dalam Select Case pengecekan dilakukan berdasarkan nilai
Ekspresi.
Bentuk Penulisan:
Select Case
[Kondisi]
Case [Ekspresi1]
[Statement1]
Case [Ekspresi2]
[Statement2]
...
Case Else
[Statement n]
End Select
Select Case
Dengan To
Operator Logika
2. Ganti Operator Or menjadi Not. Jalankan Program dan lihat hasilnya.
2.
Alur Program
- Input Jumlah Point Reward.
- Klik Proses, maka akan tampil keterangan Hadiah
sesuai point reward.
Tabel Hadiah sebagai berikut:
Point
Reward
|
Hadiah
|
500 – 1000
|
Mug Cantik
|
1001 – 1500
|
Boneka Cantik
|
1501 – 2000
|
Kipas Angin
|
2001 – 2500
|
Dispenser
|
3. Kode Program
Kode
program diketik pada Objek Button1 (Proses)
sbb:
Private Sub BtnProses_Click(ByVal
sender As System.Object, ...
Select Case
Val(TxtJPR.Text)
Case Is <= 1000
TxtHadiah.Text
= "Mug Cantik"
Case Is <= 1500
TxtHadiah.Text
= "Boneka Cantik"
Case Is <= 2000
TxtHadiah.Text
= "Kipas Angin"
Case Is <= 2500
TxtHadiah.Text
= "Dispenser"
Case Else
TxtHadiah.Text
= "Tidak Ada"
End Select
End Sub
Select Case
Dengan To
Digunakan untuk kondisi berupa range angka.
Bentuk Penulisan:
Select Case
[Kondisi]
Case [Nilai Awal1] to [Nilai
Akhir1]
[Statement 1]
Case [Nilai Awal2] to [Nilai
Akhir2]
[Statement 2]
...
Case Else
[Statement n]
End Select
Contoh 2:
Menggunakan Program pada Contoh 1.
Ubah perintah program
menjadi berikut:
Private Sub BtnProses_Click(ByVal
sender As System.Object, ...
Select Case
Val(TxtJPR.Text)
Case 500 To 1000
TxtHadiah.Text
= "Mug Cantik"
Case
1001 To 1500
TxtHadiah.Text = "Boneka
Cantik"
Case 1501 To 2000
TxtHadiah.Text
= "Kipas Angin"
Case
2001 To 2500
TxtHadiah.Text = "Dispenser"
Case Else
TxtHadiah.Text
= "Tidak Ada"
End Select
End Sub
Operator Logika
Pengambilan suatu keputusan tidak hanya dapat dilakukan untuk satu kondisi
pengujian, tetapi dapat dilakukan juga untuk beberapa kondisi pengujian. Untuk
melakukan proses pengambilan keputusan dari 2 atau lebih kondisi diperlukan
operator yang dapat menghubungkan kondisi-kondisi yang akan diuji tersebut.
Adapun Operator yang digunakan adalah:
And
And adalah operasi
yang melakukan pengecekan atas 2 kondisi atau variabel yang ada. Jika kedua
kondisi bernilai true, maka hasil operasi AND adalah true, selain itu false.
Or
Or adalah operasi
yang melakukan pengecekan atas 2 kondisi atau variabel yang ada. Jika salah
satu kondisi bernilai true, maka hasil operasi OR adalah true, selain itu false.
Not
Not
adalah operasi yang melakukan pengecekan atas 1 kondisi atau variabel yang ada.
Jika kondisi bernilai true, maka hasil operasi NOT adalah false,
dan sebaliknya
Alur
Program sebagai berikut:
- Input Nilai
Potensi Akademik dan Nilai Psikotes
- Klik Proses, maka akan tampil Keterangan LULUS
atau GAGAL pada hasil.
Pengujiannya
sebagai berikut:
Jika Nilai
Potensi Akademik 85 keatas DAN Nilai Psikotes 75 keatas maka hasil: “LULUS”
selain itu hasil: “GAGAL”
Kode Program:
Kode program diketik pada Objek Button1 (BtnProses) sbb:
Private
Sub BtnProses_Click(ByVal
sender As System.Object,…
If Txtnpa.Text
>= 85 And Txtnps.Text >= 75 Then
Txthasil.Text = "LULUS"
Else
Txthasil.Text = "GAGAL"
End
If
End Sub
Percobaan:
1. Ganti
Operator And menjadi Or. Jalankan
Program dan lihat hasilnya.
memakai or
2. Ganti Operator Or menjadi Not. Jalankan Program dan lihat hasilnya.
Tidak ada komentar:
Posting Komentar