PROGRAM PEMAKAIAN LISTRIK

Public Class Form2

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

        kode.Items.Add("Medan")

        kode.Items.Add("Belawan")

        kode.Items.Add("Aksara")

        kode.Items.Add("Marendal")

        kode.Items.Add("Binjai")

        kode.Items.Add("Lubuk Pakam")

        tok.Items.Add("Toko")

        tok.Items.Add("Rumah")

        tok.Items.Add("Swalayan")

        tok.Items.Add("Pabrik")

        Call buattabel()

        Call isitabel()

    End Sub

    Private Sub daerah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.TextChanged

     

    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.Left(kode.Text, 2)

        If x = "Me" Then

            daerah.Text = "MED"

        ElseIf x = "Be" Then

            daerah.Text = "BEL"

        ElseIf x = "Ak" Then

            daerah.Text = "TEM"

        ElseIf x = "Ma" Then

            daerah.Text = "MAR"

        ElseIf x = "Bi" Then

            daerah.Text = "BIN"

        Else

            daerah.Text = "PAK"

        End If

    End Sub

    Private Sub tok_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tok.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Left(tok.Text, 2)

        If x = "To" Then

            tipe.Text = "TOK"

            biaya.Text = "150000"

            harga.Text = "500"

        ElseIf x = "Ru" Then

            tipe.Text = "RUM"

            biaya.Text = "50000"

            harga.Text = "200"

        ElseIf x = "Sw" Then

            tipe.Text = "SWA"

            biaya.Text = "400000"

            harga.Text = "1500"

        Else

            tipe.Text = "PAB"

            biaya.Text = "1000000"

            harga.Text = "10000"

        End If

    End Sub

    Private Sub jumlahkwh_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)

    End Sub

    Private Sub jumlahkwh_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

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

     

    End Sub

    Private Sub jumlahpem_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahpem.TextChanged

    End Sub

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

        If Asc(e.KeyChar) = 13 Then

            totalt.Text = Val(biaya.Text) + harga.Text * jumlahpem.Text

            pajak.Text = 0.015 * totalt.Text

            pembayaran.Text = pajak.Text + totalt.Text

        End If

    End Sub

    Sub buattabel()

        ListView1.Columns.Add("Nama", 80, HorizontalAlignment.Center)

        ListView1.Columns.Add("Daerah", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Kode", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Toko", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Tipe", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Biaya", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Harga/KWH", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Jumlah Pemakaian", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Pajak", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Total Tagihan", 75, HorizontalAlignment.Center)

        ListView1.Columns.Add("Pembayaran", 75, HorizontalAlignment.Center)

        ListView1.View = View.Details

        ListView1.GridLines = True

        ListView1.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim isi As New ListViewItem

        isi.Text = nama.Text

        isi.SubItems.Add(daerah.Text)

        isi.SubItems.Add(kode.Text)

        isi.SubItems.Add(tok.Text)

        isi.SubItems.Add(tipe.Text)

        isi.SubItems.Add(biaya.Text)

        isi.SubItems.Add(harga.Text)

        isi.SubItems.Add(jumlahpem.Text)

        isi.SubItems.Add(pajak.Text)

        isi.SubItems.Add(totalt.Text)

        isi.SubItems.Add(pembayaran.Text)

        ListView1.Items.Add(isi)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Call isitabel()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ListView1.Items.Remove(ListView1.SelectedItems(0))

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        nama.Text = ""

        daerah.Text = ""

        kode.Text = ""

        tok.Text = ""

        tipe.Text = ""

        biaya.Text = ""

        harga.Text = ""

        jumlahpem.Text = ""

        pajak.Text = ""

        totalt.Text = ""

        pembayaran.Text = ""

    End Sub

End Class