Penjualan TV Sony

Public Class Form1

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

        NamaBarang.Items.Add("Tv Sony 14")

        NamaBarang.Items.Add("Tv Sony 21")

        NamaBarang.Items.Add("Tv Sony 32")

        NamaBarang.Items.Add("Tv Sony 64")

    End Sub

    Private Sub NamaBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NamaBarang.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Right(NamaBarang.Text, 2)

        Select Case x

            Case "14" : Harga.Text = "1000000"

            Case "21" : Harga.Text = "1200000"

            Case "32" : Harga.Text = "1400000"

            Case "64" : Harga.Text = "1600000"

        End Select

    End Sub

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

        If TotalHarga.Text > 2500000 Then

            Disc.Text = 0.1 * TotalHarga.Text

        End If

        TotalPembayaran.Text = TotalHarga.Text - Disc.Text

    End Sub

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

        If Asc(e.KeyChar) = 13 Then

            TotalHarga.Text = Harga.Text * JumlahJual.Text

        End If

    End Sub

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

        NamaBarang.Text = ""

        Harga.Text = ""

        JumlahJual.Text = ""

        TotalHarga.Text = ""

        Disc.Text = ""

        TotalPembayaran.Text = ""

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

End Class