program penjuanlan visul besic bersama kak ice

Public Class Form1
    Sub buattable()
        Lv.Columns.Add("kodebrg", 60, HorizontalAlignment.Center)
        Lv.Columns.Add("namabrg", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("harga", 70, HorizontalAlignment.Center)
        Lv.Columns.Add("jumlah", 65, HorizontalAlignment.Center)
        Lv.Columns.Add("Total", 65, HorizontalAlignment.Center)

        Lv.GridLines = True
        Lv.FullRowSelect = True
        Lv.View = View.Details
    End Sub
    Sub isitable()
        Dim x As New ListViewItem

        With x
            .Text = kodebrg.Text
            .SubItems.Add(nmbrg.Text)
            .SubItems.Add(harga.Text)
            .SubItems.Add(jumlah.Text)
            .SubItems.Add(harga.Text * jumlah.Text)

            Lv.Items.Add(x)
        End With
        totalharga()


    End Sub

    Sub totalharga()
        Dim i As Long
        i = 0
        For j As Integer = 0 To Lv.Items.Count - 1
            i = i + Val(Lv.Items(j).SubItems(4).Text)

        Next
        total.Text = "Rp" & Format(i, "###.###.###,")
    End Sub


    Sub hapus()
        kodebrg.Text = ""
        nmbrg.Text = ""
        harga.Text = ""
        jumlah.Text = ""


    End Sub

    Sub aktif(ByVal a As Boolean, ByVal b As Boolean)
        kodebrg.Enabled = a
        nmbrg.Enabled = b
        harga.Enabled = b
        jumlah.Enabled = b

    End Sub





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

        kodebrg.Items.Add("001")
        kodebrg.Items.Add("002")
        kodebrg.Items.Add("003")
        kodebrg.Items.Add("004")
        buattable()

    End Sub

    Private Sub kodebrg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebrg.SelectedIndexChanged
        aktif(False, True)
        If kodebrg.Text = "001" Then
            nmbrg.Text = "LAPTOP"
            harga.Text = "5000000"
            jumlah.Text = "3"
        ElseIf kodebrg.Text = "002" Then
            nmbrg.Text = "printer"
            harga.Text = "150000"
            jumlah.Text = "2"
        ElseIf kodebrg.Text = "003" Then
            nmbrg.Text = "monitor"
            harga.Text = "2000000"
            jumlah.Text = "1"
        ElseIf kodebrg.Text = "004" Then
            nmbrg.Text = "mose"
            harga.Text = "200000"
            jumlah.Text = "4"
        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        aktif(True, False)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        isitable()
        hapus()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        hapus()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Lv.SelectedItems.Count <> 0 Then
            Lv.Items.Remove(Lv.SelectedItems(0))
        Else
            MsgBox("cuy pilih dulu yang m,au di hapus")

        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Lv.Items.Clear()

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        End
    End Sub
End Class