Membuat Program Penjualan Barang Dengan menggunakan VB NET

Nah teman-teman hari ini saya ingin shering tentang program yang baru saya buat ini kepada teman-teman semuanya,siapa tau bisa bermanfaat bagi Teman-teman semuanya.,.
     Nah langsung aj kita mulai.,.
untuk pertama-tama kita membuat desain form nya seperti gambar di bawah ini.!!!

 

Nah setelah itu masukkan perintah di kodingya seperti di bawah ini.,!!!

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Nama.Items.Add("Sony 20 inchi")

        Nama.Items.Add("Sony 32 inchi")

        Nama.Items.Add("Sony 18 inchi")

        Dim i As Integer

        For i = 1 To 20

            JJ.Items.Add(i)

        Next

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        End

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        Nama.Text = ""

        Harga.Text = ""

        JJ.Text = ""

        Discount.Text = ""

        Total.Text = ""

        TP.Text = ""

    End Sub

    Private Sub Nama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nama.SelectedIndexChanged

        Select Case Nama.Text

            Case "Sony 20 inchi"

                Harga.Text = 2000000

            Case "Sony 32 inchi"

                Harga.Text = 5000000

            Case "Sony 18 inchi"

                Harga.Text = 1500000

        End Select

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        Total.Text = Harga.Text * JJ.Text

        If Total.Text > 2500000 Then

            Discount.Text = 0.01 * Total.Text

        Else

            Discount.Text = 0

        End If

        TP.Text = Total.Text - Discount.Text

    End Sub

End Class

 

Nah setelah selesai pengimputan codingnya,langsung aj kita jalankan programnya dengan menekan tombol F5 atau klik Debuge,dan hasilnya akan muncul seperti gambar berikut ini.,.

 

Nah sekian dari saya,smoga dapat bermanfaat bagi kita semuanya.,.

selamat soreee, :)!!