JAWABAN 1 QUIZ ON_LINE

 JAWABAN 1 :

Private Sub ID_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles KODE.KeyPress  
        Dim TOMBOL As Integer = Asc(e.KeyChar)  
        If TOMBOL = 13 Then  
            PROSES_Click(sender, e)  
        End If  
    End Sub  

Private Sub ID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODE.TextChanged  
        Dim x As String  
        NO.Text = "1" & Microsoft.VisualBasic.Right(KODE.Text, 2)  
        x = Microsoft.VisualBasic.Mid(KODE.Text, 4, 3)  
        If x = "MED" Then  
            DAERAH.Text = "MEDAN"  
            PAJAK.Text = 0.015  
        ElseIf x = "BEL" Then  
            DAERAH.Text = "BELAWAN"  
            PAJAK.Text = 0.015  
        ElseIf x = "TEM" Then  
            DAERAH.Text = "AKSARA"  
            PAJAK.Text = 0.015  
        ElseIf x = "MAR" Then  
            DAERAH.Text = "MARENDAL"  
            PAJAK.Text = 0.015  
        ElseIf x = "BIN" Then  
            DAERAH.Text = "BINJAI"  
            PAJAK.Text = 0.015  
        ElseIf x = "PAK" Then  
            DAERAH.Text = "LUBUK PAKAM"  
            PAJAK.Text = 0.015  
        End If  
        x = Microsoft.VisualBasic.Mid(KODE.Text, 1, 3)  
        If x = "TOK" Then  
            TIPE.Text = "TOKO"  
            HARGA.Text = "500"  
            BEBAN.Text = "150000"  
        ElseIf x = "RUM" Then  
            TIPE.Text = "RUMAH"  
            HARGA.Text = "200"  
            BEBAN.Text = "50000"  
        ElseIf x = "SWA" Then  
            TIPE.Text = "SWALAYAN"  
            HARGA.Text = "1500"  
            BEBAN.Text = "400000"  
        ElseIf x = "PAB" Then  
            TIPE.Text = "PABRIK"  
            BEBAN.Text = "1000000"  
            HARGA.Text = "10000"  
        End If  
    End Sub  

Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click  
BESAR.Text = SEKARANG.Text - LALU.Text  
TAGIHAN.Text = BEBAN.Text + (HARGA.Text * BESAR.Text)  
TOTAL.Text = TAGIHAN.Text * 0.015  
End Sub  

