JAWABAN 2 QUIZ ON_LINE

 JAWABAN 2 :

Public Class Form1

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NIKK.Items.Add("K1001")
        NIKK.Items.Add("K2003")
        NIKK.Items.Add("S1001")
        NIKK.Items.Add("S2002")
        NIKK.Items.Add("S3003")
        NIKK.Items.Add("A1001")
        NIKK.Items.Add("A2002")
        NIKK.Items.Add("A3003")

        golongann.Items.Add("III A")
        golongann.Items.Add("III B")
        golongann.Items.Add("III C")

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bagiann.TextChanged

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub NIKK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIKK.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(NIKK.Text, 1)
        Select Case x
            Case "K" : Bagiann.Text = "KEUANGAN"
            Case "A" : Bagiann.Text = "ADMINISTRASI"
            Case "S" : Bagiann.Text = "DIREKTUR"
        End Select
        Select Case NIKK.Text
            Case "K1001" : nm.Text = "JIMMY"
            Case "K2003" : nm.Text = "STEPHANUS"
            Case "S1001" : nm.Text = "CHANDRA"
            Case "S2002" : nm.Text = "SITORUS"
            Case "S3003" : nm.Text = "ZERO"
            Case "A1001" : nm.Text = "FOSTROT"
            Case "A2002" : nm.Text = "BRIAN"
            Case "A3003" : nm.Text = "LEO"
        End Select
    End Sub

    Private Sub golongann_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles golongann.SelectedIndexChanged
        Select Case golongann.Text
            Case "III A" : gaji.Text = 1500000
            Case "III B" : gaji.Text = 2500000
            Case "III C" : gaji.Text = 3500000
        End Select
        Select Case golongann.Text
            Case "III A" : Pinjaman.Text = 500000
            Case "III B" : Pinjaman.Text = 700000
            Case "III C" : Pinjaman.Text = 900000
        End Select
    End Sub

HASIL OUTPUT

 

·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