program pemakaian listrik

programan pemakaian Listrik

Public Class Form1
    Sub buattabel()
        LV.Columns.Add("TANGGAL BAYAR", 80, HorizontalAlignment.Left)
        LV.Columns.Add("NO. URUT", 80, HorizontalAlignment.Center)
        LV.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Left)
        LV.Columns.Add("DAERAH", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TIPE PELANGGAN", 80, HorizontalAlignment.Left)
        LV.Columns.Add("BEBAN", 80, HorizontalAlignment.Left)
        LV.Columns.Add("METERAN BULAN LALU", 80, HorizontalAlignment.Left)
        LV.Columns.Add("METERAN BULAN SEKARANG", 80, HorizontalAlignment.Left)
        LV.Columns.Add("HARGA PER KWH", 80, HorizontalAlignment.Left)
        LV.Columns.Add("BESAR PEMAKAIAN", 80, HorizontalAlignment.Left)
        LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TAGIHAN", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TOTAL BAYAR", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = tbyr.Text
        lst.SubItems.Add(nu.Text)
        lst.SubItems.Add(kp.Text)
        lst.SubItems.Add(daerah.Text)
        lst.SubItems.Add(tp.Text)
        lst.SubItems.Add(bb.Text)
        lst.SubItems.Add(mbl.Text)
        lst.SubItems.Add(ms.Text)
        lst.SubItems.Add(hpkwh.Text)
        lst.SubItems.Add(bp.Text)
        lst.SubItems.Add(pjk.Text)
        lst.SubItems.Add(tgh.Text)
        lst.SubItems.Add(tbyr.Text)
        LV.Items.Add(lst)
    End Sub


    Private Sub ID_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kp.KeyPress
        Dim TOMBOL As Integer = Asc(e.KeyChar)
        If TOMBOL = 13 Then
            PROSES_Click(sender, e)
        End If
    End Sub

    Private Sub ID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.TextChanged
        Dim x As String
        nu.Text = "1" & Microsoft.VisualBasic.Right(kp.Text, 2)
        x = Microsoft.VisualBasic.Mid(kp.Text, 4, 3)
        If x = "MED" Then
            daerah.Text = "medan"
            pjk.Text = 0.015
        ElseIf x = "BEL" Then
            daerah.Text = "BELAWAN"
            pjk.Text = 0.015
        ElseIf x = "TEM" Then
            daerah.Text = "AKSARA"
            pjk.Text = 0.015
        ElseIf x = "MAR" Then
            daerah.Text = "MARENDAL"
            pjk.Text = 0.015
        ElseIf x = "BIN" Then
            daerah.Text = "BINJAI"
            pjk.Text = 0.015
        ElseIf x = "PAK" Then
            daerah.Text = "LUBUK PAKAM"
            pjk.Text = 0.015
        End If
        x = Microsoft.VisualBasic.Mid(kp.Text, 1, 3)
        If x = "TOK" Then
            tp.Text = "TOKO"
            hpkwh.Text = "500"
            bb.Text = "150000"
        ElseIf x = "RUM" Then
            tp.Text = "RUMAH"
            hpkwh.Text = "200"
            bb.Text = "50000"
        ElseIf x = "SWA" Then
            tp.Text = "SWALAYAN"
            hpkwh.Text = "1500"
            bb.Text = "400000"
        ElseIf x = "PAB" Then
            tp.Text = "PABRIK"
            hpkwh.Text = "1000000"
            hpkwh.Text = "10000"
        End If
    End Sub

    Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        bp.Text = ms.Text - mbl.Text
        tgh.Text = bb.Text + (hpkwh.Text * bp.Text)
        tb.Text = tgh.Text * 0.015
    End Sub

 
    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        kp.Text = ""
        daerah.Text = ""
        bb.Text = ""
        tp.Text = ""
        mbl.Text = ""
        hpkwh.Text = ""
        tbyr.Text = ""
        ms.Text = ""
        nu.Text = ""
        tgh.Text = ""
        bp.Text = ""
        pjk.Text = ""
    End Sub


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


    Private Sub RESET_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnreset.Click
        kp.Text = ""
        daerah.Text = ""
        bb.Text = ""
        tp.Text = ""
        mbl.Text = ""
        hpkwh.Text = ""
        tbyr.Text = ""
        ms.Text = ""
        nu.Text = ""
        tgh.Text = ""
        bp.Text = ""
        pjk.Text = ""
    End Sub

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

        Dim i As Integer
        For i = 1 To 30
            tbyr.Items.Add(i)
        Next i
    End Sub
End Class