Data Rekening Air

Public Class Form1

    Sub buattabel()

        lv.Columns.Add("kode", 80, HorizontalAlignment.Center)

        lv.Columns.Add("nama", 180, HorizontalAlignment.Left)

        lv.Columns.Add("tipe", 80, HorizontalAlignment.Center)

        lv.Columns.Add("total", 80, HorizontalAlignment.Center)

        lv.Columns.Add("harga", 80, HorizontalAlignment.Center)

        lv.Columns.Add("pajak", 80, HorizontalAlignment.Center)

        lv.Columns.Add("pembayaran", 80, HorizontalAlignment.Center)

        lv.Columns.Add("pemakaian", 80, HorizontalAlignment.Center)

        lv.Columns.Add("daerah", 80, HorizontalAlignment.Center)

        lv.Columns.Add("beban", 80, HorizontalAlignment.Center)

        lv.view = View.details

        lv.gridlines = True

        lv.fullrowselect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = kode.Text

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(tipe.Text)

        lst.SubItems.Add(total.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(pembayaran.Text)

        lst.SubItems.Add(pemakaian.Text)

        lst.SubItems.Add(daerah.Text)

        lst.SubItems.Add(beban.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click

    End Sub

    Private Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        buattabel()

        kode.Items.Add("TOK-MED-100")

        kode.Items.Add("PAB-BEL-101")

        kode.Items.Add("SWA-BEL-102")

        kode.Items.Add("PAB-MED-103")

        kode.Items.Add("RUM-MED-104")

    End Sub

     

       

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        kode.Text = ""

        nama.Text = ""

        tipe.Text = ""

        total.Text = ""

        harga.Text = ""

        pajak.Text = ""

        pembayaran.Text = ""

        pemakaian.Text = ""

        daerah.Text = ""

        beban.Text = ""

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        End

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Right(kode.Text, 3)

        If x = "100" Then

            nama.Text = "Muhamad Ardianto"

        ElseIf x = "101" Then

            nama.Text = "Jeckson Sinaga"

        ElseIf x = "102" Then

            nama.Text = "Triani Arista"

        ElseIf x = "103" Then

            nama.Text = "Aldianto"

        End If

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

        If x = "PAB" Then

            harga.Text = 500

            beban.Text = 250000

            tipe.Text = ("Pabrik")

        ElseIf x = "TOK" Then

            harga.Text = 500

            beban.Text = 25000

            tipe.Text = "TOKO"

        ElseIf x = "RUM" Then

            harga.Text = 500

            beban.Text = 10000

            tipe.Text = ("RUM")

        ElseIf x = "SWA" Then

            harga.Text = 200

            beban.Text = 15000

            tipe.Text = ("SWALAYAN")

        End If

        x = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)

        If x = "MED" Then

            daerah.Text = "Medan"

        ElseIf x = "BEL" Then

            daerah.Text = "Belawan"

        End If

    End Sub

    Private Sub pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaian.KeyPress

        If Asc(e.KeyChar) = 13 Then

            total.Text = harga.Text * pemakaian.Text + Val(beban.Text)

            pajak.Text = 0.01 * total.Text

            pembayaran.Text = Val(total.Text) + Val(pajak.Text)

        End If

    End Sub

    Private Sub pemakaian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pemakaian.TextChanged

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        isitabel()

        kode.Text = ""

        nama.Text = ""

        tipe.Text = ""

        total.Text = ""

        harga.Text = ""

        pajak.Text = ""

        pembayaran.Text = ""

        pemakaian.Text = ""

        daerah.Text = ""

        beban.Text = ""

    End Sub

End Class