Source Code Program Diskon Barang Sederhana Dengan Vb

Jika pada kesempatan sebelumnya saya sudah menjelaskan tutorial mengenai Program Aplikasi Penukaran Mata Uang dan Program Konversi Suhu pada kesampatan kali ini saya akan memberikan tutorial bagaimana membuat Program Diskon Barang Sederhana Dengan Vb.net

Berikut langkah-langkah untuk membuat Aplikasi Diskon Sederhana Dengan Visual Studio 2013 :

• Hal yang perlu dilakukan tentu saja membuat Project baru (File -New - Project).
• Simpan directory pada tempat yang dinginkan dan berikan nama project sesuai dengan yang diinginkan.
• Setelah berhasil membuat project baru maka secara otomatis akan muncul Form1. Edit dan tambahkan beberapa komponen seperti Label, TextBox, Button, ComboBox sesuai dengan yang diinginkan, agar tidak bingung pada akhir artikel ini terdapat video yang untuk mengetahui proses pembuatan Aplikasi Diskon Barang lebih lanjut.
• Setalah form terbentuk, tambahkan kode dibawah ini :

Public Class Form1

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnTutup.Click
        Close()

    End Sub

    Private Sub btnSubTotal_Click(sender As Object, e As EventArgs) Handles btnSubTotal.Click
        txtSubTotal.Text = txtJmlBarang.Text * txtHarga.Text
    End Sub

    Private Sub btnTotal_Click(sender As Object, e As EventArgs) Handles btnTotal.Click
        Dim hitung As Double
        hitung = txtSubTotal.Text * (txtDiskon.Text * 0.01)
        txtTotal.Text = txtSubTotal.Text + hitung
    End Sub

    Private Sub btnBersihkan_Click(sender As Object, e As EventArgs) Handles btnBersihkan.Click
        cbNamaBarang.Text = ""
        txtJmlBarang.Text = ""
        txtSubTotal.Text = ""
        txtDiskon.Text = ""
        txtHarga.Text = ""
        txtTotal.Text = ""
    End Sub

    Private Sub cbNamaBarang_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbNamaBarang.SelectedIndexChanged
        With txtHarga
            If cbNamaBarang.Text = "Barang 1" Then
                txtHarga.Text = 10000
            ElseIf cbNamaBarang.Text = "Barang 2" Then
                txtHarga.Text = 15000
            ElseIf cbNamaBarang.Text = "Barang 3" Then
                txtHarga.Text = 20000
            ElseIf cbNamaBarang.Text = "Barang 4" Then
                txtHarga.Text = 25000
            ElseIf cbNamaBarang.Text = "Barang 5" Then
                txtHarga.Text = 30000
            ElseIf cbNamaBarang.Text = "Barang 6" Then
                txtHarga.Text = 35000
            End If
        End With
    End Sub
End Class

Setelah semua koding diatas dituliskan pada code form1 maka kita tinggal save dan menjalankan Program Diskon tersebut. Jika mengalama Error pastikan kembali code sudah sesuai dengan yang saya  tuliskan diatas.

Untuk lebih detailnya berikut ini sudah saya siapkan video tutorial dalam Membuat Aplikasi Diskon simak sampai selesai agar paham dan tidak terjadi error pada program yang dibuat.

Demikian sedikit tutorial Membuat Program Aplikasi Diskon Sederhana Dengan Visual Studio yang dapat saya jelaskan pada kali ini semoga informasi diatas dapat berguna dan bermanfaat bagi kita semua sekian dan terimakasih.