STRUKTUR KEPUTUSAN_(Part-2) - MODUL - 5

STRUKTUR KEPUTUSAN_(Part-2)

• 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
 

Contoh 1:
1. Desain Program 

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:

Public Class Form1

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        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

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        TxtHadiah.Clear()
        TxtJPR.Clear()
    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 program dengan cara Click tombol Debugging.
Tampilan setelah dijalankan.

• 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.

Contoh:

Membuat Program untuk menentukan Lulus atau Gagal berdasarkan dua parameter nilai yaitu Nilai Potensi Akademik dan Nilai Psikotes.

  

1. Desain Program sebagai berikut:

 2. 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”

3. Kode Program:

Public Class Form1

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        If TxtNPA.Text >= 85 And TxtNPS.Text >= 75 Then
            TxtHasil.Text = "LULUS"
        Else
            TxtHasil.Text = "GAGAL"
        End If
    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        TxtNPS.Clear()
        TxtNPA.Clear()
        TxtHasil.Clear()
    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 Program

Tampilan Hasil program setelah di jalankan.