Program Aplikasi Tagihan Air PDAM dengan VB.Net

Dalam kesempatan ini saya ingin berbagi Progam dengan menggunakan VB.Net. Adapun pun judul artikel yang akan saya bagikan kepada anda adalah Program Aplikasi Tagihan Air PDAM dengan VB.Net

 Listing Program Aplikasi Tagihan Air PDAM

Public Class Tagihan_PDAM

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


    Private Sub kd_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_pelanggan.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kd_pelanggan.Text, 3)
        Select Case x
            Case "100" : nama.Text = "UCOK"
            Case "101" : nama.Text = "JHAN F"
            Case "102" : nama.Text = "ERIN"
            Case "103" : nama.Text = "ERIN"
        End Select
        x = Microsoft.VisualBasic.Left(kd_pelanggan.Text, 3)
        Select Case x
            Case "TOK"
                harga.Text = 250
                biaya_beban.Text = 15000
                tipe.Text = "TOKO"
            Case "RUM"
                harga.Text = 150
                biaya_beban.Text = 10000
                tipe.Text = "RUMAN"
            Case "PAB"
                harga.Text = 25000
                biaya_beban.Text = 25000
                tipe.Text = "PABRIK"
            Case "SWA"
                harga.Text = 20000
                biaya_beban.Text = 60000
                tipe.Text = "SWALAYAN"
        End Select
        x = Microsoft.VisualBasic.Mid(kd_pelanggan.Text, 5, 3)
        Select Case x
            Case "MED" : daerah.Text = "Medan"
            Case "BEL" : daerah.Text = "Belawan"
            Case Else : daerah.Text = "-"
        End Select
    End Sub

    Private Sub jml_pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jml_pemakaian.KeyPress
        If jml_pemakaian.Text = "" Then
            jml_pemakaian.Focus()
        ElseIf Asc(e.KeyChar) = 13 Then
            total_tagihan.Text = Val(biaya_beban.Text) + (harga.Text * jml_pemakaian.Text)
            pajak.Text = 0.01 * total_tagihan.Text
            pembayaran.Text = Val(total_tagihan.Text) + Val(pajak.Text)
        End If
    End Sub

    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click
        kd_pelanggan.Text = ""
        nama.Text = ""
        tipe.Text = ""
        harga.Text = ""
        jml_pemakaian.Text = ""
        total_tagihan.Text = ""
        pembayaran.Text = ""
        daerah.Text = ""
        biaya_beban.Text = ""
        pajak.Text = ""
    End Sub
End Class

Saya juga akan berbagi membuat komen "Yes / no" saat kita klik button Keluar:



ini listing Program nya letakan saja diatas end class:

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
        Dim k As String
        k = MsgBox("Apakah Anda yakin Ingin Keluar", MsgBoxStyle.YesNo)
        If k = vbYes Then
            Me.Close()
        End If
    End Sub

Demikianlah Artikel " Program Aplikasi Tagihan Air PDAM dengan VB.Net" semoga Artikel diatas dapat bermanfaat bagi anda,,,