penjualan tv sony

penyelesaian :

Public Class Form1

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub

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

        nama.Items.Add("toshiba")

        nama.Items.Add("lg")

        nama.Items.Add("samsung")

    End Sub

    Private Sub nama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.SelectedIndexChanged

        Select Case nama.Text

            Case "toshiba" : harga.Text = "3500000"

            Case "lg" : harga.Text = "4000000"

            Case "samsung" : harga.Text = "4500000"

        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 * jumlah.Text

        If total.Text > 2500000 Then

            discount.Text = 0.1 * total.Text

        Else

            discount.Text = 0

        End If

        pembayaran.Text = total.Text - discount.Text

    End Sub