Quisku

Public Class Form1

    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")

        Rancangtable()

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

        If Kode.Text = "TS001" Then

            Nama_brg.Text = "Flashdisk 4gb"

            Harga.Text = 105000

        ElseIf Kode.Text = "TS002" Then

            Nama_brg.Text = "Flashdisk 2gb"

            Harga.Text = 75000

        ElseIf Kode.Text = "VG001" Then

            Nama_brg.Text = "Flashdisk 4gb"

            Harga.Text = 90000

        Else

            Nama_brg.Text = "Flashdisk 2gb"

            Harga.Text = 60000

        End If

        Dim x As String

        x = Microsoft.VisualBasic.Left(Kode.Text, 1)

        Select Case x

            Case "T" : Merk.Text = "Toshiba"

            Case "V" : Merk.Text = "V-Gen"

        End Select

    End Sub

    Sub Rancangtable()

        With LV

            .Columns.Add("No.Pembelian", 100, HorizontalAlignment.Center)

            .Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)

            .Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)

            .Columns.Add("Merk", 100, HorizontalAlignment.Center)

            .Columns.Add("Harga", 100, HorizontalAlignment.Center)

            .Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)

            .Columns.Add("Total Harga", 100, HorizontalAlignment.Center)

            LV.View = View.Details

            LV.GridLines = True

            LV.FullRowSelect = True

        End With

    End Sub

    Sub hapus()

        NO.Text = ""

        Kode.Text = ""

        Nama_brg.Text = ""

        Merk.Text = ""

        Harga.Text = ""

        Jumlah.Text = ""

        Total.Text = ""

    End Sub

    Sub Isi_tabel()

        Dim lst As New ListViewItem

        With lst

            .Text = (NO.Text)

            .SubItems.Add(Kode.Text)

            .SubItems.Add(Nama_brg.Text)

            .SubItems.Add(Merk.Text)

            .SubItems.Add(Harga.Text)

            .SubItems.Add(Jumlah.Text)

            .SubItems.Add(Total.Text)

        End With

        LV.Items.Add(lst)

    End Sub

    Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        If Jumlah.Text <> "" Then

            Total.Text = Harga.Text * Jumlah.Text

        Else

            MessageBox.Show("Jumlah Tidak Boleh Kosong")

            Exit Sub

        End If 'CallByName(jumlah_KeyPress)

        Call Isi_tabel()

    End Sub

    Private Sub BtnHps_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHps.Click

        If LV.SelectedItems.Count <> 0 Then

            LV.Items.Remove(LV.SelectedItems(0))

        Else

            MsgBox("Pilih Dulu Yang Ingin di Hapus!!!")

        End If

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        Call hapus()

        LV.Items.Clear()

    End Sub

    Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click

        Call hapus()

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        Me.Close()

    End Sub

End Class