Soal 2 - Form Total Pembayan TV

Quiz Online, 8 Desember 2013

Soal 2

Berikut ini  design form untuk mencari total pembayaran atas penjualan TV SONY dengan menggunakan program VB net :

Listing Program :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        namabarang.Items.Add("SONY001")
        namabarang.Items.Add("SONY002")
        namabarang.Items.Add("SONY003")
        namabarang.Items.Add("SONY004")
        namabarang.Items.Add("SONY005")

        Dim x As Byte
        For x = 1 To 10
            jumlahjual.Items.Add(x)
        Next
    End Sub

    Private Sub namabarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles namabarang.SelectedIndexChanged
        Select Case namabarang.Text
            Case "SONY001"
                harga.Text = "1000000"
            Case "SONY002"
                harga.Text = "2000000"
            Case "SONY003"
                harga.Text = "3000000"
            Case "SONY004"
                harga.Text = "4000000"
            Case "SONY005"
                harga.Text = "5000000"
        End Select
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        totalharga.Text = harga.Text * jumlahjual.Text

        If totalharga.Text > 2500000 Then
            diskon.Text = 0.1 * totalharga.Text
        Else
            diskon.Text = 0
        End If

        totpembayaran.Text = totalharga.Text - diskon.Text
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        namabarang.Text = ""
        harga.Text = ""
        jumlahjual.Text = ""
        totalharga.Text = ""
        diskon.Text = ""
        totpembayaran.Text = ""
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End
    End Sub
End Class

Demikian disampaikan, terimakasih... :)