Sub buattabel()  
LV.Columns.Add("TANGGAL BAYAR", 80, HorizontalAlignment.Left)  
LV.Columns.Add("NO. URUT", 80, HorizontalAlignment.Center)  
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("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 lst As New ListViewItem  
lst.Text = TGL.Text  
lst.SubItems.Add(NO.Text)  
lst.SubItems.Add(KODE.Text)  
lst.SubItems.Add(DAERAH.Text)  
lst.SubItems.Add(TIPE.Text)  
lst.SubItems.Add(BEBAN.Text)  
lst.SubItems.Add(LALU.Text)  
lst.SubItems.Add(SEKARANG.Text)  
lst.SubItems.Add(HARGA.Text)  
lst.SubItems.Add(BESAR.Text)  
lst.SubItems.Add(PAJAK.Text)  
lst.SubItems.Add(TAGIHAN.Text)  
lst.SubItems.Add(TOTAL.Text)  
LV.Items.Add(lst)  
End Sub  

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
        buattabel()  
  
Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click  
        isitabel()  
        KODE.Text = ""  
        DAERAH.Text = ""  
        BEBAN.Text = ""  
        TIPE.Text = ""  
        LALU.Text = ""  
        HARGA.Text = ""  
        TOTAL.Text = ""  
        SEKARANG.Text = ""  
        NO.Text = ""  
        TAGIHAN.Text = ""  
        BESAR.Text = ""  
        PAJAK.Text = ""  
    End Sub  

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

Private Sub RESET_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RESET.Click  
        KODE.Text = ""  
        DAERAH.Text = ""  
        BEBAN.Text = ""  
        TIPE.Text = ""  
        LALU.Text = ""  
        HARGA.Text = ""  
        TOTAL.Text = ""  
        SEKARANG.Text = ""  
        NO.Text = ""  
        TAGIHAN.Text = ""  
        BESAR.Text = ""  
        PAJAK.Text = ""  
    End Sub  

  

·Private Sub ID_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles KODE.KeyPress

oDim TOMBOL As Integer = Asc(e.KeyChar)

oIf TOMBOL = 13 Then

§PROSES_Click(sender, e)

oEnd If

·End Sub

·Private Sub ID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODE.TextChanged

oDim x As String

oNO.Text = "1" & Microsoft.VisualBasic.Right(KODE.Text, 2)

ox = Microsoft.VisualBasic.Mid(KODE.Text, 4, 3)

oIf x = "MED" Then

§DAERAH.Text = "MEDAN"

§PAJAK.Text = 0.015

oElseIf x = "BEL" Then

§DAERAH.Text = "BELAWAN"

§PAJAK.Text = 0.015

oElseIf x = "TEM" Then

§DAERAH.Text = "AKSARA"

§PAJAK.Text = 0.015

oElseIf x = "MAR" Then

§DAERAH.Text = "MARENDAL"

§PAJAK.Text = 0.015

oElseIf x = "BIN" Then

§DAERAH.Text = "BINJAI"

§PAJAK.Text = 0.015

oElseIf x = "PAK" Then

§DAERAH.Text = "LUBUK PAKAM"

§PAJAK.Text = 0.015

oEnd If

ox = Microsoft.VisualBasic.Mid(KODE.Text, 1, 3)

oIf x = "TOK" Then

§TIPE.Text = "TOKO"

§HARGA.Text = "500"

§BEBAN.Text = "150000"

oElseIf x = "RUM" Then

§TIPE.Text = "RUMAH"

§HARGA.Text = "200"

§BEBAN.Text = "50000"

oElseIf x = "SWA" Then

§TIPE.Text = "SWALAYAN"

§HARGA.Text = "1500"

§BEBAN.Text = "400000"

oElseIf x = "PAB" Then

§TIPE.Text = "PABRIK"

§BEBAN.Text = "1000000"

§HARGA.Text = "10000"

oEnd If

·End Sub

·Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click

·BESAR.Text = SEKARANG.Text - LALU.Text

·TAGIHAN.Text = BEBAN.Text + (HARGA.Text * BESAR.Text)

·TOTAL.Text = TAGIHAN.Text * 0.015

·End Sub

·Sub buattabel()

·LV.Columns.Add("TANGGAL BAYAR", 80, HorizontalAlignment.Left)

·LV.Columns.Add("NO. URUT", 80, HorizontalAlignment.Center)

·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("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 lst As New ListViewItem

·lst.Text = TGL.Text

·lst.SubItems.Add(NO.Text)

·lst.SubItems.Add(KODE.Text)

·lst.SubItems.Add(DAERAH.Text)

·lst.SubItems.Add(TIPE.Text)

·lst.SubItems.Add(BEBAN.Text)

·lst.SubItems.Add(LALU.Text)

·lst.SubItems.Add(SEKARANG.Text)

·lst.SubItems.Add(HARGA.Text)

·lst.SubItems.Add(BESAR.Text)

·lst.SubItems.Add(PAJAK.Text)

·lst.SubItems.Add(TAGIHAN.Text)

·lst.SubItems.Add(TOTAL.Text)

·LV.Items.Add(lst)

·End Sub

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

obuattabel()

·Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click

oisitabel()

oKODE.Text = ""

oDAERAH.Text = ""

oBEBAN.Text = ""

oTIPE.Text = ""

oLALU.Text = ""

oHARGA.Text = ""

oTOTAL.Text = ""

oSEKARANG.Text = ""

oNO.Text = ""

oTAGIHAN.Text = ""

oBESAR.Text = ""

oPAJAK.Text = ""

·End Sub

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

oLV.Items.Remove(LV.SelectedItems(0))

·End Sub

·Private Sub RESET_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RESET.Click

oKODE.Text = ""

oDAERAH.Text = ""

oBEBAN.Text = ""

oTIPE.Text = ""

oLALU.Text = ""

oHARGA.Text = ""

oTOTAL.Text = ""

oSEKARANG.Text = ""

oNO.Text = ""

oTAGIHAN.Text = ""

oBESAR.Text = ""

oPAJAK.Text = ""

·End Sub