Struktur Keputusan Pada Visual Basic

STRUKTUR KEPUTUSAN Pada Visual Basic



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.

A. 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

2. Alur Program 
     -    Input Jumlah Point Reward. 
     -    Klik Proses, maka akan tampil keterangan Hadiah sesuai point reward. 
          Tabel Hadiah sebagai berikut:
3. Kode Program
Ketik 2x pada Tombol Proses, maka tampilan Program sbb:
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnProses.Click
        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

Ketik 2x pada Tombol Bersih, maka tampilan Program sbb:
Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnBersih.Click
        TxtHadiah.Text = ""
        TxtJPR.Text = ""
    End Sub

Ketik 2x pada Tombol Tutup, maka tampilan Program sbb:
Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnTutup.Click
        End
    End Sub

4. Hasil Program
Input Jumlah Point Reward lalu Klik Proses

B. 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:

1. Desain Program
2. Alur Program
     -    Input Jumlah Point Reward.
     -    Klik Proses, maka akan tampil keterangan Hadiah sesuai point reward.
          Tabel Hadiah sebagai berikut:

3. Kode Program
    Ketik 2x pada Tombol Proses, maka tampilan Program sbb:  
 Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnProses.Click

        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
  
Ketik 2x pada Tombol Bersih, maka tampilan Program sbb:

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnBersih.Click

        TxtHadiah.Text = ""

        TxtJPR.Text = ""
    End Sub
 Ketik 2x pada Tombol Tutup, maka tampilan Program sbb:

    Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnTutup.Click

        End

    End Sub
   
4. Hasil Program

Input Jumlah Point Reward lalu Klik Proses


C. 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 itufalse.



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.

1. Desain Program
2. Alur Program

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

3. Kode Program
    Ketik 2x pada Tombol Proses, maka tampilan Program sbb: 

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnProses.Click

        If TxtNPA.Text >= 85 And TxtNPs.Text >= 75 Then

            TxtHasil.Text = "LULUS"

        Else

            TxtHasil.Text = "GAGAL"

        End If

    End Sub

 Ketik 2x pada Tombol Bersih, maka tampilan Program sbb: 

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnBersih.Click

        TxtNPA.Text = ""

        TxtNPs.Text = ""
        TxtHasil.Text = ""
    End Sub
 Ketik 2x pada Tombol Tutup, maka tampilan Program sbb: 
    Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnTutup.Click

        End

    End Sub

4. Hasil Program
Input Nilai Akademik dan Psikotes lalu Klik Proses
#########################################################################


Latihan:
Buka Program Penggunaan ComboBox pada pertemuan (Modul) sebelumnya. Ubah penggunaan fungsi IF menjadi Select Case.
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
Jika di Klik 2x tombol Objek ComboBox, maka Kode Program sbb:
Private Sub Cbokb_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Cbokb.SelectedIndexChanged
        Select Case Cbokb.Text
            Case "PL01"
                TxtNb.Text = "PULPEN PILOT"
                TxtHb.Text = 1200
            Case "PL02"
                TxtNb.Text = "PULPEN STANDAR"
                TxtHb.Text = 1000
            Case "BK01"
                TxtNb.Text = "BUKU AA 60 LBR"
                TxtHb.Text = 3000
            Case "BK02"
                TxtNb.Text = "BUKU SINAR DUNIA 50 LBR"
                TxtHb.Text = 3000
            Case Else
                TxtNb.Text = "Tidak Tersedia"
                TxtHb.Text = 0
        End Select
    End Sub

Jika di Klik 2x tombol Objek Tutup, maka Kode Program sbb:
Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnTutup.Click
        End
    End Sub
4. Hasil Program
Demikian Tutorial Contoh dan Latihannya, semoga dapat membantu teman-teman semua yang membutuhkan atau ingin belajar membuat Program Sederhana dengan Visual Basic. Terimakasih 😇

Komentar

Posting Komentar

Postingan populer dari blog ini

Fungsi IF dan Case Pada Visual Basic

Gambar
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...
Baca selengkapnya

TIPE DATA DAN VARIABEL

Gambar
Tujuan Memberikan pemahaman tentang tipe data dan variabel. Tipe Data   Seperti bahasa pemrograman yang lain, Visual Basic .Net juga menyediakan berbagai tipe data yang dapat digunakan oleh pemrograman sesuai dengan konteks pemakaiannya. Berikut beberapa tipe data yang tersedia dalam VB.Net yang sering digunakan. Variabel Variabel merupakan tempat penyimpanan data. Variabel memiliki sebuah nama disertai dengan tipe data yang akan ditampung oleh variabel tersebut. Berbeda dengan VB6, variabel dalam VB.Net harus dideklarasikan terlebih dahulu, jika tidak akan terjadi kesalahan Compiler. Deklarasi Variabel Dim merupakan keyword dalam pendeklarasian variabel. Bentuk penulisan Deklarasi Variabel: Contoh: Dim a,b as integer Dim i as string Pemberian Nilai Awal pada Variabel Bentuk Penulisan: Contoh: a=10 b=5 i=“Visual Basic” Pendeklarasian Variabel disertai pemberian Nilai Awal  Bentuk Penulisan: Contoh: Dim a as integer = 10 Dim i as string = “Visua...
Baca selengkapnya