Membuat Program Biaya Tagihan Listrik Pada Vb.Net

halooo..sahabat blogger,,,
kali ini saya di beri tugas dalam bnetuk Quis OL oleh dosen saya bernama Bapak Mesran yaitu tentang program Vb.Net.. dalam kasus ini diharapkan kami bisa menyelesaikan permsalahan yaitu tentang bagaimana membuat program biaya tagihan listrik kepada pelanggan, terimakasih untuk waktu yang di berikann dan saya juga mohon maaf karena postingan yang saya buat yang pertama terhapus dan ini saya postingkan kembali, semoga dapat bermanfaat..

Membuat Program Biaya Tagihan Listrik


Public Class Form1

    Sub isitabel()
        Dim x As New ListViewItem
        x.Text = kodepelanggan.Text
        x.SubItems.Add(nama.Text)
        x.SubItems.Add(tife.Text)
        x.SubItems.Add(harga_kwh.Text)
        x.SubItems.Add(daerah.Text)
        x.SubItems.Add(biayabeban.Text)
        x.SubItems.Add(besarpemakaian.Text)
        x.SubItems.Add(totaltagihan.Text)
        x.SubItems.Add(pembayaran.Text)
        Lv.Items.Add(x)

    End Sub

    Sub rancang()
        Lv.View = View.Details
        Lv.FullRowSelect = True
        Lv.GridLines = True
        Lv.Columns.Add("Kode pelanggan", 100)
        Lv.Columns.Add("Nama", 140)
        Lv.Columns.Add("HargaKwh", 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()
        kodepelanggan.Text = ""
        nama.Text = ""
        tife.Text = ""
        biayabeban.Text = ""
        daerah.Text = ""
        harga_kwh.Text = ""
        besarpemakaian.Text = ""
        totaltagihan.Text = ""
        pembayaran.Text = ""
        pajak.Text = ""

    End Sub

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

    End Sub

    Sub kodekonsumen()
        kodepelanggan.Items.Add("MT - MJ - 010")
        kodepelanggan.Items.Add("MK - MB - 011")
        kodepelanggan.Items.Add("JK - MJ - 102")
    End Sub

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

    End Sub

    Private Sub besarpemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles besarpemakaian.KeyPress

        If Asc(e.KeyChar) = 13 Then
            totaltagihan.Text = Val(biayabeban.Text) + (harga_kwh.Text * besarpemakaian.Text)
            pajak.Text = 0.15 * totaltagihan.Text
            pembayaran.Text = Val(totaltagihan.Text) + Val(pajak.Text)
        End If

    End Sub

 
    Private Sub kodepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodepelanggan.SelectedIndexChanged
        Dim x, y, z As String
        x = Strings.Right(kodepelanggan.Text, 3)
        Select Case x
            Case "100" : nama.Text = "Sri Ayuni"
            Case "101" : nama.Text = "Riki Sudirman"
            Case "103" : nama.Text = "Muhamad Sodiq"
            Case "104" : nama.Text = "Muhamad Rafly"
            Case "105" : nama.Text = "Rini Astuti"
        End Select
        y = Strings.Left(kodepelanggan.Text, 3)
        Select Case y
            Case "TOK"
                harga_kwh.Text = 500
                biayabeban.Text = 150000
                tife.Text = "Toko"
            Case "RUM"
                harga_kwh.Text = 200
                biayabeban.Text = 50000
                tife.Text = "Rumah"
            Case "PAB"
                harga_kwh.Text = 10000
                biayabeban.Text = 1000000
                tife.Text = "Pabrik"
            Case "SWA"
                harga_kwh.Text = 1500
                biayabeban.Text = 400000
                tife.Text = "Swalayan"

        End Select
        z = Strings.Mid(kodepelanggan.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 = "Pakam"
            Case "TEM"
                daerah.Text = "Aksara"
            Case Else
                daerah.Text = ""
        End Select
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isitabel()
        bersih()

    End Sub

    Private Sub hapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemuadata.Click
        Lv.Items.Clear()
        bersih()
    End Sub

    Private Sub hapusdatadipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdatadipilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub

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

    Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
        kodepelanggan.Text = ""
        nama.Text = ""
        tife.Text = ""
        harga_kwh.Text = ""
        besarpemakaian.Text = ""
        totaltagihan.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
        daerah.Text = ""
        biayabeban.Text = ""
    End Sub
End Class

Ini hasil akhirnya...

itulah hasil program yang saya buat semoga hasilnya dapat memuaskan, dan saya ucapkan terimakasih....good luck untuk yang lainnya...

trims 

ayu