Penjualan

Public Class Penjualan

    Private Sub Penjualan_Load(..)
        Cbfaktur.Items.Add("001-TOYAVZ13")
        Cbfaktur.Items.Add("001-TOYINO15")
        Cbfaktur.Items.Add("002-TOYAVZ15")
        Cbfaktur.Items.Add("002-TOYINO20")
        Cbfaktur.Items.Add("001-HONAVZ13")
        Cbfaktur.Items.Add("001-HONINO15")
        Cbfaktur.Items.Add("002-HONAVZ15")
        Cbfaktur.Items.Add("002-HONINO20")

        Cbfaktur.Items.Add("001-KIAAVZ13")
        Cbfaktur.Items.Add("001-KIAINO15")
        Cbfaktur.Items.Add("002-KIAAVZ15")
        Cbfaktur.Items.Add("002-KIAINO20")
        Cbfaktur.Items.Add("001-SUZAVZ13")
        Cbfaktur.Items.Add("001-SUZAINO15")
        Cbfaktur.Items.Add("002-SUZAVZ15")
        Cbfaktur.Items.Add("002-SUZINO20")
        Cbfaktur.Items.Add("001-FORAVZ13")
        Cbfaktur.Items.Add("001-FORINO15")
        Cbfaktur.Items.Add("002-FORAVZ15")
        Cbfaktur.Items.Add("002-FORINO20")
        Cbtahun.Items.Add("2010")
        Cbtahun.Items.Add("2011")
        Cbtahun.Items.Add("2012")

        Cbjlhbeli.Items.Add("1")
        Cbjlhbeli.Items.Add("2")
        Cbjlhbeli.Items.Add("3")
        Cbjlhbeli.Items.Add("4")
        Cbjlhbeli.Items.Add("5")

        Cblama.Items.Add("12")
        Cblama.Items.Add("24")
        Cblama.Items.Add("36")
        Call BUAT_TABEL()
 End Sub
    Sub BUAT_TABEL()
        LV.GridLines = True
        LV.View = View.Details
        LV.FullRowSelect = True
        Lv.Columns.Add("FAKTUR PENJUALAN")
        Lv.Columns.Add("MERK MOBIL")
        Lv.Columns.Add("TIPE")
        Lv.Columns.Add("HARGA")
        Lv.Columns.Add("TAHUN")
        Lv.Columns.Add("JUMLAH BELI")
        Lv.Columns.Add("DP")
        Lv.Columns.Add("LAMA")
        Lv.Columns.Add("CICILAN")
    End Sub

    Private Sub Cbfaktur_SelectedIndexChanged(...)
        Dim x As String
        Dim y As String
        x = Microsoft.VisualBasic.Mid(Cbfaktur.Text, 5, 3)
        y = Microsoft.VisualBasic.Mid(Cbfaktur.Text, 8, 3)
        If x = "TOY" Or x = "toy" Then
            Txmerk.Text = "TOYOTA"
            If y = "AVZ" Then
                Txtipe.Text = "AVANZA"
            ElseIf y = "INO" Then
                Txtipe.Text = "INOVA"
            End If
        End If
        If x = "HON" Or x = "hon" Then
            Txmerk.Text = "HONDA"
            If y = "AVZ" Then
                Txtipe.Text = "AVANZA"
            ElseIf y = "INO" Then
                Txtipe.Text = "INOVA"

            End If
        End If
        If x = "KIA" Or x = "kia" Then
            Txmerk.Text = "KIA"
            If y = "AVZ" Then
                Txtipe.Text = "AVANZA"
            ElseIf y = "INO" Then
                Txtipe.Text = "INOVA"
            End If
        End If
        If x = "SUZ" Or x = "suz" Then
            Txmerk.Text = "SUZUKI"
            If y = "AVZ" Then
                Txtipe.Text = "AVANZA"
            ElseIf y = "INO" Then
                Txtipe.Text = "INOVA"
            End If
        End If
        If x = "FOR" Or x = "for" Then
            Txmerk.Text = "FORTUNER"
            If y = "AVZ" Then
                Txtipe.Text = "AVANZA"
            ElseIf y = "INO" Then
                Txtipe.Text = "INOVA"
            End If
        End If
    End Sub

    Private Sub Btkeluar_Click(...)
        Me.Close()
    End Sub

    Private Sub Bthapuslist_Click(....)
        Lv.Items.Clear()
    End Sub

    Private Sub Btmasuk_Click(..)
        Dim LST As New ListViewItem
        LST.Text = Cbfaktur.Text
        LST.SubItems.Add(Txmerk.Text)
        LST.SubItems.Add(Txtipe.Text)
        LST.SubItems.Add(Txharga.Text)
        LST.SubItems.Add(Cbtahun.Text)
        LST.SubItems.Add(Cbjlhbeli.Text)
        LST.SubItems.Add(Txdp.Text)
        LST.SubItems.Add(Cblama.Text)
        LST.SubItems.Add(Txcicilan.Text)

        Lv.Items.Add(LST)

    End Sub

    Private Sub Bthapusrecord_Click(...)
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub

    Private Sub Cbtahun_SelectedIndexChanged(....)
        If Cbtahun.Text = 2010 And Txtipe.Text = "AVANZA" Then
            Txharga.Text = 65000000
        ElseIf Cbtahun.Text = 2010 And Txtipe.Text = "INOVA" Then
            Txharga.Text = 70000000
        ElseIf Cbtahun.Text = 2011 And Txtipe.Text = "AVANZA" Then
            Txharga.Text = 75000000
        ElseIf Cbtahun.Text = 2011 And Txtipe.Text = "INOVA" Then
            Txharga.Text = 80000000
        ElseIf Cbtahun.Text = 2012 And Txtipe.Text = "AVANZA" Then
            Txharga.Text = 85000000
        ElseIf Cbtahun.Text = 2012 And Txtipe.Text = "INOVA" Then
            Txharga.Text = 90000000
        End If
    End Sub

    Private Sub Cbjlhbeli_SelectedIndexChanged(....)
        Txdp.Text = 0.2 * Txharga.Text * Cbjlhbeli.Text
    End Sub

    Private Sub Cblama_SelectedIndexChanged(.....)
        Txcicilan.Text = 0.1 * Txharga.Text * Cblama.Text
    End Sub
