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:)

Variabel, Tipe Data dan Operator Tentang Kalkulator Hitung Nilai

        Halo, ini adalah blog kedua tentang variabel, tipe data dan operator yang mana sudah saya jelaskan sebelumnya pada blog pemrograman visual kalkulator sederhana, jika ingin melihat kembali klik saja pada link ini: https://niasonia20.blogspot.com/2019/09/pemrograman-visual-kalkulator-sederhana.html.

Maka, langsung saja saya akan melakukan langkah-langkah pemrograman visual membuat kalkulator hitung nilai dan menampilkan nilai hurufnya, yaitu sebagai berikut:

Ikuti sesuai dengan tabel berikut:

No	Object	Property	Nilai
1	Form	Name Text	frmHitungNilai Program Hitung Nilai
2	Label	Text	Program Hitung Nilai
3	Label	Text	Tatap Muka
4	TextBoxt	Text Name	(dikosongkan) txtTM
5	Label	Text	Mid Test
6	TextBox	Text Name	(dikosongkan) txtMT
7	Label	Text	Final Test
8	TextBox	Text Name	(dikosongkan) txtFT
9	Button	Text Name	Hitung btnHitung
10	Label	Text	Nilai Akhir
11	TextBox	Text Name	(dikosongkan) txtNA
12	Label	Text	Nilai Huruf
13	TextBox	Text Name	(dikosongkan) txtNH

a.       Buatlah Form baru dengan nama Program Hitung Nilai.

b.      Buatlah sebuah hitung nilai yang bisa melakukan operasi operator aritmatika yang diinputkan oleh user.

c.       Hasil Form Hitung Nilai ini kurang lebih sebagai berikut:

Lalu pada program tersebut tambahkan program untuk menampilkan Nilai Huruf sesuai Nilai Hitung yang didapat.

            Tampilan yang diharapkan:

a.       Properties name adalah:

txtTM, txtMT, txtFT, btnHitung, txtNA, txtNH.

e. Kode program:

Public Class Form1

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

        Dim tatapmuka As Double

        Dim midtest As Double

        Dim finaltest As Double

        Dim nilaiakhir As Double

        Dim nilaihuruf As String

        tatapmuka = txtTM.Text

        midtest = txtMT.Text

        finaltest = txtFT.Text

        nilaiakhir = (tatapmuka + midtest + finaltest) / 3

        If nilaiakhir >= 80 Then

            nilaihuruf = "A"

        ElseIf nilaiakhir >= 70 Then

            nilaihuruf = "B"

        ElseIf nilaiakhir >= 60 Then

            nilaihuruf = "C"

        ElseIf nilaiakhir >= 50 Then

            nilaihuruf = "D"

        Else

            nilaihuruf = "E"

        End If

        txtNA.Text = nilaiakhir

        txtNH.Text = nilaihuruf

    End Sub

End Class

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

g. Hasil tampilan dari program.

Semoga bermanfaat ya:)