QUIS ONLINE

Public Class Form1

    Private Sub kodepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodep.SelectedIndexChanged
        Select Case kodep.Text
            Case "001" : nama.Text = "jhani"
            Case "002" : nama.Text = "eko"
            Case "003" : nama.Text = "dian"
            Case "004" : nama.Text = "ucok"
        End Select
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kodep.Items.Add("001")
        kodep.Items.Add("002")
        kodep.Items.Add("003")
        kodep.Items.Add("004")

        tipe.Items.Add("Toko")
        tipe.Items.Add("Rumah")
        tipe.Items.Add("Swalayan")
        tipe.Items.Add("Pabrik")

        LV.Columns.Add("kode", 80, HorizontalAlignment.Center)
        LV.Columns.Add("nama", 150, HorizontalAlignment.Left)
        LV.Columns.Add("biaya", 150, HorizontalAlignment.Left)
        LV.Columns.Add("jumlah", 150, HorizontalAlignment.Left)
        LV.Columns.Add("total", 150, HorizontalAlignment.Left)
        LV.Columns.Add("pembayaran", 150, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged
        Select Case tipe.Text
            Case "Toko"
                biaya.Text = 25000
                harga.Text = 300
            Case "Rumah"
                biaya.Text = 15000
                harga.Text = 100
            Case "Swalayan"
                biaya.Text = 10000
                harga.Text = 200
            Case "Pabrik"
                biaya.Text = 250000
                harga.Text = 500

        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        Dim lst As New ListViewItem
        lst.Text = kodep.Text
        lst.subitems.add(nama.Text)
        lst.subitems.add(tipe.Text)
        lst.subitems.add(biaya.Text)
        lst.subitems.add(jumlahp.Text)
        lst.subitems.add(totalt.Text)
        lst.subitems.add(pajak.Text)
        lst.subitems.add(pembayaran.Text)
        LV.Items.Add(lst)

        totalt.Text = Val(biaya.Text) + Val(harga.Text * jumlahp.Text)
        pajak.Text = 0.01 * totalt.Text
        pembayaran.Text = Val(totalt.Text) + Val(pajak.Text)
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        LV.Items.Clear()

        kodep.Text = ""
        nama.Text = ""
        tipe.Text = ""
        biaya.Text = ""
        harga.Text = ""
        jumlahp.Text = ""
        totalt.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class