Penjualan Barang

 

Public Class Form1

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

        jtv.Items.Add("SONY")

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        tharga.Text = harga.Text * jjual.Text

        If tharga.Text > 250000 Then

            discount.Text = 0.1 * tharga.Text

        End If

        tpembelian.Text = tharga.Text * discount.Text

    End Sub

End Class