Pemrograman Visual Percabangan/Pemilihan Form Belanja Sederhana

      Kali ini, saya akan melakukan pemrograman visual membuat form order makanan yang sederhana dengan menggunakan program percabangan/pemilihan. Apa yang dimaksud dengan percabangan/pemilihan pada pemrograman visual, berikut penjelasannya.

Ada beberapa yang perlu diketahui tentang percabangan/pemilhan, yaitu:

a. If…Then

            Struktur percabangan If…Then melakukan sebuah aksi jika kondisi bernilai true atau melompati sebuah aksi jika kondisi bernilai false. Struktur If…Then dikenal dengan struktur percabangan tunggal karena memih atau mengabaikan sebuah aksi tunggu.

b. If…Then…Else

            Struktur percabangan If…Then…Else melakukan sebuah aksi jika kondisi bernilai true dan melakukan sebuah aksi berbeda jika kondisi bernilai false. Struktur If…Then…Else dikenal dengan struktur percabangan ganda karena memilih diantara dua aksi yang berbeda.

c. Select Case

            Struktur percabangan Select Case melakukan salah satu aksi dari banyak aksi, tergantung pada nilai dari sebuah ekspresi. Struktur Select…Case dikenal dengan struktur percabangan jamak karena memilih di antara berbagai aksi yang berbeda.

Berikut ini adalah langkah-langkah untuk program order makanan:

Ikuti sesuai dengan tabel berikut:

No	Object	Property	Nilai
1	Form	Name Text	frmPBS Program Belanja Sederhana
2	Label	Tetx	Nama Barang
3	TextBox	Text Name	(dikosongkan) txtNB
4	Label	Text	Harga Satuan
5	TextBox	Text Name	(dikosongkan) txtHS
6	Button	Text Name	Hitung txtHitung
7	Button	Text Name	Ulang txtUlang
8	Label	Text	Total Harga
9	TextBox	Text Name	(dikosongkan) txtTH
10	Label	Text	Diskon
11	TextBox	Text Name	(dikosongkan) txtDiskon
12	Label	Text	Total Bayar
13	TextBox	Text Name	(dikosongkan) txtTB
14	Label	Text	Bonus
15	TextBox	Text Name	(dikosongkan) txtBonus
16	Button	Text Name	Keluar btnKeluar

a.       Buatlah Form baru dengan nama Program Belanja Sederhana.

b.      Buatlah sebuah Program Belanja Sederhana yang bisa melakukan operasi hitungan harga dari suatu barang yang diinputkan oleh user.

c.       Hasil Program Belanja Sederhana ini kurang lebih sebagai berikut:

a.       Properties Name adalah:

txtNB, txtHS, txtJB, btnHitung, btnUlang, txtTH, txtDiskon, txtTB, txtBonus, btnKeluar.

b.      Kode Program

Public Class frmPBS

    Private Sub btnUlang_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUlang.Click

       'Membersihkan isi TextBox

        txtNB.Text = " "

        txtHS.Text = " "

        txtJB.Text = " "

        txtTH.Text = " "

        txtTB.Text = " "

        txtDiskon.Text = " "

        txtTB.Text = " "

        txtBonus.Text = " "

        txtNB.Focus()

    End Sub

Private Sub btnHitung_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnHitung.Click

        'Deklarasi Variabel

        Dim Harga, Jumlah As Integer

        Dim Total, Diskon, Bayar As Double

        Dim Bonus As String

        'Deklarasi Input Harga dan Jumlah

        Harga = txtHS.Text

        Jumlah = txtJB.Text

        'Perhitungan Total Harga

        Total = Harga * Jumlah

        'Penentuan Diskon dan Bonus

        If Total >= 500000 Then

            Diskon = 0.2 * Total

            Bonus = "Tas Pinggang"

        ElseIf Total >= 200000 Then

            Diskon = 0.15 * Total

            Bonus = "Payung"

        ElseIf Total >= 100000 Then

            Diskon = 0.1 * Total

            Bonus = "Pena"

        Else

            Diskon = 0

            Bonus = "Tidak ada"

        End If

        'Perhitungan Total Bayar

        Bayar = Total - Diskon

        'Deklarasi Keluaran Total Harga, Diskon, Total Bayar, dan Bonus

        txtTH.Text = Total

        txtDiskon.Text = Diskon

        txtTB.Text = Bayar

        txtBonus.Text = Bonus

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        End

    End Sub

End Class

c.       Jalankan program dengan menekan tombol F5 atau klik ikon Start pada toolbar.

d.      Hasil tampilan dari program.

Menginputkan dan Menghitung nilai sebuah inputan:

Mengulang inputan:

Keluar dari form:

Itulah tadi hasilnya, semoga ini bisa jadi ilmu baru dan bermanfaat ya:)