kasus program pemakaian listrik

program untuk menampilkan hasil ke listview untuk Kasus Pemrograman Pemakaian Listrik

Kemudian Masuk kan Listing Program Berikut:

Public Class Form1

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

        Kodepelanggan.Items.Add("MED")
        Kodepelanggan.Items.Add("BEL")
        Kodepelanggan.Items.Add("TEM")
        Kodepelanggan.Items.Add("MAR")
        Kodepelanggan.Items.Add("BIN")
        Kodepelanggan.Items.Add("PAK")

        Tipepelanggan.Items.Add("TOK")
        Tipepelanggan.Items.Add("RUM")
        Tipepelanggan.Items.Add("SWA")
        Tipepelanggan.Items.Add("PAB")

    End Sub

    Private Sub Kodepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodepelanggan.SelectedIndexChanged
        Select Case Kodepelanggan.Text
            Case ("MED")
                daerah.Text = "MEDAN"
                pajak.Text = "0.015"
            Case ("BEL")
                daerah.Text = "BELAWAN"
                pajak.Text = "0.015"
            Case ("TEM")
                daerah.Text = "AKSARA"
                pajak.Text = "0.015"
            Case ("MAR")
                daerah.Text = "MARINDAL"
                pajak.Text = "0.015"
            Case ("BIN")
                daerah.Text = "BINJAI"
                pajak.Text = "0.015"
            Case ("PAK")
                daerah.Text = "LUBUK PAKAM"
                pajak.Text = "0.015"

        End Select
    End Sub

    Private Sub Tipepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipepelanggan.SelectedIndexChanged
        Select Case Tipepelanggan.Text
            Case ("TOK")
                Tipetoko.Text = "TOKO"
                biayabeban.Text = 150000
                hargaperkwh.Text = 500
            Case ("RUM")
                Tipetoko.Text = "RUMAH"
                biayabeban.Text = 500000
                hargaperkwh.Text = 1500
            Case ("SWA")
                Tipetoko.Text = "SWALAYAN"
                biayabeban.Text = 400000
                hargaperkwh.Text = 1500
            Case ("PAB")
                Tipetoko.Text = "PABRIK"
                biayabeban.Text = 1000000
                hargaperkwh.Text = 10000

        End Select
    End Sub
    Sub tabel()
        ListView1.Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Daerah", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Tipe toko", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Tipe pelanggan", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Biaya beban", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Meteran bulan lalu", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Meteran bulan sekarang", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Harga per KwH", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Besar pemakaian", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Tagihan", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Total bayar", 80, HorizontalAlignment.Center)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim x As New ListViewItem
        With x
            .text = Kodepelanggan.Text
            .SubItems.Add(daerah.Text)
            .SubItems.Add(Tipepelanggan.Text)
            .SubItems.Add(Tipetoko.Text)
            .SubItems.Add(biayabeban.Text)
            .SubItems.Add(meteranbulanlalu.Text)
            .SubItems.Add(meteranbulansekarang.Text)
            .SubItems.Add(hargaperkwh.Text)
            .SubItems.Add(besarpemakaian.Text)
            .SubItems.Add(pajak.Text)
            .SubItems.Add(tagihan.Text)
            .SubItems.Add(totalbayar.Text)
            ListView1.Items.Add(x)

        End With
    End Sub

    Private Sub totalbayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles totalbayar.KeyPress

        If Asc(e.KeyChar) = 13 Then
            totalbayar.Text = Val(biayabeban.Text) + Val(hargaperkwh.Text) + Val(besarpemakaian.Text)

        End If
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        besarpemakaian.Text = meteranbulanlalu.Text - meteranbulansekarang.Text
        tagihan.Text = biayabeban.Text + (hargaperkwh.Text * besarpemakaian.Text)
        totalbayar.Text = tagihan.Text * pajak.Text
    End Sub

    Private Sub Btnsimpandata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpandata.Click
        isitabel()
        BERSIH()
    End Sub
    Sub bersih()
        Kodepelanggan.Text = ""
        Tipepelanggan.Text = ""
        Tipetoko.Text = ""
        pajak.Text = ""
        meteranbulanlalu.Text = ""
        meteranbulansekarang.Text = ""
        totalbayar.Text = ""
        daerah.Text = ""
        hargaperkwh.Text = ""
        biayabeban.Text = ""
        tagihan.Text = ""
        besarpemakaian.Text = ""
    End Sub

    Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click
        bersih()
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

End Class