Coding Program Aplikasi Pembayaran Listrik

berikut saya bagikan kepada pengunjung blog saya coding program aplikasi pembayaran listrik dengan menggunakan aplikasi visual basic 2008.

 

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Items.Add("PAB-MED-100")
        kode.Items.Add("TOK-MAR-101")
        kode.Items.Add("SWA-TEM-102")
        kode.Items.Add("RUM-BIN-103")
        kode.Items.Add("PAB-PAK-104")
        Call BUAT_TABLE()
    End Sub
    Sub BUAT_TABLE()
        Lv.GridLines = True
        Lv.View = View.Details
        Lv.FullRowSelect = True
        Lv.Columns.Add("Kode pelanggan")
        Lv.Columns.Add("daerah")
        Lv.Columns.Add("tipe")
        Lv.Columns.Add("Biaya beban")
        Lv.Columns.Add("Harga Kwh")
        Lv.Columns.Add("Meter Bulan Ini")
        Lv.Columns.Add("Meter Bulan lalu")
        Lv.Columns.Add("Besar Pemakaian")
        Lv.Columns.Add("Total Tagihan")
        Lv.Columns.Add("pajak")
        Lv.Columns.Add("Pembayaran")
    End Sub
    Private Sub no_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kode.Text, 3)
        Select Case x
            Case "TOK" : Tipe.Text = "TOKO"
                hargaKWH.Text = "500"
                Bbiaya.Text = "150000"
            Case "RUM" : Tipe.Text = "RUMAH"
                hargaKWH.Text = "200"
                Bbiaya.Text = "50000"
            Case "SWA" : Tipe.Text = "SWALAYAN"
                hargaKWH.Text = "1500"
                Bbiaya.Text = "400000"
            Case "PAB" : Tipe.Text = "PABRIK"
                hargaKWH.Text = "10000"
                Bbiaya.Text = "1000000"
        End Select
        x = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
        If x = "MED" Then
            daerah.Text = "MEDAN"
        ElseIf x = "BEL" Then
            daerah.Text = "BELAWAN"
        ElseIf x = "TEM" Then
            daerah.Text = "AKSARA"
        ElseIf x = "MAR" Then
            daerah.Text = "MARENDAL"
        ElseIf x = "BIN" Then
            daerah.Text = "BINJAI"
        Else
            daerah.Text = "LUBUK PAKAM"
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim lst As New ListViewItem
        lst.Text = kode.Text
        lst.SubItems.Add(daerah.Text)
        lst.SubItems.Add(tipe.Text)
        lst.SubItems.Add(Bbiaya.Text)
        lst.SubItems.Add(hargaKWH.Text)
        lst.SubItems.Add(MbulanI.Text)
        lst.SubItems.Add(MbulanL.Text)
        lst.SubItems.Add(Bpemakaian.Text)
        lst.SubItems.Add(Total.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(pembayaran.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        lv.Items.Clear()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub Bpemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Bpemakaian.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Total.Text = Val(Bbiaya.Text) + Val(hargaKWH.Text) * Bpemakaian.Text
            pajak.Text = 0.015 * Total.Text
            pembayaran.Text = Val(pajak.Text) + Val(Total.Text)
        End If
    End Sub

   
    Private Sub MbulanL_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MbulanL.TextChanged
        Bpemakaian.Text = Val(MbulanI.Text) - Val(MbulanL.Text)
    End Sub

    Private Sub Bpemakaian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bpemakaian.TextChanged

    End Sub
End Class
 

(Baca : coding Program Aplikasi Menghitung Nilai Mahasiswa menggunakan List View)

semoga bermanfaat.