Keputusan IF

KHAIRIL MUFLIH NASUTION<*_^>.....

  BAB IV

Struktur Keputusan(Bagian 1)

Tujuan

Memberikan pemahaman tentang struktur keputusan atau pemakaian selection If.

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.

IF … THEN … ELSE  STATEMENT

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.Tentukan Propertiesnya

 


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

4.Kode Program

     Kode program diketik pada Objek Button1 (Proses)  sbb:

  Private Sub BtnProses_Click(ByVal sender As System.Object,…

          If TxtNilai.Text >= 75 Then

        TxtHasil.Text = "LULUS"

      Else

        TxtHasil.Text = "GAGAL"

      End If

  End Sub

5.Hasil program ketika dijalankan

 "DENGAN SYARAT JIKA NILAI DIATAS 75 MAKA IA AKAN OTOMATIS LULUS"
JIKA NILAI DIBAWAH 75 MAKA SECARA OTOMATIS KELUARAN HASIL NILAI NYA GAGAL ! .

 

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"

      ElseIf TxtNilai.Text >= 75 Then

        TxtHasil.Text = "DAFTAR PENGGANTI"

      Else

        TxtHasil.Text = "GAGAL"

      End If

  End Sub

 3.Hasil Program Ketika Dijalankan

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 sbb:

2.Atur Propertiesnya sebagai berikut:

3. Ketikkan Kode Program Tersebut dan sesuaikan dengan fungsinya masing-masing
KODE PROGRAM:

Public Class kbmuflih

    Private Sub cbokb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbokb.SelectedIndexChanged
        If cbokb.Text = "PL01" Then
            txtnb.Text = "Buku Kiky 100"
            txthb.Text = "7000"
        ElseIf cbokb.Text = "PL02" Then
            txtnb.Text = "Buku Sinar Dunia 100"
            txthb.Text = "5000"
        ElseIf cbokb.Text = "BK01" Then
            txtnb.Text = "Pulpen Tiga Warna"
            txthb.Text = "3500"
        ElseIf cbokb.Text = "BK02" Then
            txtnb.Text = "Pulpen Biasa"
            txthb.Text = "2000"
        End If
    End Sub

    Private Sub btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntutup.Click
        End
    End Sub

    Private Sub mu3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cbokb.Items.Add("PL01")
        cbokb.Items.Add("PL02")
        cbokb.Items.Add("BK01")
        cbokb.Items.Add("BK02")
    End Sub

    Private Sub txtnb_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnb.TextChanged

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        txthb.Text = ""
        txtnb.Text = ""
        txtjlh.Text = ""
        txttth.Text = ""
        cbokb.Text = "KODE BARANG"

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        txttth.Text = Val(txtjlh.Text) * Val(txthb.Text)

    End Sub

    Private Sub txtjlh_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjlh.TextChanged

    End Sub

    Private Sub txttth_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txttth.TextChanged

    End Sub
End Class

4.Selanjutnya jika sudah selesai membuat kode programnya, Kemudian Jalankan Program dengan meneka F-5 Pada Keyboard.
Dan Hasil nya Seperti TAMPILAN DIBAWAH INI :

 SELESAI...😁 Semoga Bermanfaat