CONTOH PROGRAM VISUAL BASIC PENJUALAN TV

CONTOH PROGRAM PENJUALAN TV

 

Public Class Form1

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

        JTV.Items.Add("SONY")

        JTV.Items.Add("SAMSUNG")

        JTV.Items.Add("PANASONIC")

        JTV.Items.Add("LG")

        Ukuran.Items.Add("14 inchi")

        Ukuran.Items.Add("17 inchi")

        Ukuran.Items.Add("21 inchi")

        Ukuran.Items.Add("29 inchi")

    End Sub

    Private Sub JTV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JTV.SelectedIndexChanged

       

    End Sub

    Private Sub Ukuran_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ukuran.SelectedIndexChanged

        If JTV.Text = "SONY" And Ukuran.Text = "14 inchi" Then

            HargaTV.Text = 1000000

        ElseIf JTV.Text = "SONY" And Ukuran.Text = "17 inchi" Then

            HargaTV.Text = 1200000

        ElseIf JTV.Text = "SONY" And Ukuran.Text = "21 inchi" Then

            HargaTV.Text = 1700000

        ElseIf JTV.Text = "SONY" And Ukuran.Text = "29 inchi" Then

            HargaTV.Text = 2000000

        ElseIf JTV.Text = "SAMSUNG" And Ukuran.Text = "14 inchi" Then

            HargaTV.Text = 1200000

        ElseIf JTV.Text = "SAMSUNG" And Ukuran.Text = "17 inchi" Then

            HargaTV.Text = 1500000

        ElseIf JTV.Text = "SAMSUNG" And Ukuran.Text = "21 inchi" Then

            HargaTV.Text = 1900000

        ElseIf JTV.Text = "SAMSUNG" And Ukuran.Text = "29 inchi" Then

            HargaTV.Text = 2300000

        ElseIf JTV.Text = "PANASONIC" And Ukuran.Text = "14 inchi" Then

            HargaTV.Text = 1100000

        ElseIf JTV.Text = "PANASONIC" And Ukuran.Text = "17 inchi" Then

            HargaTV.Text = 1400000

        ElseIf JTV.Text = "PANASONIC" And Ukuran.Text = "21 inchi" Then

            HargaTV.Text = 1700000

        ElseIf JTV.Text = "PANASONIC" And Ukuran.Text = "29 inchi" Then

            HargaTV.Text = 2000000

        ElseIf JTV.Text = "LG" And Ukuran.Text = "14 inchi" Then

            HargaTV.Text = 1150000

        ElseIf JTV.Text = "LG" And Ukuran.Text = "17 inchi" Then

            HargaTV.Text = 1250000

        ElseIf JTV.Text = "LG" And Ukuran.Text = "21 inchi" Then

            HargaTV.Text = 1650000

        ElseIf JTV.Text = "LG" And Ukuran.Text = "29 inchi" Then

            HargaTV.Text = 1950000

        End If

    End Sub

    Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click

        THarga.Text = Val(Jumlah.Text) * Val(HargaTV.Text)

        Diskon.Text = 0.1 * Val(THarga.Text)

        Pajak.Text = 0.05 * THarga.Text

        TBayar.Text = Val(THarga.Text) + Val(Pajak.Text) - Val(Diskon.Text)

    End Sub

End Class