PEMBAYARAN TAGIHAN AIR PDAM dengan List View di VB

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LV.Columns.Add("Kd Pelanggan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Tipe", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Daerah", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Harga M3", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Jumlah Pakai", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)

        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

        KDPELANGGAN.Items.Add("001")
        KDPELANGGAN.Items.Add("002")
        KDPELANGGAN.Items.Add("003")
        KDPELANGGAN.Items.Add("004")

        TIPE.Items.Add("TOKO")
        TIPE.Items.Add("RUMAH")
        TIPE.Items.Add("SWALAYAN")
        TIPE.Items.Add("PABRIK")

       End Sub

    Private Sub KDPELANGGAN_SelectedIndexChanged(sender As Object, e As EventArgs) Handles KDPELANGGAN.SelectedIndexChanged
         Select KDPELANGGAN.Text
            Case "001" : NAMA.Text = "BUDI"
            Case "002" : NAMA.Text = "DIAN"
            Case "003" : NAMA.Text = "CINTA"
            Case "004" : NAMA.Text = "SHINTA"
        End Select


    End Sub

    Private Sub TIPE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TIPE.SelectedIndexChanged
        Select TIPE.Text
            Case "TOKO"
                BEBAN.Text = 25000
                HARGAM3.Text = 300
                DAERAH.Text = "BELAWAN"
            Case "RUMAH"
                BEBAN.Text = 15000
                HARGAM3.Text = 100
                DAERAH.Text = "MEDAN"
            Case "SWALAYAN"
                BEBAN.Text = 10000
                HARGAM3.Text = 200
                DAERAH.Text = "MEDAN"
            Case "PABRIK"
                BEBAN.Text = 250000
                HARGAM3.Text = 500
                DAERAH.Text = "BELAWAN"
        End Select

    End Sub

    Private Sub BtnHpsLIist_Click(sender As Object, e As EventArgs) Handles BtnHpsLIist.Click
        LV.Items.Clear()
    End Sub

    Private Sub BtnKeluar_Click(sender As Object, e As EventArgs) Handles BtnKeluar.Click
        End

    End Sub

    Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
        KDPELANGGAN.Text = ""
        NAMA.Text = ""
        TIPE.Text = ""
        HARGAM3.Text = ""
        BEBAN.Text = ""
        Jpemakaian.Text = ""
        TTAGIHAN.Text = ""
        Jpembayaran.Text = ""
        PAJAK.Text = ""
        DAERAH.Text = ""
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TTAGIHAN.Text = Val(BEBAN.Text) + Val(HARGAM3.Text * Jpemakaian.Text)
        PAJAK.Text = 0.01 * TTAGIHAN.Text
        Jpembayaran.Text = Val(TTAGIHAN.Text) * Val(PAJAK.Text)

        Dim lst As New ListViewItem
        lst.Text = KDPELANGGAN.Text
        lst.SubItems.Add(NAMA.Text)
        LV.Items.Add(lst)
        lst.SubItems.Add(TIPE.Text)
        lst.SubItems.Add(DAERAH.Text)
        lst.SubItems.Add(HARGAM3.Text)
        lst.SubItems.Add(BEBAN.Text)
        lst.SubItems.Add(Jpemakaian.Text)
        lst.SubItems.Add(TTAGIHAN.Text)
        lst.SubItems.Add(Jpembayaran.Text)
        lst.SubItems.Add(PAJAK.Text)
    End Sub
End Class