Struktur Keputusan (CASE) pada Microsoft Visual Studio 2008

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.

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

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

                  TxtHasil.Text = "LULUS"

       Else

    TxtHasil.Text = "GAGAL"

            End If

    End Sub

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"

      Else TxtNilai.Text >= 75 Then

        TxtHasil.Text = "DAFTAR PENGGANTI"

      Else

        TxtHasil.Text = "GAGAL"

      End If

     End Sub

Contoh 3:
Penggunaan Objek ComboBox Objek ComboBox digunakan untuk membuat daftar pilihan.

Untuk memasukkan daftar pilihan ada 2 cara:

(1)  menggunakan properties yaitu items

      Klik properties items, kemudian ketik daftar pilihan.

(2) menggunakan kode program

      BP. : NamaObjekComboBox.Items.Add(“Daftar Pilihan“)

1. Desain Program

2. Alur Program
-  Pilih (klik) salah satu Kode Barang pada objek ComboBox, maka akan tampil Nama Barang dan Harga Barang.

    Tabel Pengujiannya sebagai berikut: 

3. Kode Program

Private Sub CboKb_SelectedIndexChanged(ByVal sender As…

  If Cbokb.Text = "PL01" Then

        TxtNB.Text = "PULPEN PILOT"

        TxtHB.Text = 1200

     Else

        TxtNB.Text = "BUKU SINAR DUNIA 50 LBR"

        TxtHB.Text = 3000 
     End If

                
        End Sub

• Tweet
• Share
• Share