kuis visual

Public Class form1

    Sub buattable()
        LV.GridLines = True
        LV.FullRowSelect = True
        LV.View = View.Details
        LV.Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Tipe", 150, HorizontalAlignment.Center)
        LV.Columns.Add("Harga M3", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Pemakaian", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Total Tagihan", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Pembayaran", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Daerah", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Biaya Beban", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 120, HorizontalAlignment.Center)
    End Sub

    Sub isitable()
        Dim lst As New ListViewItem
        lst.Text = NM.Text
        lst.SubItems.Add(Tipe.Text)
        lst.SubItems.Add(HM.Text)
        lst.SubItems.Add(HM.Text)
        lst.SubItems.Add(JP.Text)
        lst.SubItems.Add(TT.Text)
        lst.SubItems.Add(Pembayaran.Text)
        lst.SubItems.Add(Daerah.Text)
        lst.SubItems.Add(BB.Text)
        lst.SubItems.Add(Pajak.Text)
        LV.Items.Add(lst)
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call buattable()
        KP.Items.Add("PAB-MED-100")
        KP.Items.Add("TOK-BEL-101")
        KP.Items.Add("SWA-MED-102")
    End Sub

    Private Sub JP_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JP.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TT.Text = Val(BB.Text) + (HM.Text * JP.Text)
            Pajak.Text = 0.01 * TT.Text
            Pembayaran.Text = Val(TT.Text) + Val(Pajak.Text)

        End If

    End Sub

    Private Sub JP_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JP.TextChanged

    End Sub

    Private Sub KP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KP.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(KP.Text, 3)
        Select Case x
            Case "100" : NM.Text = "Bagas sahril"
            Case "101" : NM.Text = "Annisa"
            Case "102" : NM.Text = "Sengkono"
        End Select
        x = Microsoft.VisualBasic.Left(KP.Text, 3)
        Select Case x
            Case "Tok"
                HM.Text = 250
                BB.Text = 15000
                Tipe.Text = "toko"
            Case "RUM"
                HM.Text = 150
                BB.Text = 10000
                Tipe.Text = "rumah"
            Case "PAB"
                HM.Text = 25000
                BB.Text = 25000
                Tipe.Text = "pabrik"
            Case "SWA"
                HM.Text = 20000
                BB.Text = 60000
                Tipe.Text = "swalayan"
        End Select
        x = Microsoft.VisualBasic.Mid(KP.Text, 5, 3)
        Select Case x
            Case "MED" : Daerah.Text = "Medan"
            Case "BEL" : Daerah.Text = "Belawan"
            Case Else : Daerah.Text = "_"

        End Select
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        KP.Text = ""
        NM.Text = ""
        Tipe.Text = ""
        HM.Text = ""
        JP.Text = ""
        TT.Text = ""
        Pembayaran.Text = ""
        Daerah.Text = ""
        BB.Text = ""
        Pajak.Text = ""
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Close()

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        Call isitable()
    End Sub
End Class