Contoh Pembuatan Program Form Pembayaran Uang Listrik dengan VB 2008

Pada artikel saya kali ini akan berbagi tentang cara pembuatan program pembayaran uang rekening listrik dengan VB.Net 2008, berikut codingny dapat dilihat pada ulasan saya di bawah.

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-BEL-101")
        kode.Items.Add("SWA-TEM-102")
        kode.Items.Add("RUM-MAR-103")
        kode.Items.Add("PAB-BIN-104")
        kode.Items.Add("PAB-PAK-105")

        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
End Class

Demikian artikel saya tentang Contoh Pembuatan Program Form Pembayaran Uang Listrik dengan VB 2008, semoga bermanfaat. Teman-teman juga bisa membaca tutorial visual basic lainnya program determinan perkalian dan penjumlahan matriks.