Minggu, 08 Desember 2013

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

Tidak ada komentar:

Posting Komentar