kasus pembayaran listrik

kasus pembayaran listrik
 
Listing Program

Public Class Form1

    Sub isitabel()

        Dim i As New ListViewItem
        i.Text = kode.Text
        i.SubItems.Add(nama.Text)
        i.SubItems.Add(tipe.Text)
        i.SubItems.Add(harga.Text)
        i.SubItems.Add(daerah.Text)
        i.SubItems.Add(biayabeban.Text)
        i.SubItems.Add(pemakaian.Text)
        i.SubItems.Add(totaltagihan.Text)
        i.SubItems.Add(pembayaran.Text)
        lv.Items.Add(i)

    End Sub
    Sub rancang()

        lv.View = View.Details
        lv.FullRowSelect = True
        lv.GridLines = True
        lv.Columns.Add("kode", 100)
        lv.Columns.Add("nama ", 140)
        lv.Columns.Add("tipe", 160)
        lv.Columns.Add("harga", 110)
        lv.Columns.Add("daerah", 100)
        lv.Columns.Add("biayabeban", 100)
        lv.Columns.Add("pemakaian", 100)
        lv.Columns.Add("totaltagihan", 100)
        lv.Columns.Add("pajak", 100)
        lv.Columns.Add("pembayaran", 100)

    End Sub
    Sub bersih()

        kode.Text = ""
        nama.Text = ""
        tipe.Text = ""
        biayabeban.Text = ""
        daerah.Text = ""
        harga.Text = ""
        pemakaian.Text = ""
        totaltagihan.Text = ""
        pembayaran.Text = ""
        pajak.Text = ""

    End Sub
    Sub kodepelanggan()

        kode.Items.Add("PAB - MED - 100")
        kode.Items.Add("TOK - BEL - 101")
        kode.Items.Add("SWA - MAR - 102")
        kode.Items.Add("RUM - BIN - 103")
        kode.Items.Add("PAB - PAK - 104")
        kode.Items.Add("SWA - TEM - 105")

    End Sub
    Sub kodekonsumen()

        kode.Items.Add("MT- MJ- 010")
        kode.Items.Add("MK- MB- 011")
        kode.Items.Add("JK- MJ- 012")

    End Sub

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

        rancang()
        kodepelanggan()

    End Sub
    Private Sub jumlahpemakai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaian.KeyPress

        If Asc(e.KeyChar) = 13 Then
            totaltagihan.Text = Val(biayabeban.Text) + (harga.Text * pemakaian.Text)
            pajak.Text = 0.15 * totaltagihan.Text
            pembayaran.Text = Val(totaltagihan.Text) + Val(pajak.Text)

        End If
    End Sub

    Private Sub kodepel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        Dim h, i, j As String
        h = Strings.Right(kode.Text, 3)
        Select Case h
            Case "100" : nama.Text = "Putry"
            Case "101" : nama.Text = "Lya"
            Case "102" : nama.Text = "Vizha"
            Case "103" : nama.Text = "Citra"
            Case "104" : nama.Text = "Igaph"
            Case "105" : nama.Text = "Chanif"
        End Select

        i = Strings.Left(kode.Text, 3)
        Select Case i
            Case "TOK"
                harga.Text = 500
                biayabeban.Text = 150000
                tipe.Text = "Toko"
            Case "RUM"
                harga.Text = 200
                biayabeban.Text = 50000
                tipe.Text = "Rumah"
            Case "PAB"
                harga.Text = 10000
                biayabeban.Text = 1000000
                tipe.Text = "Pabrik"
            Case "SWA"
                harga.Text = 1500
                biayabeban.Text = 400000
                tipe.Text = "Swalayan"
        End Select

        j = Strings.Mid(kode.Text, 7, 3)
        Select Case j
            Case "MED"
                daerah.Text = "Medan"
            Case "BEL"
                daerah.Text = "Belawan"
            Case "MAR"
                daerah.Text = "Marendal"
            Case "BIN"
                daerah.Text = "Binjai"
            Case "PAK"
                daerah.Text = "Lubuk Pakam"
            Case "TEM"
                daerah.Text = "Tembung"
            Case Else
                daerah.Text = "-"

        End Select
    End Sub

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

        Me.Close()

    End Sub
    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        isitabel()
        bersih()

    End Sub
    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click

        lv.Items.Clear()
        bersih()

    End Sub
    Private Sub btnhapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapuspilih.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

End Class