Fungsi IF dan ELSE


MODUL 4

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

                                                                                       

Objek
Name
TextBox1
TxtNilai
TextBox2
TxtHasil
Button1
BtnProses
















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(ByValsender As System.Object,…

          If TxtNilai.Text >= 75 Then
        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(ByValsender As System.Object,…

          If TxtNilai.Text >= 85 Then
        TxtHasil.Text = "LULUS"
      ElseIf TxtNilai.Text >= 75Then
        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“)
Latihan:
Ubah tampilan program menjadi sbb:

  


Buat kode program pada tombol Proses yang jika diklik akan menampilkan Nilai Total Harga dengan menginput Jumlah terlebih dahulu.


 Kode Program
     Kode program diketik pada Objek Button1 (Proses)  sbb:

Public Class Form1
    Public Class Form1

    Private SubCBOKB_SelectedIndexChanged(ByValsender As System.Object,ByVal e AsSystem.EventArgs) HandlesCBOKB.SelectedIndexChanged
        If CBOKB.Text = "PL01" Then
            TXTNB.Text = "PULPEN PILOT"
            TXTHB.Text = "1200"
        ElseIf CBOKB.Text = "PL02"Then
            TXTNB.Text = "PULPEN STANDAR"
            TXTHB.Text = "1000"
        ElseIf CBOKB.Text = "BK01"Then
            TXTNB.Text = "BUKU AA 60 LBR"
            TXTHB.Text = "3000"
        Else
            TXTNB.Text = "BUKU SINAR DUNIA 50 LBR"
            TXTHB.Text = "3000"

        End If
    End Sub

    Private SubBTNTUTUP_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesBTNTUTUP.Click
        End

    End Sub

    Private SubBTNBERSIH_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesBTNBERSIH.Click
        TXTHB.Text = ""
        TXTJUMLAH.Text = ""
        TXTNB.Text = ""
        TXTTOTAL.Text = ""
        CBOKB.Text = "PILIH"
    End Sub

 
    Private SubBTNPROSES_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesBTNPROSES.Click
        TXTTOTAL.Text = Val(TXTJUMLAH.Text) * Val(TXTHB.Text)

    End Sub
End Class

Komentar

Posting Komentar