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

Tweet