Membuat Program Aplikas Diskon Barang Dengan Vb.Net

Assalamu'alaikum..........

Alahamdulilah saya masi bisa berbagi buat teman teman sekalin, Kali ini saya akan memberikan Program Vb.Net tentang Membuat Program Aplikas Diskon Barang Dengan Vb.Net sebelum kita membuat program, anda harus mengenal dulu apa itu Vb.Net. Vb.Net merupakan aplikasi untuk membuat sebuah program, misal untuk membuat Progam Perusaan, Perkantoran, Sekolah, maupun Kepemerintahan. Jadi kali in saya kan berbagi sedikit yang saya ketahui tentang Vb.Net .

Beikut ini adalah tampilan Aplikasi Diskon Barang :

ket:

• combobox1: name =b_barang
• combobox2: name =h_barang
• combobox3: name =j_barang
• combobox4: name =diskon
• combobox5: name =bayar
• button       : name =btn_hitung
• button       : name =btn_selesai
• button       : name =btn_mulai

listing program:

Public Class Program_Diskon_Barang

    Private Sub btn_hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hitung.Click

        Dim mdis As Double

        j_barang.Text = Val(b_barang.Text) * Val(h_barang.Text)

        If j_barang.Text > 20 Then

            mdis = j_barang.Text * 0.1

        Else

            mdis = j_barang.Text * 0

        End If

        diskon.Text = mdis

        bayar.Text = j_barang.Text - h_barang.Text

    End Sub

    Private Sub btn_selesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_selesai.Click

        End

    End Sub

    Private Sub btn_mulai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_mulai.Click

        b_barang.Text = ""

        h_barang.Text = ""

        j_barang.Text = ""

        diskon.Text = ""

        bayar.Text = ""

        b_barang.Focus()

    End Sub

    Private Sub btn_hitung_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles btn_hitung.KeyPress

        Dim mdis As Double

        j_barang.Text = Val(b_barang.Text) * Val(h_barang.Text)

        If j_barang.Text > 20 Then

            mdis = j_barang.Text * 0.1

        Else

            mdis = j_barang.Text * 0

        End If

        diskon.Text = mdis

        bayar.Text = j_barang.Text - h_barang.Text

    End Sub

End Class

Demikianlah artkel saya ini semoga artikel yang berjudul Membuat Program Aplikas Diskon Barang Dengan Vb.Net ini dapat bermanfaat..

wassalmu'alaikum............