Sistem Informasi Pembayaran Uang Tagihan Air Minum di VB.NET 2008




Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Items.Add("PAB-PAK-100")
        kode.Items.Add("PAB-BEL-100")

        kode.Items.Add("RUM-BEL-100")
        kode.Items.Add("SWA-MED-100")
    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        x = Mid(kode.Text, 1, 3)
        Select Case x
            Case "TOK"
                type.Text = "TOKO"
                beban.Text = 25000
                harga.Text = 300
            Case "RUM"
                type.Text = "RUMAH"
                beban.Text = 1500
                harga.Text = 100
            Case "SWA"
                type.Text = "SWALAYAN"
                beban.Text = 10000
                harga.Text = 200
            Case "PAB"
                type.Text = "PABRIK"
                beban.Text = 75000
                harga.Text = 500

        End Select
        x = Mid(kode.Text, 5, 3)
        Select Case x
            Case "MED" : daerah.Text = "MEDAN"
            Case "BEL" : daerah.Text = "BELAWAN"
            Case "PAK" : daerah.Text = "PATUMBAK"

        End Select

        If kode.Text = "PAB-PAK-100" Then
            nama.Text = "Nasib Marbun"
            pemakaian.Text = "3"
        ElseIf kode.Text = "PAB-BEL-100" Then
            nama.Text = "Hazmi Putra"
            pemakaian.Text = "2"
        ElseIf kode.Text = "RUM-BEL-100" Then
            nama.Text = "Depriadi"
            pemakaian.Text = "1"
        Else
            nama.Text = "Julius Laia"
            pemakaian.Text = "6"
        End If
    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        tota.Text = (harga.Text * pemakaian.Text) + beban.Text
        pajak.Text = 0.01 * tota.Text
        pembayaran.Text = tota.Text + Val(pajak.Text)
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        kode.Text = ""
        nama.Text = ""
        type.Text = ""
        daerah.Text = ""
        beban.Text = ""
        harga.Text = ""
        pemakaian.Text = ""
        tota.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Me.Close()

    End Sub
End Class

Berlangganan update artikel terbaru via email:

Tampilkan Komentar

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel