halaman 33 (SUNDARI)

Public Class Form1

    Dim LST As ListViewItem

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Select Case kode.Text
            Case "TS001"
                Microsoft.VisualBasic.Right(kode.Text, 3)
                namabrg.Text = "Flashdisk 4GB"
                Microsoft.VisualBasic.Left(kode.Text, 2)
                merk.Text = "Toshiba"
            Case "TS002"
                Microsoft.VisualBasic.Right(kode.Text, 3)
                namabrg.Text = "Flashdisk 2GB"
                Microsoft.VisualBasic.Left(kode.Text, 2)
                merk.Text = "Toshiba"
            Case "VG001"
                Microsoft.VisualBasic.Right(kode.Text, 3)
                namabrg.Text = "Flashdisk 4GB"
                Microsoft.VisualBasic.Left(kode.Text, 2)
                merk.Text = "V-Gen"
            Case "VG002"
                Microsoft.VisualBasic.Right(kode.Text, 3)
                namabrg.Text = "Flashdisk 2GB"
                Microsoft.VisualBasic.Left(kode.Text, 2)
                merk.Text = "V-gen"
        End Select

        If kode.Text = "TS001" Then
            harga.Text = "105000"
        ElseIf kode.Text = "TS002" Then
            harga.Text = "75000"
        ElseIf kode.Text = "VG001" Then
            harga.Text = "90000"
        ElseIf kode.Text = "VG002" Then
            harga.Text = "60000"
        End If
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")

        buat_table()
        kosong()

    End Sub
    Sub buat_table()
        With LV
            .Items.Clear()
            .FullRowSelect = True
            .GridLines = True
            .View = View.Details

            .Columns.Add("No Pembelian", 100)
            .Columns.Add("Kode Barang", 100)
            .Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
            .Columns.Add("Merk", 100, HorizontalAlignment.Left)
            .Columns.Add(" Harga ", 100, HorizontalAlignment.Left)
            .Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
            .Columns.Add("Total Harga", 100, HorizontalAlignment.Left)

        End With
    End Sub
    Sub simpan()
        LST = Me.LV.Items.Add(Me.nopembelian.Text)
        LST.SubItems.Add(Me.kode.Text)
        LST.SubItems.Add(Me.namabrg.Text)
        LST.SubItems.Add(Me.merk.Text)
        LST.SubItems.Add(Me.harga.Text)
        LST.SubItems.Add(Me.jumlah.Text)
        LST.SubItems.Add(Me.total.Text)

    End Sub


    Sub kosong()
        nopembelian.Text = ""
        kode.Text = ""
        namabrg.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Focus()
    End Sub

    Private Sub btnhapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdipilih.Click
        If lv.SelectedItems.Count <> 0 Then

            lv.Items.Remove(lv.SelectedItems(0))
        Else
        End If
    End Sub

    Private Sub Btnsimpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpankelistview.Click
        Call simpan()
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        kosong()
        nopembelian.Focus()
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Dim tanya As String
        tanya = MsgBox("Apakah Anda Yakin Ingin Keluar?" & vbCrLf & "Harus Yakin", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        If tanya = vbYes Then
            Me.Close()
        Else
            Exit Sub
        End If
    End Sub

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

    Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.TextChanged
        total.Text = Val(jumlah.Text) * Val(harga.Text)
    End Sub
End Class