SOAL 2 : Buatlah program vb net untuk menampilkan output seperti dibawah ini :

Buatlah program untuk mencari total pembayaran tv
PENJUALAN TV. SONY
--------------------------------------------
Nama Barang       :   ?
Harga        :   ?
Jumlah Jual    :   ?
Total Harga    :
Discount    :
Total Pembayaran:
--------------------------------------------

Proses
    Total Harga =  Harga * Jumlah Jual
    Jika Total Harga > 2500000 maka
Discount = 10% * Total Harga
atau
Discount = 0
    Total Pembayaran = Total Harga - Discount

 listing viewnya :

Public Class Form1

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

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        nama.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
        dis.Text = ""
        pembayaran.Text = ""

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nama.Items.Add("TV Sony 14 Inch")
        nama.Items.Add("TV Sony 21 Inch")
        nama.Items.Add("TV Sony 32 Inch")
        nama.Items.Add("TV Sony 40 Inch")
        nama.Items.Add("TV Sony 80 Inch")
    End Sub

    Private Sub nama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.SelectedIndexChanged
        Select Case nama.Text
            Case "TV Sony 14 Inch"
                harga.Text = "1200000"
            Case "TV Sony 21 Inch"
                harga.Text = "2300000"
            Case "TV Sony 32 Inch"
                harga.Text = "3300000"
            Case "TV Sony 40 Inch"
                harga.Text = "5000000"
            Case "TV Sony 80 Inch"
                harga.Text = "10000000"

        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
    End Sub
End Class