Desain Penjualan TV SONY

Ini adalah desain dari Penjualan TV SONY

 

Listing Programnya :

Public Class Form2

    Private Sub Buttonproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonproses.Click

        totalharga.Text = harga.Text * jumlahjual.Text

        If totalharga.Text > 2500000 Then

            discount.Text = 0.1 * totalharga.Text

        Else

            discount.Text = 0

        End If

        totalpembayaran.Text = Val(totalharga.Text) - Val(discount.Text)

    End Sub

    Private Sub Buttonkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonkeluar.Click

        Dim a As String

        a = MsgBox("Apakah anda yakin ingin kelluar?", MsgBoxStyle.YesNo)

        If a = vbYes Then

            Me.Close()

        End If

    End Sub

    Private Sub Buttonhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonhapus.Click

        namabarang.Text = ""

        harga.Text = ""

        jumlahjual.Text = ""

        totalharga.Text = ""

        discount.Text = ""

        totalpembayaran.Text = ""

    End Sub

End Class

Ini adalah hasil dari desain dan listing program Penjualan TV SONY