QUIZ

Pengolahan Tagihan PDAM!!!

Listing Programnya:
Public Class Form1
    Sub buattabel()
        Lv.Columns.Add("kode pelanggan", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("nama", 120, HorizontalAlignment.Center)
        Lv.Columns.Add("Tipe", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("HargaM3", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Daerah", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Jumlah Pemakaian", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("Total Tagihan", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("pembayaran", 80, HorizontalAlignment.Center)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True

    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = kp.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(tipe.Text)
        lst.SubItems.Add(hargaM3.Text)
        lst.SubItems.Add(Daerah.Text)
        lst.SubItems.Add(Bbeban.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(Jpemakaian.Text)
        lst.SubItems.Add(Ttagihan.Text)
        lst.SubItems.Add(pembayaran.Text)
        Lv.Items.Add(lst)
    End Sub
    Sub bersih()
        kp.Text = ""
        nama.Text = ""
        tipe.Text = ""
        Ttagihan.Text = ""
        hargaM3.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
        Jpemakaian.Text = ""
        Daerah.Text = ""
        Bbeban.Text = ""
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()

        kp.Items.Add("TOK-MED-100")
        kp.Items.Add("PAB-BEL-101")
        kp.Items.Add("SWA-BEL-102")
        kp.Items.Add("PAB-MED-103")
        kp.Items.Add("RUM-MED-104")

    End Sub

    Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kp.Text, 3)

        If x = "100" Then
            nama.text = "Muhammad Ardianto"
        ElseIf x = "101" Then
            nama.Text = "Jekson Sinaga"
        ElseIf x = "102" Then
            nama.Text = "Triani Arista"
        ElseIf x = "103" Then
            nama.Text = "Aldyan"
        End If

        x = Microsoft.VisualBasic.Left(kp.Text, 3)

        If x = "PAB" Then
            HargaM3.Text = 500
            Bbeban.Text = 250000
            tipe.Text = "Pabrik"
        ElseIf x = "TOK" Then
            HargaM3.Text = 500
            Bbeban.Text = 25000
            tipe.Text = "Toko"
        ElseIf x = "RUM" Then
            HargaM3.Text = 500
            Bbeban.Text = 10000
            tipe.Text = "Rumah"
        ElseIf x = "SWA" Then
            HargaM3.Text = 200
            Bbeban.Text = 15000
            tipe.Text = "Swalayan"
        End If

        x = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
        If x = "MED" Then
            Daerah.Text = "Medan"
        ElseIf x = "BEL" Then
            Daerah.Text = "Belawan"
        End If

    End Sub

    Private Sub Jpemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jpemakaian.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Ttagihan.Text = hargaM3.Text * Jpemakaian.Text + Val(Bbeban.Text)
            pajak.Text = 0.01 * Ttagihan.Text
            Pembayaran.Text = Val(Ttagihan.Text) + Val(pajak.Text)
        End If

    End Sub

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

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        kp.Text = ""
        nama.Text = ""
        tipe.Text = ""
        Ttagihan.Text = ""
        hargaM3.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
        Jpemakaian.Text = ""
        Daerah.Text = ""
        Bbeban.Text = ""
    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        isitabel()
        bersih()

    End Sub

    Private Sub btnhapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemuadata.Click
        Lv.Items.Clear()

    End Sub

    Private Sub Btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdatayangdipilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub
End Class

Hasilnya: