STRUKTUR KEPUTUSAN (BAGIAN 1)

HELLO
WELCOME BACK IN MY BLOG
Kali ini saya akan membahas keputusan Struktur yang terdapat pada Visual Basic:
oke Cekidot


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(ByVal sender 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(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


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:

No	Objek	Name	Items
1	ComboBox1	Cbokb	PL01
1			PL02
2			BK01
			BK02
3   2	TextBox1	TxtNb
3	TextBox2	TxtHb
4	Button1	BtnTutup

2. Alur Program

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

Tabel Pengujiannya sebagai berikut:

Kode Barang	Nama Barang	Harga Barang
PL01	Pulpen Pilot	1200
PL02	Pulpen Standar	1000
BK01	Buku AA 60 Lbr	3800
BK02	Buku Sinar Dunia 50 Lbr	3000

3. Kode Program

Perintah diketik pada Objek ComboBox.

  

Private Sub CboKb_SelectedIndexChanged(ByVal sender As… 

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

Cara kerja:

Sedikit explain lagi yah,jadi tu cara kerjanya kita memilih kode barang PL01 dll maka akan muncul nama barang dan harga barang yang telah di tentukan pada form
Misalnya tu kalo kita beli baju di MALL/PLAZA kan ada itu kode bajunya jadi nanti kasir nya bakal ketik kode baju dan keluar nama dan harga barangnya gitu cara kerjanya.

Terimakasih sudah Berkunjung di Blog saya,
saya jumpa di blog saya selanjutnya :)