End Class

Latihan Penggajian Pegawai....

     
  Listing Programnya:

Public Class penggajian_pegawai

    Private Sub penggajian_pegawai_Load(...)

        nip.Items.Add("01467")
        nip.Items.Add("01245")

        nip.Items.Add("01356")

        nip.Items.Add("01578")

        nip.Items.Add("01689")

        gol.Items.Add("IIIA")
        gol.Items.Add("IIIB")
        gol.Items.Add("IVA")
        gol.Items.Add("IVB")
        status.Items.Add("MENIKAH")
        status.Items.Add("TIDAK MENIKAH")
        jlh_anak.Items.Add("0")
        jlh_anak.Items.Add("1")
        jlh_anak.Items.Add("2")
        jlh_anak.Items.Add("3")
        jlh_anak.Items.Add("4")
    End Sub
Private Sub nip_SelectedIndexChanged(...)
        If nip.Text = "01245" Then
            nama.Text = "Ramayana"
        ElseIf nip.Text = "01356" Then
            nama.Text = "Ramadhani"
        ElseIf nip.Text = "01467" Then
            nama.Text = "Ramasheila"
        ElseIf nip.Text = "01578" Then
            nama.Text = "Ramasyla"
        ElseIf nip.Text = "01689" Then
            nama.Text = "Ramayahya"
        End If
    End Sub
Private Sub gol_SelectedIndexChanged(...)
        If gol.Text = "IIIA" Then
            gapok.Text = 1500000
        ElseIf gol.Text = "IIIB" Then
            gapok.Text = 1750000
        ElseIf gol.Text = "IVA" Then
            gapok.Text = 2500000
        ElseIf gol.Text = "IVB" Then
            gapok.Text = 3000000
        End If
    End Sub
 Private Sub status_SelectedIndexChanged(....)
        tunjkeluarga.Text = 0
        tunjanak.Text = 0
        If status.Text = "MENIKAH" Then
            jlh_anak.Items.Add("0")
            jlh_anak.Items.Add("1")
            jlh_anak.Items.Add("2")
            jlh_anak.Items.Add("3")
            jlh_anak.Items.Add("4")
            tunjkeluarga.Text = "0.2" * gapok.Text
ElseIf status.Text = "TIDAK MENIKAH" Then
            jlh_anak.Items.Add("-")
            tunjanak.Text = 0
            tunjkeluarga.Text = 0
            jlh_anak.Items.Clear()
        End If
        total_gaji.Text = Val(gapok.Text) + Val(tunjkeluarga.Text) + Val(tunjanak.Text)
    End Sub
Private Sub Bthapus_Click(....)
        nip.Text = ""
        nama.Text = ""
        gol.Text = ""
        status.Text = ""
        jlh_anak.Text = ""
        gapok.Text = ""
        tunjkeluarga.Text = ""
        tunjanak.Text = ""
        total_gaji.Text = ""
    End Sub
 Private Sub Btkeluar_Click(...)
        End
    End Sub
Private Sub jlh_anak_SelectedIndexChanged(....)
        If jlh_anak.Text = 0 Then
            tunjanak.Text = 0
        ElseIf jlh_anak.Text <= 2 Then
            tunjanak.Text = 150000 * jlh_anak.Text
        ElseIf jlh_anak.Text > 2 Then
            tunjanak.Text = 150000 * 2
        End If
        total_gaji.Text = Val(gapok.Text) + Val(tunjkeluarga.Text) + Val(tunjanak.Text)
    End Sub
 Private Sub Btme_Click(.....)
        aku.Show()
    End Sub
End Class