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