tugas listview

Public Class Form1


    Sub BUATTABEL()
        LV.Columns.Add("KP", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 60, HorizontalAlignment.Left)
        LV.Columns.Add("TP", 80, HorizontalAlignment.Right)
        LV.Columns.Add("HRG", 80, HorizontalAlignment.Center)
        LV.Columns.Add("BB", 80, HorizontalAlignment.Left)
        LV.Columns.Add("PA", 80, HorizontalAlignment.Right)
        LV.Columns.Add("TT", 60, HorizontalAlignment.Center)
        LV.Columns.Add("PJK", 80, HorizontalAlignment.Right)
        LV.Columns.Add("PBYRN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("DAERAH", 60, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

    End Sub
    Sub ISITABEL()
        Dim LST As New ListViewItem
        LST.Text = KP.Text
        LST.SubItems.Add(NAMA.Text)
        LST.SubItems.Add(TP.Text)
        LST.SubItems.Add(HRG.Text)
        LST.SubItems.Add(BB.Text)
        LST.SubItems.Add(PA.Text)
        LST.SubItems.Add(TT.Text)
        LST.SubItems.Add(PJK.Text)
        LST.SubItems.Add(PBYRN.Text)
        LST.SubItems.Add(DAERAH.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()


        KP.Items.Add("TOK-MED-100")
        KP.Items.Add("PAB-BEL-101")
        KP.Items.Add("SWA-BEL-102")
        KP.Items.Add("PAB-MED-103")
        KP.Items.Add("RUM-MED-104")
    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)



        If x = "100" Then
            NAMA.Text = "Muhammad Ardianto"
        ElseIf x = "101" Then
            NAMA.Text = "Jekson Sinaga"
        ElseIf x = "102" Then
            NAMA.Text = "Triani Arista"
        ElseIf x = "103" Then
            NAMA.Text = "Aldyan"
        End If


        x = Microsoft.VisualBasic.Left(KP.Text, 3)

        If x = "PAB" Then
            HRG.Text = 500
            BB.Text = 250000
            TP.Text = "Pabrik"
        ElseIf x = "TOK" Then
            HRG.Text = 500
            BB.Text = 25000
            TP.Text = "Toko"
        ElseIf x = "RUM" Then
            HRG.Text = 500
            BB.Text = 10000
            TP.Text = "Rumah"
        ElseIf x = "SWA" Then
            HRG.Text = 200
            BB.Text = 15000
            TP.Text = "Swalayan"
        End If

        x = Microsoft.VisualBasic.Mid(KP.Text, 5, 3)
        If x = "MED" Then
            DAERAH.Text = "Medan"
        ElseIf x = "BEL" Then
            DAERAH.Text = "Belawan"
        End If
    End Sub

    Private Sub PA_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PA.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TT.Text = HRG.Text * PA.Text + Val(BB.Text)
            PJK.Text = 0.01 * TT.Text
            PBYRN.Text = Val(TT.Text) + Val(PJK.Text)
        End If
    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        KP.Text = ""
        NAMA.Text = ""
        TP.Text = ""
        TT.Text = ""
        HRG.Text = ""
        PJK.Text = ""
        PBYRN.Text = ""
        PA.Text = ""
        DAERAH.Text = ""
        BB.Text = ""
    End Sub

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

    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click
        ISITABEL()
        KP.Text = ""
        NAMA.Text = ""
        TP.Text = ""
        HRG.Text = ""
        PA.Text = ""
        BB.Text = ""
        TT.Text = ""
        PJK.Text = ""
        PBYRN.Text = ""
        DAERAH.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        LV.Items.Clear()
    End Sub

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