Menu Strip PadaPenjualan

Public Class penjualan
    Sub bersih()
        faktur.Text = ""
        merk.Text = ""

        type.Text = ""
        harga.Text = ""
        tahun.Text = ""
        jumlah.Text = ""
        dp.Text = ""
        lama.Text = ""
        cicilan.Text = ""

    End Sub
    Sub addfaktur()
        faktur.Items.Add("001 - TOYAVANZ13")
        faktur.Items.Add("001 - TOYINOV015")
        faktur.Items.Add("002 - TOYAVANZ015")
        faktur.Items.Add("002 - TOYINO020")
    End Sub
    Sub addtahun()
        tahun.Items.Add("2012")
        tahun.Items.Add("2014")
        tahun.Items.Add("2018")
        tahun.Items.Add("2020")
    End Sub
    Sub addjumlah()
        jumlah.Items.Add("4")
        jumlah.Items.Add("6")
        jumlah.Items.Add("8")
        jumlah.Items.Add("10")
    End Sub
    Sub addlama()
        lama.Items.Add("12 bulan")
        lama.Items.Add("24 bulan")
        lama.Items.Add("36 bulan")
        lama.Items.Add("48 bulan")

    End Sub
    Private Sub penjualan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call bersih()
        Call addfaktur()
        Call addtahun()
        Call addlama()
        Call addjumlah()
    End Sub

    Private Sub faktur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles faktur.SelectedIndexChanged
        If faktur.Text = "001 - TOYAVANZ13" Then
            merk.Text = "Toyota"
            type.Text = "Avanza"
        ElseIf faktur.Text = "001 - TOYINOV015" Then
            merk.Text = "Toyota"
            type.Text = "Inova"
        ElseIf faktur.Text = "002 - TOYAVANZ015" Then
            merk.Text = "Toyota"
            type.Text = "Rush"
        ElseIf faktur.Text = "002 - TOYINO020" Then
            merk.Text = "Toyota"
            type.Text = "Yaris"

        End If

    End Sub

    Private Sub Haups_l_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Haups_l.Click
        Me.Close()
    End Sub

    Private Sub hapus_r_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_r.Click
        Me.Close()
    End Sub

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

    End Sub

    Private Sub tahun_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tahun.SelectedIndexChanged
        If tahun.Text = "2012" Then
            harga.Text = "180000000"
            dp.Text = 0.2 * harga.Text
        ElseIf tahun.Text = "2014" Then
            harga.Text = "200000000"
            dp.Text = 0.2 * harga.Text
        ElseIf tahun.Text = "2018" Then
            harga.Text = "250000000"
            dp.Text = 0.2 * harga.Text
        ElseIf tahun.Text = "2014" Then
            harga.Text = "300000000"
            dp.Text = 0.2 * harga.Text
        End If
    End Sub

    Private Sub lama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lama.SelectedIndexChanged
        If lama.Text = "12 bulan" Then
            cicilan.Text = 0.05 * harga.Text
        ElseIf lama.Text = "24 bulan" Then
            cicilan.Text = 0.2 * harga.Text
        ElseIf lama.Text = "36 bulan" Then
            cicilan.Text = 0.4 * harga.Text
        ElseIf lama.Text = "24 bulan" Then
            cicilan.Text = 0.6 * harga.Text

        End If
    End Sub
End Class

Author : Unknown

Share this

Related Posts