Pengolahan Tagihan PDAM

Public Class Form1

    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)
        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"
            X = Microsoft.VisualBasic.Left(kodepelanggan.Text, 3)
            If X = "PAB" Then
                hargam3.Text = 500
                biayabeban.Text = 250000
                tipe.Text = "Pabrik"
            ElseIf X = "TOK" Then
                hargam3.Text = 500
                biayabeban.Text = 25000
                tipe.Text = "Toko"
            ElseIf X = "PAB" Then
                hargam3.Text = 500
                biayabeban.Text = 250000
                tipe.Text = "Pabrik"
            ElseIf X = "RUM" Then
                hargam3.Text = 500
                biayabeban.Text = 10000
                tipe.Text = "Rumah"
            ElseIf X = "SWA" Then
                hargam3.Text = 200
                biayabeban.Text = 15000
                tipe.Text = "Swalayan"
            End If
            X = Microsoft.VisualBasic.Mid(kodepelanggan.Text, 5, 3)
            If X = "MED" Then
                daerah.Text = "Medan"
            ElseIf X = "BEL" Then
                daerah.Text = "Belawan"
            End If
        End If
    End Sub

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

    End Sub
    Sub BuatTabel()
        LV.Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Tipe", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Daerah", 80, HorizontalAlignment.Left)
        LV.Columns.Add("HargaM3", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Pemakaian Air", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Total Tagihan", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Pembayaran", 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(tipe.Text)
        lst.SubItems.Add(daerah.Text)
        lst.SubItems.Add(hargam3.Text)
        lst.SubItems.Add(biayabeban.Text)
        lst.SubItems.Add(pemakaianair.Text)
        lst.SubItems.Add(totaltagihan.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(pembayaran.Text)
        LV.Items.Add(lst)
    End Sub


    Private Sub pemakaianair_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaianair.KeyPress
        If Asc(e.KeyChar) = 13 Then
            totaltagihan.Text = hargam3.Text * pemakaianair.Text + Val(biayabeban.Text)
            pajak.Text = 0.01 * totaltagihan.Text
            pembayaran.Text = Val(totaltagihan.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
        kodepelanggan.Text = ""
        nama.Text = ""
        tipe.Text = ""
        totaltagihan.Text = ""
        hargam3.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
        pemakaianair.Text = ""
        daerah.Text = ""
        biayabeban.Text = ""
    End Sub

    Private Sub btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslist.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

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        kodepelanggan.Text = ""
        nama.Text = ""
        tipe.Text = ""
        totaltagihan.Text = ""
        hargam3.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
        pemakaianair.Text = ""
        daerah.Text = ""
        biayabeban.Text = ""
    End Sub
End Class