tagihan air dengan menggunakan vb.net 2008

hay teman - teman dimana anda berada saya mempostingkan sebuah program tentang tagihan air pada PDAM dengan menggunakan VB.net 2008....
semoga anda bisa mencobanya....

dibawah listing program tagihan air dengan menggunakan vb.net 2008






Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode_pelanggan.Items.Add("PAB-MED-100")
        kode_pelanggan.Items.Add("TOK-BEL-101")
        kode_pelanggan.Items.Add("SWA-MED-102")
    End Sub

    Private Sub jumlah_pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_pemakaian.KeyPress
        If Asc(e.KeyChar) = 13 Then
            total_tagihan.Text = Val(biaya_beban.Text) + (harga_M3.Text * jumlah_pemakaian.Text)
            pajak.Text = 0.01 * total_tagihan.Text
            pembayaran.Text = Val(total_tagihan.Text) + Val(pajak.Text)
        End If
    End Sub

    Private Sub kode_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_pelanggan.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kode_pelanggan.Text, 3)
        Select Case x
            Case "100" : nama.Text = "Shodiq"
            Case "101" : nama.Text = "ayoe"
            Case "102" : nama.Text = "riki"
        End Select
        x = Microsoft.VisualBasic.Left(kode_pelanggan.Text, 3)
        Select Case x
            Case " TOK"
                harga_M3.Text = 250
                biaya_beban.Text = 15000
                tipe.Text = "TOKO"
            Case " RUM"
                harga_M3.Text = 250
                biaya_beban.Text = 15000
                tipe.Text = "RUMAH"
            Case "PAB"
                harga_M3.Text = 250
                biaya_beban.Text = 15000
                tipe.Text = "PABRIK"
            Case "SWA"
                harga_M3.Text = 250
                biaya_beban.Text = 15000
                tipe.Text = "SWALAYAN"
                x = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 7, 3)
                Select Case x
                    Case "MED" : daerah.Text = "Medan"
                    Case "BEL" : daerah.Text = "Belawan"
                    Case Else : daerah.Text = "-"
                End Select
        End Select

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        kode_pelanggan.Text = ""
        nama.Text = ""
        tipe.Text = ""
        harga_M3.Text = ""
        jumlah_pemakaian.Text = ""
        total_tagihan.Text = ""
        pembayaran.Text = ""
        daerah.Text = ""
        biaya_beban.Text = ""
        pajak.Text = ""
    End Sub

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

End Class