Fungsi IF dan Case Pada Visual Basic

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. Pengaturan Properties

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
Jika di Klik 2x tombol Objek Proses, maka Kode Program sbb:
    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnProses.Click
        If TxtNilai.Text >= 75 Then
            TxtHasil.Text = "LULUS"
        Else
            TxtHasil.Text = "GAGAL"
        End If
    End Sub

Jika di Klik 2x tombol Objek Bersih, maka Kode Program sbb:
    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnBersih.Click
        TxtNilai.Text = ""
        TxtHasil.Text = ""
    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

5. Hasil Program
    Setelah semua selesai, mari kita coba menjalankan Programnya dengan cara Klik Start Debugging atau F5, dan untuk menghentikan Program bisa menekan Tombol Stop Debugging atau Klik Objek Tutup.

Tampilan Program

Nilai Lebih dari 75 = LULUS

Nilai Kurang dari 75 = GAGAL

Tampilan setelah di Klik Objek Bersih

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 bernilaiTrue (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 Falsemaka Ekspresi Logika3 akan diuji.
Jika Ekspresi Logika3 bernilai True maka Statement3 akan diproses, tetapi jika kondisinya bernilai False makaStatement 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:
Jika di Klik 2x tombol Objek Proses, maka Kode Program sbb:
    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesBtnProses.Click
        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

Jika di Klik 2x tombol Objek Bersih, maka Kode Program sbb:
    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesBtnBersih.Click
        TxtNilai.Text = ""
        TxtHasil.Text = ""
    End Sub

Jika di Klik 2x tombol Objek Tutup, maka Kode Program sbb:
    Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesBtnTutup.Click
        End
    End Sub

3.   Hasil Program
    Setelah semua selesai, mari kita coba menjalankan Programnya dengan cara Klik Start Debugging atau F5, dan untuk menghentikan Program bisa menekan Tombol Stop Debugging atau Klik Objek Tutup.

Tampilan Program

Nilai Lebih dari 85 = LULUS

Nilai 75-84 = DAFTAR PENGGANTI

Nilai dibawah 75 = GAGAL

Tampilan ketika ditekan Objek Bersih

 Contoh 3

Penggunaan Objek ComboBox Objek ComboBox 

 digunakan untuk membuat daftar pilihan. 
 
Untuk memasukkan daftar pilihan ada 2 cara:
A. Menggunakan properties yaitu items 
    Klik properties items, kemudian ketik daftar pilihan.
B. Menggunakan kode program
    BP. :
    NamaObjekComboBox.Items.Add(“Daftar Pilihan“)

1. Desain Program sbb;

2. Tabel Properties

3. Alur Program
Pilih (klik) salah satu Kode Barang pada objek ComboBox, maka akan tampil Nama Barang dan Harga Barang.
Tabel Pengujiannya sebagai berikut:

4. Kode Program

Jika di Klik 2x tombol Objek ComboBox, maka Kode Program sbb:
Private Sub Cbokb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Cbokb.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




Jika di Klik 2x tombol Objek Tutup, maka Kode Program sbb:
     Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesBtnTutup.Click
        End
    End Sub

5. Hasil Program sbb;

Pemilihan Kode Barang

Hasil

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.

Langkah 1
Membuat Desain Program

Desain Awal Program

Langkah 2
Membuat tabel program

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

Gambar 1

Gambar 2

2. Pada tombol Proses yang jika diklik akan menampilkan Nilai Total Harga dengan menginput Jumlah terlebih dahulu.

Masukkan Jumlah

Klik Tombol Proses

Langkah 4
Kode Program
Jika di Klik 2x tombol Objek ComboBox, maka Kode Program sbb:
Private Sub Cbokb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Cbokb.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 SubJika di Klik 2x tombol Objek Bersih, maka Kode Program sbb:
     Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesBtnBersih.Click
        Cbokb.Text = ""
        TxtNb.Text = ""
        TxtHb.Text = ""
        txtjlh.Text = ""
        txtth.Text = ""
    End SubJika di Klik 2x tombol Objek Tutup, maka Kode Program sbb:
     Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesBtnTutup.Click
        End
    End SubJika di Klik 2x tombol Objek Proses, maka Kode Program sbb:
     Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesBtnProses.Click
        txtth.Text = Val(txtjlh.Text) * Val(TxtHb.Text)
    End Sub

Langkah 5
Hasil Program

Gambar: Ketika Kode Barang dan Jumlah sudah diisi lalu Klik Proses

Gambar: Ketika di Klik Bersih

Demikian Tutorial Contoh dan Latihannya, semoga dapat membantu teman-teman semua yang membutuhkan atau ingin belajar membuat Program Sederhana dengan Visual Basic. Terimakasih 😇