Total Pembayaran TV

Berikut adalah program VB design nya.

Public Class Quiz2

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

        Nm_Barang.Items.Add("Toshiba Lcd 18")

        Nm_Barang.Items.Add("Toshiba Lcd 24")

        Nm_Barang.Items.Add("Toshiba Lcd 32")

        Nm_Barang.Items.Add("Toshiba Lcd 40")

        Nm_Barang.Items.Add("Toshiba Lcd 60")

        Nm_Barang.Items.Add("Toshiba Lcd 80")

    End Sub

    Private Sub Nm_Barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nm_Barang.SelectedIndexChanged

        Select Case (Nm_Barang.Text)

            Case "Toshiba Lcd 18"

                Harga.Text = "18000000"

            Case "Toshiba Lcd 24"

                Harga.Text = "24000000"

            Case "Toshiba Lcd 32"

                Harga.Text = "32000000"

            Case "Toshiba Lcd 40"

                Harga.Text = "39000000"

            Case "Toshiba Lcd 60"

                Harga.Text = "58000000"

            Case "Toshiba Lcd 80"

                Harga.Text = "75000000"

        End Select

    End Sub

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

        If e.KeyChar = Chr(13) Then

            Total_Harga.Text = Val(Harga.Text * Jumlah.Text)

            If Total_Harga.Text > 25000000 Then

                Discount.Text = Val(Harga.Text * 0.1)

            Else

                Discount.Text = "0"

            End If

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Total_Bayar.Text = Val(Total_Harga.Text - Discount.Text)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Nm_Barang.Text = ""

        Harga.Text = ""

        Jumlah.Text = ""

        Total_Harga.Text = ""

        Total_Bayar.Text = ""

        Discount.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.Close()

    End Sub

End Class