Lya Waroka Tari'e Blog's: Pemograman Pengolahan Tagihan PDAM

Quiss oline
Berikut ini adalah desain nya :

dan berikut ini cara penyelesaian nya :

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kodepelanggan.Items.Add("PAB-MED-100")
        kodepelanggan.Items.Add("TOK-BEL-101")
        kodepelanggan.Items.Add("SWA-MED-102")
        kodepelanggan.Items.Add("PAB-MED-103")
        kodepelanggan.Items.Add("RUM-MED-104")

        Call BuatTabel()
        Me.BackColor = Color.Bisque

    End Sub
    Private Sub jumlahpemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahpemakaian.KeyPress

        If Asc(e.KeyChar) = 13 Then
            totaltagihan.Text = Val(biayabeban.Text) + (hargam3.Text * jumlahpemakaian.Text)
            pajak.Text = 0.01 * totaltagihan.Text
            pembayaran.Text = Val(totaltagihan.Text) + (pajak.Text)

        End If

    End Sub
    Private Sub jumlahpemakaian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahpemakaian.TextChanged

    End Sub
    Private Sub kodepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodepelanggan.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kodepelanggan.Text, 3)
        Select Case x
            Case "100" : nama.Text = "LIA WAROKA"
            Case "101" : nama.Text = "jhan f"
            Case "102" : nama.Text = "erin"
            Case "103" : nama.Text = "mia"
            Case "104" : nama.Text = "sandra"
        End Select
        x = Microsoft.VisualBasic.Left(kodepelanggan.Text, 3)
        Select Case x
            Case "TOK"
                hargam3.Text = 250
                biayabeban.Text = 15000
                type.Text = "TOKO"
            Case "RUM"
                hargam3.Text = 150
                biayabeban.Text = 10000
                type.Text = "RUMAH"
            Case "PAB"
                hargam3.Text = 25000
                biayabeban.Text = 25000
                type.Text = "PABRIK"
            Case "SWA"
                hargam3.Text = 20000
                biayabeban.Text = 60000
                type.Text = "SWALAYAN"
        End Select

        x = Microsoft.VisualBasic.Mid(kodepelanggan.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 btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        kodepelanggan.Text = ""
        nama.Text = ""
        type.Text = ""
        hargam3.Text = ""
        jumlahpemakaian.Text = ""
        totaltagihan.Text = ""
        pembayaran.Text = ""
        daerah.Text = ""
        biayabeban.Text = ""
        pajak.Text = ""
    End Sub

    Sub BuatTabel()
        lv.Columns.Add("kode pelanggan", 100, HorizontalAlignment.Center)
        lv.Columns.Add("nama", 80, HorizontalAlignment.Left)
        lv.Columns.Add("type", 80, HorizontalAlignment.Center)
        lv.Columns.Add("hargam3", 80, HorizontalAlignment.Left)
        lv.Columns.Add("jumlahpemakaian", 80, HorizontalAlignment.Center)
        lv.Columns.Add("totaltagihan", 80, HorizontalAlignment.Left)
        lv.Columns.Add("pembayaran", 80, HorizontalAlignment.Center)
        lv.Columns.Add("daerah", 80, HorizontalAlignment.Left)
        lv.Columns.Add("biayabeban", 80, HorizontalAlignment.Center)
        lv.Columns.Add("pajak", 80, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub

    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = kodepelanggan.Text
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(type.Text)
        Lst.SubItems.Add(hargam3.Text)
        Lst.SubItems.Add(jumlahpemakaian.Text)
        Lst.SubItems.Add(totaltagihan.Text)
        Lst.SubItems.Add(pembayaran.Text)
        Lst.SubItems.Add(daerah.Text)
        Lst.SubItems.Add(biayabeban.Text)
        Lst.SubItems.Add(pajak.Text)
        lv.Items.Add(Lst)
    End Sub
    Private Sub btnskl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnskl.Click
        IsiTabel()
        kodepelanggan.Text = ""
        nama.Text = ""
        type.Text = ""
        hargam3.Text = ""
        jumlahpemakaian.Text = ""
        totaltagihan.Text = ""
        pembayaran.Text = ""
        daerah.Text = ""
        biayabeban.Text = ""
        pajak.Text = ""
    End Sub

    Private Sub btnhsd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhsd.Click
        lv.Items.Clear()
    End Sub

    Private Sub btnhdydp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhdydp.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub
End Class

Berikut ini hasil nya: