pengolahan tagihan PDAM dengan menggunakan VB.NET 2008

ASSALAMU'ALAIKUM....
ne hasil program yang semoga membantu anda dalam pekerjaan sehari - hari.khususnya yang bekerja dalam instansi yang berhubungan dengan PDAM.
NE SAYA MEMOSTINGKAN VB.NET TENTANG TAGIHAN AIR PDAM

berikut listing program pengolahan tagihan PDAM dengan menggunakan VB.NET 2008

Public Class Form1

    Sub pakeif()

        Dim a, b, c As String

        a = Strings.Right(kode.Text, 3)

        If a = "010" Then

            nama.Text = ("Awaludin")

            alamat.Text = ("Titi Kuning")

        ElseIf a = "011" Then

            nama.Text = ("Baharudin")

            alamat.Text = ("jl. Bahagia")

        Else

            nama.Text = ("Ahirudin")

            alamat.Text = ("jl. Sunyi")

        End If

        b = Strings.Left(kode.Text, 2)

        If b = "MT" Then

            type.Text = "Rumah"

            beban.Text = "10000"

            biayapermeter.Text = "700"

        ElseIf b = "MK" Then

            type.Text = "Toko"

            beban.Text = "20000"

            biayapermeter.Text = "800"

        Else

            type.Text = "Pabrik"

            beban.Text = "30000"

            biayapermeter.Text = "900"

        End If

        c = Strings.Mid(kode.Text, 5, 2)

        If c = "MJ" Then

            Daerah.Text = "Medan- Johor"

        Else

            Daerah.Text = "Medan- Binjai"

        End If

    End Sub

    Sub isitabel()

        lv.Items.Clear()

        Dim f As New ListViewItem

        f.Text = kode.Text

        f.SubItems.Add(nama.Text)

        f.SubItems.Add(alamat.Text)

        f.SubItems.Add(type.Text)

        f.SubItems.Add(beban.Text)

        f.SubItems.Add(biayapermeter.Text)

        f.SubItems.Add(jumlahpemakaian.Text)

        f.SubItems.Add(biayatagihan.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("Kd Konsumen", 100)

        lv.Columns.Add("Nama Konsumen", 140)

        lv.Columns.Add("Alamat", 160)

        lv.Columns.Add("Type", 110)

        lv.Columns.Add("Beban", 100)

        lv.Columns.Add("Biaya per M3", 100)

        lv.Columns.Add("Jumlah", 100)

        lv.Columns.Add("Biaya Tagihan", 100)

        lv.Columns.Add("Pajak", 100)

        lv.Columns.Add("Pembayaran", 100)

    End Sub

    Sub bersih()

        kode.Text = ""

        nama.Text = ""

        alamat.Text = ""

        Daerah.Text = ""

        beban.Text = ""

        biayapermeter.Text = ""

        type.Text = ""

        biayatagihan.Text = ""

        jumlahpemakaian.Text = ""

        pajak.Text = ""

        pembayaran.Text = ""

    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

        kodekonsumen()

    End Sub

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

        Dim x, y, z As String

        x = Strings.Right(kode.Text, 3)

        Select Case x

            Case "010"

                nama.Text = "Muhammad shodiq    "

                alamat.Text = "Sp.Limun, Sumatra Utara,Indonesia"

            Case "011"

                nama.Text = "Ratu"

                alamat.Text = "Perbaungan,Sumatera Utara, indonesia"

            Case "012"

                nama.Text = "zasma"

                alamat.Text = "Marendal, Sumatra Utara, Indonesia"

        End Select

        y = Strings.Left(kode.Text, 2)

        Select Case y

            Case "MT"

                type.Text = "Rumah"

                beban.Text = "10000"

                biayapermeter.Text = "700"

            Case "MK"

                type.Text = "Toko"

                beban.Text = "20000"

                biayapermeter.Text = "800"

            Case "JK"

                type.Text = "Pabrik"

                beban.Text = "30000"

                biayapermeter.Text = "900"

        End Select

        z = Strings.Mid(kode.Text, 5, 2)

        Select Case z

            Case "MJ"

                Daerah.Text = "Medan- Johor"

            Case "MB"

                Daerah.Text = "Medan- Binjai"

        End Select

    End Sub

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

        lv.Items.Clear()

        bersih()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.Close()

    End Sub

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

        If Asc(e.KeyChar) = 13 Then

            biayatagihan.Text = biayapermeter.Text * jumlahpemakaian.Text * beban.Text

            pajak.Text = 0.05 * biayatagihan.Text

            pembayaran.Text = Val(biayatagihan.Text) - Val(pajak.Text)

        End If

        If kode.Text = "" Then

            MsgBox("Kode Konsumer Belum Terinput")

            kode.Focus()

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        isitabel()

        rancang()

        bersih()

    End Sub

End Class

Tweet