Program Pembayaran Rekening listrik vb 2008

hay sobat blogger... dalam rangka memenuhi tugas quiz dengan dosen tercinta, saya memosting dikit neh, tentang program pembayaran rekening listrik menggunakan vb-2008

langsung saja ke TKP. sebelum Waktu Habis saya,  :D


bagi agan-agan yang sudah mahir dalam dunia programing, saya harap sudah bisa lah ya, untuk mendesain program kaya disamping, jadi langsung saja ketik listing berikut.....

Public Class Form1
    Sub isitabel()
        Dim f As New ListViewItem
        f.Text = kodepel.Text
        f.SubItems.Add(nama.Text)
        f.SubItems.Add(tipe.Text)
        f.SubItems.Add(hargaperkwh.Text)
        f.SubItems.Add(daerah.Text)
        f.SubItems.Add(biayabeban.Text)
        f.SubItems.Add(jumlahpemakai.Text)
        f.SubItems.Add(totaltagihan.Text)
        f.SubItems.Add(pembayaran.Text)
        lv.Items.Add(f)
    End Sub
    Sub rancang()
        lv.View = View.Details
        lv.FullRowSelect = True
        lv.GridLines = True
        lv.Columns.Add("Kode Pel", 100)
        lv.Columns.Add("Nama ", 140)
        lv.Columns.Add("Type", 160)
        lv.Columns.Add("Harga /kwh", 110)
        lv.Columns.Add("Daerah", 100)
        lv.Columns.Add("Biaya Beban", 100)
        lv.Columns.Add("Besar Pemakaian", 100)
        lv.Columns.Add("Total Tagihan", 100)
        lv.Columns.Add("Pajak", 100)
        lv.Columns.Add("Pembayaran", 100)
    End Sub
    Sub bersih()
        kodepel.Text = ""
        nama.Text = ""
        tipe.Text = ""
        biayabeban.Text = ""
        daerah.Text = ""
        hargaperkwh.Text = ""
        jumlahpemakai.Text = ""
        totaltagihan.Text = ""
        pembayaran.Text = ""
        pajak.Text = ""
    End Sub
    Sub kodepelanggan()
        kodepel.Items.Add("PAB - MED - 100")
        kodepel.Items.Add("TOK - BEL - 101")
        kodepel.Items.Add("SWA - MAR - 102")
        kodepel.Items.Add("RUM - BIN - 103")
        kodepel.Items.Add("PAB - PAK - 104")
        kodepel.Items.Add("SWA - TEM - 105")
    End Sub
    Sub kodekonsumen()
        kodepel.Items.Add("MT- MJ- 010")
        kodepel.Items.Add("MK- MB- 011")
        kodepel.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 jumlahpemakai.KeyPress
        If Asc(e.KeyChar) = 13 Then
            totaltagihan.Text = Val(biayabeban.Text) + (hargaperkwh.Text * jumlahpemakai.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 kodepel.SelectedIndexChanged
        Dim x, y, z As String
        x = Strings.Right(kodepel.Text, 3)
        Select Case x
            Case "100" : nama.Text = "Awaludin"
            Case "101" : nama.Text = "Jalaludin"
            Case "102" : nama.Text = "Alimudin"
            Case "103" : nama.Text = "Sadarudin"
            Case "104" : nama.Text = "Mahmuludin"
            Case "105" : nama.Text = "Akhirudin"
        End Select
        y = Strings.Left(kodepel.Text, 3)
        Select Case y
            Case "TOK"
                hargaperkwh.Text = 500
                biayabeban.Text = 150000
                tipe.Text = "Toko"
            Case "RUM"
                hargaperkwh.Text = 200
                biayabeban.Text = 50000
                tipe.Text = "Rumah"
            Case "PAB"
                hargaperkwh.Text = 10000
                biayabeban.Text = 1000000
                tipe.Text = "Pabrik"
            Case "SWA"
                hargaperkwh.Text = 1500
                biayabeban.Text = 400000
                tipe.Text = "Swalayan"
        End Select
        z = Strings.Mid(kodepel.Text, 7, 3)
        Select Case z
            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 = "Aksara"
            Case Else
                daerah.Text = "-"
        End Select
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub
    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        bersih()
    End Sub
    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
        lv.Items.Clear()
        bersih()
    End Sub
    Private Sub btnhapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuspilih.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

End Class


Mungkin Hanya ini yang dapat saya paparkan, Silahkan Baca artikel Tentang Program Membuat Form Nilai Mahasiswa Menggunakan VB.2008. Kritik dan saran anda kami harapkan.!