SOURCE CODE

Public Class Form1

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        TextBox8.Text = ""

        TextBox9.Text = ""

        ComboBox1.Text = ""

        ComboBox2.Text = ""

        ComboBox3.Text = ""

        ComboBox4.Text = ""

        ComboBox5.Text = ""

        TextBox1.Focus()

    End Sub

    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged

        Dim VBarang As String

        VBarang = ComboBox4.Text

        Select Case VBarang

            Case ("BAJU")

                TextBox2.Text = 85000

            Case ("CELANA")

                TextBox2.Text = 100000

            Case ("JAKET")

                TextBox2.Text = 125000

        End Select

    End Sub

    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged

        If ComboBox5.Text = "BAJU" Then

            TextBox5.Text = 85000

        ElseIf ComboBox5.Text = "CELANA" Then

            TextBox5.Text = 100000

        Else : TextBox5.Text = 125000

        End If

    End Sub

    Private Sub TextBox8_TextChanged(sender As Object, e As EventArgs) Handles TextBox8.TextChanged

    End Sub

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged

        TextBox8.Text = Val(TextBox2.Text) * Val(TextBox3.Text)

        If Val(TextBox8.Text) + Val(TextBox9.Text) > 500000 Then

            TextBox6.Text = 20 / 100 * (Val(TextBox8.Text) + Val(TextBox9.Text))

        Else

            TextBox6.Text = "No Diskon"

        End If

    End Sub

    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged

        TextBox9.Text = Val(TextBox5.Text) * Val(TextBox4.Text)

    End Sub

    Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged

    End Sub

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

        TextBox7.Text = Val(TextBox8.Text) + Val(TextBox9.Text) - Val(TextBox6.Text)

    End Sub

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

        ListBox1.Items.Add(TextBox1.Text)

        ListBox1.Items.Add(ComboBox1.Text + ComboBox2.Text + ComboBox3.Text)

        ListBox1.Items.Add(ComboBox4.Text + TextBox3.Text + "unit")

        ListBox1.Items.Add(ComboBox5.Text + TextBox4.Text + "unit")

        ListBox1.Items.Add("Total" + TextBox7.Text)

    End Sub

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

        Dim Tanggal As Integer

        Tanggal = 1

        Do

            ComboBox1.Items.Add(Tanggal)

            Tanggal = Tanggal + 1

        Loop Until Tanggal > 31

        ComboBox2.Items.Add("Januari")

        ComboBox2.Items.Add("Februari")

        ComboBox2.Items.Add("Maret")

        ComboBox2.Items.Add("April")

        ComboBox2.Items.Add("Mei")

        ComboBox2.Items.Add("Juni")

        ComboBox2.Items.Add("Juli")

        ComboBox2.Items.Add("Agustus")

        ComboBox2.Items.Add("September")

        ComboBox2.Items.Add("Oktober")

        ComboBox2.Items.Add("November")

        ComboBox2.Items.Add("Desember")

        Dim Tahun As Integer

        Tahun = 2015

        While Tahun >= 2010

            ComboBox3.Items.Add(Tahun)

            Tahun = Tahun - 1

        End While

    End Sub

End Class