Latihan Praktikum Listview Pembayaran Tagihan PDAM

Public Class Form1

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

        lv.Columns.Add("kode", 80, HorizontalAlignment.Center)

        lv.Columns.Add("nama", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Tipe", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Jumlah Pemakaian", 80, HorizontalAlignment.Center)

        lv.Columns.Add("total", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Harga", 80, HorizontalAlignment.Center)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

        kodepelanggan.Items.Add("001")

        kodepelanggan.Items.Add("002")

        tipe.Items.Add("A1")

        tipe.Items.Add("A2")

        tipe.Items.Add("A3")

    End Sub

    Private Sub kodepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodepelanggan.SelectedIndexChanged

        Select Case kodepelanggan.Text

            Case "001"

                nama.Text = "Toko"

                biayabeban.Text = "25000"

            Case "002"

                nama.Text = "Pabrik"

                biayabeban.Text = "50000"

            Case "003"

                nama.Text = "Rumah"

                biayabeban.Text = "100000"

        End Select

    End Sub

    Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged

        Select Case tipe.Text

            Case "A1" : biayabeban.Text = "25000"

                harga.Text = 300

            Case "A2" : biayabeban.Text = "50000"

                harga.Text = 100

            Case "A3" : biayabeban.Text = "100000"

                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

        total.Text = Val(biayabeban.Text) + Val(harga.Text) * Val(jmhpemakaian.Text)

        lst.Text = kodepelanggan.Text

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(tipe.Text)

        lst.SubItems.Add(biayabeban.Text)

        lst.SubItems.Add(jmhpemakaian.Text)

        lst.SubItems.Add(total.Text)

        lst.SubItems.Add(harga.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub btuhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btuhapus.Click

        lv.Items.Clear()

    End Sub

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

        End

    End Sub

End Class