Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

LISTVIEW PEMBAYARAN TAGIHAN PDAM

Public Class Form1

    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 = "Jhoni"

            Case "002" : nama.Text = "Eko"

            Case "003" : nama.Text = "Dian"

        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 "Toko"

                biayabeban.Text = 25000

                Hargaa.Text = 300

            Case "Rumah"

                biayabeban.Text = 15000

                Hargaa.Text = 100

            Case "Swalayan"

                biayabeban.Text = 100000

                Hargaa.Text = 200

            Case "Pabrik"

                biayabeban.Text = 250000

                harga.Text = 500

        End Select

    End Sub

    Private Sub LV_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

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

        LV.Columns.Add("nama", 150, HorizontalAlignment.Left)

        LV.Columns.Add("tipe", 90, HorizontalAlignment.Center)

        LV.Columns.Add("biayabeban", 70, HorizontalAlignment.Left)

        LV.Columns.Add("jumlahpemakaian", 90, HorizontalAlignment.Center)

        LV.Columns.Add("totaltagihan", 100, HorizontalAlignment.Left)

        LV.Columns.Add("pajak", 80, HorizontalAlignment.Left)

        LV.Columns.Add("pembayaran", 90, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

        kodepelanggan.Items.Add("001")

        kodepelanggan.Items.Add("002")

        kodepelanggan.Items.Add("003")

        tipe.Items.Add("Rumah")

        tipe.Items.Add("Toko")

        tipe.Items.Add("Swalayan")

        tipe.Items.Add("Pabrik")

    End Sub

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

        kodepelanggan.Items.Add("001")

        kodepelanggan.Items.Add("002")

        kodepelanggan.Items.Add("003")

        tipe.Items.Add("Toko")

        tipe.Items.Add("Rumah")

        tipe.Items.Add("Swalayan")

        tipe.Items.Add("Pabrik")

    End Sub

    Private Sub btnhasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhasil.Click

        totaltagihan.Text = Val(biayabeban.Text) + Val(Hargaa.Text * jumlahpemakaian.Text)

        pajak.Text = 0.01 * totaltagihan.Text

        pembayaran.Text = Val(totaltagihan.Text) + Val(pajak.Text)

    End Sub

    Private Sub btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslist.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

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        Dim Lst As New ListViewItem

        Lst.Text = kodepelanggan.Text

        Lst.SubItems.Add(nama.Text)

        Lst.SubItems.Add(tipe.Text)

        Lst.SubItems.Add(biayabeban.Text)

        Lst.SubItems.Add(jumlahpemakaian.Text)

        Lst.SubItems.Add(totaltagihan.Text)

        Lst.SubItems.Add(pajak.Text)

        Lst.SubItems.Add(pembayaran.Text)

        LV.Items.Add(Lst)

    End Sub

End Class