Langsung ke konten utama

STRUKTUR KEPUTUSAN (Bagian 2)

STRUKTUR KEPUTUSAN (Bagian 2)

       Langsung Download

 

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


Contoh 1:
1. Desain Program


Objek
Name
TextBox1
TxtJPR
TextBox2
TxtHadiah
Button1
BtnProses
Button2
BtnBersih
Button3
BtnTutup




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.


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 As System.Object,… 
    If Txtnpa.Text >= 85 And Txtnps.Text >= 75 Then
          Txthasil.Text = "LULUS"
      Else
          Txthasil.Text = "GAGAL"
      End If
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

Paket Dari Surga Setiap pasang mata itu selalu punya peran masing-masing dalam menjalani kesenjangan di kehidupan. Ini merupan sebuah sifat yang sudah dianggap lumrah pada manusia karna manusia itu merupakan makhluk sosial yang selalu hidup berdampingan, maka dari itu hadirny dua insan yang berbeda, membuatny saling belajar untuk dapat melekapi dalam kehidupan. Ini merupakan sebuah kisah nyata yang tengah ku alami. Kejadian pilu yang menimpa Ku beberapa tahun yang lalu merupakan sebuah kejadian yang tidak akan pernah terlupakan seumur hidup Ku. Aku kehilangan sosok yang paling Ku sayangi dan amat Ku kasihi di dunia ini untuk selamanya. Tapi, ada juga kalanya sering Aku bertanya-tanya. “Bagaimana ya keadaan istriku sekarang di alam surgawi sana,…???” “Baik-baik sajakah ia...???” “Ia pasti sangatlah sedih karena sudah meninggalkan sorang suami yang tidak mampu mengurus rumah dan seorang anak yang masih begitu kecil", ucap hati kecilKu sambil mengerutkan dahi. Yah...
Posting Komentar
Baca selengkapnya
Do’a Baik Untuk Nya By : Bobbay Crispy Kali ini mungkin aku tak lagi samar dengan perasaanku, sebuah perasaan yang kian membanyang diingatan. Semilir hembusan angin yang mengikuti suara helaan nafas, dengan dera ia n air mata seolah berusaha menjadi hiasan, semua membalut dalam kesunyian yang menjadi tema dalam sebuah cerita yang sudah seperti sahabat menurut Ku , dan Semua sepertinya sudah meresap dan menyatu dalam hidup Ku yang senantiasa berjalan berdampingan sebagai pelengkap kalbu. Bahkan semilir nyanyian angin di dalam kesunyian pun terkadang tak dapat menahan deraian airmata Ku yang berjatuhan. Adakah waktu yang enggan bersahabat denganku… ? Mempertemukan Aku yang rindu akan hadirnya dirimu, pada Mu ingin Ku ceritakan semua apa yang ada di dalam angan yang kian menyiksa Ku setiap saat dalam satuan waktu.             Diary seorang gadis cantik dengan senyum manis yang menggoyahkan jiwa.  “Indri”...
Posting Komentar
Baca selengkapnya

MESSAGEBOX (MSGBOX)

MESSAGEBOX (MSGBOX) Langsung Download           Tujuan Memberikan pemahaman tentang penggunaan MessageBox. MsgBox (Kotak Pesan) Berfungsi untuk menampilkan pesan atau komentar dalam bentuk form. Bentuk Perintah MsgBox(“Isi Pesan“, MsgBoxStyle, “Judul Pesan“) Keterangan gambar: 1. Œ Judul Pesan 2.MsgBoxStyle 3. si Pesan Ada beberapa MsgBoxStyle, yaitu: 1.       MsgBoxStyle.Critical (16)                   :    tombol OK dan gambar icon Critical MsgBoxStyle.Question (32)           :           tombol OK dan gambar icon Question MsgBoxStyle.Exclamation (48)     :           tombol OK dan gambar icon Exclamation MsgB...
Posting Komentar
Baca selengkapnya