program vb

Buatlah program untuk mencari total pembayaran Handpond
hanpond SAMSUNG
--------------------------------------------
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("hp samsung GT-s5360")
        nama.Items.Add("hp samsung SGH-370")
        nama.Items.Add("hp samsung S50")
        nama.Items.Add("hp samsung 772")
        nama.Items.Add("hp samsung G55")
    End Sub

    Private Sub nama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.SelectedIndexChanged
        Select Case nama.Text
            Case"hp samsung GT-s5360"
                harga.Text = "1200000"
            Case "hp samsung SGH-370"
                harga.Text = "2300000"
            Case "hp samsung S50"
                harga.Text = "3300000"
            Case "hp samsung 772"
                harga.Text = "5000000"
            Case "hp samsung G55"
                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
mesran.net