QUIZ ONLINE

Public Class Form1


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

        KODE_PELANGGAN.Items.Add("MED")
        KODE_PELANGGAN.Items.Add("BEL")
        KODE_PELANGGAN.Items.Add("TEM")
        KODE_PELANGGAN.Items.Add("MAR")
        KODE_PELANGGAN.Items.Add("BIN")
        KODE_PELANGGAN.Items.Add("PAK")

        TIPE_PELANGGAN.Items.Add("TOK")
        TIPE_PELANGGAN.Items.Add("RUM")
        TIPE_PELANGGAN.Items.Add("SWA")
        TIPE_PELANGGAN.Items.Add("PAB")

    End Sub

    Private Sub KODE_PELANGGAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODE_PELANGGAN.SelectedIndexChanged
        Select Case KODE_PELANGGAN.Text
            Case ("MED")
                DAERAH.Text = "MEDAN"
                PAJAK.Text = 0.015
            Case ("BEL")
                DAERAH.Text = "BELAWAN"
                PAJAK.Text = 0.015
            Case ("TEM")
                DAERAH.Text = "AKSARA"
                PAJAK.Text = 0.015
            Case ("MAR")
                DAERAH.Text = "MARENDAL"
                PAJAK.Text = 0.015
            Case ("BIN")
                DAERAH.Text = "BINJAI"
                PAJAK.Text = 0.015
            Case ("PAK")
                DAERAH.Text = "LUBUK PAKAM"
                PAJAK.Text = 0.015
        End Select
    End Sub
    Private Sub TIPE_PELANGGAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TIPE_PELANGGAN.SelectedIndexChanged

        Select Case TIPE_PELANGGAN.Text
            Case ("TOK")
                TIPE_TOKO.Text = "TOKO"
                BIAYA_BEBAN.Text = 150000
                HARGA_PER_KWH.Text = 500
            Case ("RUM")
                TIPE_TOKO.Text = "RUMAH"
                BIAYA_BEBAN.Text = 50000
                HARGA_PER_KWH.Text = 200
            Case ("SWA")
                TIPE_TOKO.Text = "SWALAYAN"
                BIAYA_BEBAN.Text = 400000
                HARGA_PER_KWH.Text = 1500
            Case ("PAB")
                TIPE_TOKO.Text = "PABRIK"
                BIAYA_BEBAN.Text = 1000000
                HARGA_PER_KWH.Text = 10000
        End Select

    End Sub
    Sub tabel()
        LV.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Left)
        LV.Columns.Add("DAERAH", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TIPE PELANGGAN", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TIPE TOKO", 80, HorizontalAlignment.Left)
        LV.Columns.Add("BIAYA BEBAN", 80, HorizontalAlignment.Left)
        LV.Columns.Add("METERAN BULAN LALU", 80, HorizontalAlignment.Left)
        LV.Columns.Add("METERAN BULAN SEKARANG", 80, HorizontalAlignment.Left)
        LV.Columns.Add("HARGA PER KWH", 80, HorizontalAlignment.Left)
        LV.Columns.Add("BESAR PEMAKAIAN", 80, HorizontalAlignment.Left)
        LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TAGIHAN", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TOTAL BAYAR", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub ISITABEL()
        Dim x As New ListViewItem
        With x
            .Text = KODE_PELANGGAN.Text
            .SubItems.Add(DAERAH.Text)
            .SubItems.Add(TIPE_PELANGGAN.Text)
            .SubItems.Add(TIPE_TOKO.Text)
            .SubItems.Add(BIAYA_BEBAN.Text)
            .SubItems.Add(METERAN_BULAN_LALU.Text)
            .SubItems.Add(METERAN_SEKARANG.Text)
            .SubItems.Add(HARGA_PER_KWH.Text)
            .SubItems.Add(BESAR_PEMAKAIAN.Text)
            .SubItems.Add(PAJAK.Text)
            .SubItems.Add(TAGIHAN.Text)
            .SubItems.Add(TOTAL_BAYAR.Text)
            LV.Items.Add(x)
        End With
    End Sub

    Private Sub TOTAL_BAYAR_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TOTAL_BAYAR.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TOTAL_BAYAR.Text = Val(BIAYA_BEBAN.Text) + Val(HARGA_PER_KWH.Text) + Val(BESAR_PEMAKAIAN.Text)
        End If
    End Sub
    Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click
        BESAR_PEMAKAIAN.Text = METERAN_BULAN_LALU.Text - METERAN_SEKARANG.Text
        TAGIHAN.Text = BIAYA_BEBAN.Text + (HARGA_PER_KWH.Text * BESAR_PEMAKAIAN.Text)
        TOTAL_BAYAR.Text = TAGIHAN.Text * PAJAK.Text
    End Sub
    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
        ISITABEL()
        BERSIH()
    End Sub
    Sub BERSIH()
        KODE_PELANGGAN.Text = ""
        TIPE_PELANGGAN.Text = ""
        TIPE_TOKO.Text = ""
        PAJAK.Text = "'"
        METERAN_SEKARANG.Text = ""
        METERAN_BULAN_LALU.Text = ""
        TOTAL_BAYAR.Text = ""
        DAERAH.Text = ""
        HARGA_PER_KWH.Text = ""
        BIAYA_BEBAN.Text = ""
        TAGIHAN.Text = ""
        BESAR_PEMAKAIAN.Text = ""
    End Sub

    Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click
        BERSIH()
    End Sub

  Private Sub HAPUS_LIST_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_LIST.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
End Class