Quiz Online ListView

Public Class Form1
    Sub buat_tabel()
        LV.Columns.Add("Kode_Pelanggang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Daerah", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Biaya_Beban", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Tipe", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
        LV.Columns.Add("HargaperKWH", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Jlh_Pemakaian", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Tot_Tagihan", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Pemabayaran", 100, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub isi_tabel()
        Dim lst As New ListViewItem
        lst.Text = Kode_Pelanggang.Text
        lst.SubItems.Add(Daerah.Text)
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Biaya_Beban.Text)
        lst.SubItems.Add(Tipe.Text)
        lst.SubItems.Add(Pajak.Text)
        lst.SubItems.Add(HargaperKWH.Text)
        lst.SubItems.Add(Jlh_Pemakaian.Text)
        lst.SubItems.Add(Tot_Tagihan.Text)
        lst.SubItems.Add(Pemabayaran.Text)
        LV.Items.Add(lst)
    End Sub


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

        Kode_Pelanggang.Items.Add("PAB-MED-100")
        Kode_Pelanggang.Items.Add("TOK-BL-101")
        Kode_Pelanggang.Items.Add("SWA-TEM-102")
        Kode_Pelanggang.Items.Add("RUM-MAR-103")
    End Sub
    Private Sub Kode_Pelanggang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Pelanggang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(Kode_Pelanggang.Text, 3)
        Select Case x
            Case "100" : Nama.Text = "Yhannu Lahagu"
            Case "101" : Nama.Text = "Firman Gea"
            Case "102" : Nama.Text = "Agustiman Zega"
            Case "103" : Nama.Text = "Citra"
        End Select
        x = Microsoft.VisualBasic.Left(Kode_Pelanggang.Text, 3)
        Select Case x
            Case " TOK"
                HargaperKWH.Text = 500
                Biaya_Beban.Text = 150000
                Tipe.Text = "Toko"
                Daerah.Text = "AKSARA"
            Case "RUM"
                HargaperKWH.Text = 200
                Biaya_Beban.Text = 50000
                Tipe.Text = "Rumah"
                Daerah.Text = "BELAWAN"
            Case "PAB"
                HargaperKWH.Text = 10000
                Biaya_Beban.Text = 1000000
                Tipe.Text = "Pabrik"
                Daerah.Text = "MEDAN"
            Case "SWA"
                HargaperKWH.Text = 1500
                Biaya_Beban.Text = 400000
                Tipe.Text = "Swalayan"
                Daerah.Text = "MARENDAL"
            Case Else
                Kode_Pelanggang.Text = "-"
                x = Microsoft.VisualBasic.Mid(Kode_Pelanggang.Text, 5, 3)
                Select Case x
                    Case "MED" : Daerah.Text = "MEDAN"
                    Case "BEL" : Daerah.Text = "BELAWAN"
                    Case "TEM" : Daerah.Text = "AKSARA"
                    Case "MAR" : Daerah.Text = "MARENDAL"
                    Case "BIN" : Daerah.Text = "BINJAI"
                    Case "PAK" : Daerah.Text = " LUBUK PAKAM"
                    Case Else : Daerah.Text = "-"
                End Select
        End Select
    End Sub

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

        If Asc(e.KeyChar) = 13 Then
            Tot_Tagihan.Text = Val(Biaya_Beban.Text) + (HargaperKWH.Text * Jlh_Pemakaian.Text)
            Pajak.Text = 0.15 * Tot_Tagihan.Text
            Pemabayaran.Text = Val(Tot_Tagihan.Text) + Val(Pajak.Text)
        End If

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        BersihForm(Me)
    End Sub
    Sub BersihForm(ByVal f As Form)
        Dim i As Object
        For Each i In f.Controls

            If TypeOf i Is TextBox Then i.text = ""
            If TypeOf i Is ComboBox Then i.text = ""

        Next
    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        End
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        isi_tabel()
        Kode_Pelanggang.Text = ""
        Daerah.Text = ""
        Nama.Text = ""
        Biaya_Beban.Text = ""
        Tipe.Text = ""
        Pajak.Text = ""
        HargaperKWH.Text = ""
        Jlh_Pemakaian.Text = ""
        Tot_Tagihan.Text = ""
        Pemabayaran.Text = ""
    End Sub
End Class