Program Belanja Sederhana Menggunakan Visual Studio 2017

Membuat Program Belanja Sederhana Menggunakan Visual Studio 2017

  1. Mendesain Form terlebih dahulu

Dibawah ini merupakan tampilan desain program yang memiliki label (Nama Barang, Harga Satuan, Jumlah Barang, Total Harga, Diskon, Total Bayar, Bonus), textbox dan 3 buah button (Hitung, Ulang, Keluar).

  2. Coding setiap button dengan source code seperti di bawah ini

    

Public Class Form1

    Private Sub btnulang_Click(sender As Object, e As EventArgs) Handles btnulang.Click

        'membersihkan ini text box

        txtNama.Text = ""

        txtHarga.Text = ""

        txtJumlah.Text = ""

        txtTotal.Text = ""

        txtDiskon.Text = ""

        txtBayar.Text = ""

        txtBonus.Text = ""

        txtNama.Focus()

    End Sub

    Private Sub btnhitung_Click(sender As Object, e As EventArgs) Handles btnhitung.Click

        'Deklarasi

        Dim Harga, Jumlah As Integer

        Dim Total, Diskon, Bayar As Double

        Dim Bonus As String

        'Deklarasi input harga dan jumlah

        Harga = txtHarga.Text

        Jumlah = txtJumlah.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 = "Kaos"

        ElseIf Total >= 50000 Then

            Diskon = 0.05 * Total

            Bonus = "Pulpen"

        Else

            Diskon = 0

            Bonus = "Tidak ada"

        End If

        'Perhitungan Total bayar

        Bayar = Total - Diskon

        'Deklarasi keluaran semua

        txtTotal.Text = Total

        txtDiskon.Text = Diskon

        txtBayar.Text = Bayar

        txtBonus.Text = Bonus

    End Sub

    Private Sub btnkeluar_Click(sender As Object, e As EventArgs) Handles btnkeluar.Click

        End

    End Sub

End Class

3. Hasil tampilan program form belanja sederhana.

a.       ini pada barang untuk mendapatkan Bonus Tas Pinggang.

b.   ini pada barang untuk mendapatkan Bonus Payun

c.       ini pada barang untuk mendapatkan Bonus Kaos

d.      ini pada barang untuk mendapatkan Bonus Pulpen

e.       ini pada barang apabila tidak mendapatkan bonus