STRUKTUR KEPUTUSAN CASE
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.
Struktur Select Case bekerja dengan suatu percobaan tunggal yang hanya dievaluasi satu
kali pada bagian atas struktur. Visual Basic then membandingkan hasil ekspresi dengan
nilai pada setiap Case didalam struktur tersebut, jika ada yang sesuai, akan dijalankan
blok statement yang sesuai.
kali pada bagian atas struktur. Visual Basic then membandingkan hasil ekspresi dengan
nilai pada setiap Case didalam struktur tersebut, jika ada yang sesuai, akan dijalankan
blok statement yang sesuai.
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
Objek
|
Name
|
TextBox1
|
TxtJPR
|
TextBox2
|
TxtHadiah
|
Button1
|
BtnProses
|
Button2
|
BtnBersih
|
Button3
|
BtnTutup
|
- 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
|
#. Kode Program
Kode program diketik pada Objek Button1 (Proses) sbb:
Private Sub BtnProses_Click(ByVal sender AsSystem.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 AsSystem.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
Contoh:
Membuat Program untuk menentukan Lulus atau Gagal berdasarkan dua parameter nilai yaitu Nilai Potensi Akademik dan Nilai Psikotes.
Desain Program sebagai berikut:
Objek
|
Name
|
TextBox1
|
TxtNPA
|
TextBox2
|
TxtNPs
|
TextBox3
|
TxtHasil
|
Button1
|
BtnProses
|
Button2
|
BtnBersih
|
Button3
|
BtnTutup
|
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 AsSystem.Object,…
If Txtnpa.Text >= 85 And Txtnps.Text >= 75 Then
Txthasil.Text = "LULUS"
Else
Txthasil.Text = "GAGAL"
End If
End Sub
maka hasilnya akan seperti gambar:
Tidak ada komentar:
Posting Komentar