Program PEMBAYARAN TAGIHAN LISTRIK dengan List View di Visual Basic/VB

CATATAN: di sini kita menginputkan meter bln ini dan meter bulan lalau, setelah itu kita memprosesnya dengan menekan "ENTER" di keyboard, untuk menyimpan ke list view,
klik SIMPAN.

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call add_daerh()
        Call add_tipe()
        Call buattable()
    End Sub
    Sub buattable()
        LV.Columns.Add("No PELANGGAN", 90, HorizontalAlignment.Center)
        LV.Columns.Add("DAERAH", 80, HorizontalAlignment.Center)
        LV.Columns.Add("TIPE PELANGGAN", 100, HorizontalAlignment.Center)
        LV.Columns.Add("BIAYA BEBAN", 100, HorizontalAlignment.Center)
        LV.Columns.Add("HARGA PER KWH", 100, HorizontalAlignment.Center)
        LV.Columns.Add("METER BULAN INI", 100, HorizontalAlignment.Center)
        LV.Columns.Add("METER BULAN LALU", 100, HorizontalAlignment.Center)
        LV.Columns.Add("PEMAKIAN", 90, HorizontalAlignment.Center)
        LV.Columns.Add("TOTAL TAGIHAN", 100, HorizontalAlignment.Center)
        LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Center)
        LV.Columns.Add("PEMBAYARAN", 90, HorizontalAlignment.Center)

        LV.GridLines = True
        LV.FullRowSelect = True
        LV.View = View.Details
    End Sub
    Sub isitable()
        Dim x As New ListViewItem
        With x
            .Text = NPELANGGAN.Text
            .SubItems.Add(DAERAH.Text)
            .SubItems.Add(TPELANGGAN.Text)
            .SubItems.Add(BEBAN.Text)
            .SubItems.Add(HARGA.Text)
            .SubItems.Add(MBLNINI.Text)
            .SubItems.Add(MBLNLALU.Text)
            .SubItems.Add(BPEMKAIAN.Text)
            .SubItems.Add(TAGIHAN.Text)
            .SubItems.Add(PAJAK.Text)
            .SubItems.Add(PEMBAYARAN.Text)
            LV.Items.Add(x)
        End With
    End Sub

    Sub add_daerh()
        With DAERAH
            .Items.Add("MEDAN")
            .Items.Add("BELAWAN")
            .Items.Add("MARENDAL")
            .Items.Add("BINJAI")
            .Items.Add("LUBUK PAKAM")
            .Items.Add("AKSARA")
        End With
    End Sub

    Sub add_tipe()
        With TPELANGGAN

            .Items.Add("RUMAH")
            .Items.Add("TOKO")
            .Items.Add("PABRIK")
            .Items.Add("SWALAYAN")
        End With
    End Sub

    Private Sub TPELANGGAN_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TPELANGGAN.SelectedIndexChanged
        If TPELANGGAN.Text = "TOKO" Then
            BEBAN.Text = 15000
            HARGA.Text = 500
        ElseIf TPELANGGAN.Text = "RUMAH" Then
            BEBAN.Text = 50000
            HARGA.Text = 200
        ElseIf TPELANGGAN.Text = "SWALAYAN" Then
            BEBAN.Text = 400000
            HARGA.Text = 1500
        ElseIf TPELANGGAN.Text = "PABRIK" Then
            BEBAN.Text = 1000000
            HARGA.Text = 1000
        End If

        MBLNINI.Text = ""
        MBLNLALU.Text = ""
        BPEMKAIAN.Text = ""
        TAGIHAN.Text = ""
        PAJAK.Text = ""
        PEMBAYARAN.Text = ""
        NPELANGGAN.Text = ""
    End Sub
    Sub bersih()
        NPELANGGAN.Text = ""
        DAERAH.Text = ""
        TPELANGGAN.Text = ""
        BEBAN.Text = ""
        HARGA.Text = ""
        MBLNINI.Text = ""
        MBLNLALU.Text = ""
        BPEMKAIAN.Text = ""
        TAGIHAN.Text = ""
        PAJAK.Text = ""
        PEMBAYARAN.Text = ""
    End Sub
    Sub add_nmr()
        Dim x, y, z As String
        x = Microsoft.VisualBasic.Left(DAERAH.Text, 3)
        y = Microsoft.VisualBasic.Left(TPELANGGAN.Text, 3)
        z = "00" & (TPELANGGAN.SelectedIndex + 1)
        NPELANGGAN.Text = x & "_" & y & "_ " & z

    End Sub

    Private Sub MBLNLALU_KeyPress(sender As Object, e As KeyPressEventArgs) Handles MBLNLALU.KeyPress
        If e.KeyChar = Chr(13) Then
            If MBLNLALU.Text = "" Or MBLNINI.Text = "" Then
                MsgBox("ISI DENGAN BENAR")
            Else
                If IsNumeric(MBLNLALU.Text) = True And IsNumeric(MBLNINI.Text) = True Then
                    BPEMKAIAN.Text = MBLNINI.Text - MBLNLALU.Text
                    TAGIHAN.Text = BEBAN.Text + (BPEMKAIAN.Text * HARGA.Text)
                    PAJAK.Text = (15 / 100) * TAGIHAN.Text
                    PEMBAYARAN.Text = Val(TAGIHAN.Text) + Val(PAJAK.Text)

                    Call add_nmr()
                Else
                    MsgBox("isi dengan angka!!!")
                    BPEMKAIAN.Text = ""
                    TAGIHAN.Text = ""
                    PAJAK.Text = ""
                    PEMBAYARAN.Text = ""
                    NPELANGGAN.Text = ""

                End If
            End If
        End If
    End Sub

    Private Sub MBLNLALU_TextChanged(sender As Object, e As EventArgs) Handles MBLNLALU.TextChanged

    End Sub

    Private Sub DAERAH_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DAERAH.SelectedIndexChanged
        Dim i As String
        i = DAERAH.Text
        bersih()
        DAERAH.Text = i

    End Sub

    Private Sub BtnHAPUS_Click(sender As Object, e As EventArgs) Handles BtnHAPUS.Click
        bersih()

    End Sub

    Private Sub BtnSIMPAN_Click(sender As Object, e As EventArgs) Handles BtnSIMPAN.Click
        isitable()


    End Sub

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

    Private Sub BtnKELUAR_Click(sender As Object, e As EventArgs) Handles BtnKELUAR.Click
        End

    End Sub
End Class