hal 33

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

        Call buattabel()

        no.Focus()

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        Dim x As String

        Microsoft.VisualBasic.Left(kode.Text, 2)

        x = Microsoft.VisualBasic.Left(kode.Text, 2)

        Select Case x

            Case "TS"

                merk.Text = "Toshiba"

            Case "VG"

                merk.Text = "V-Gen"

        End Select

        x = Microsoft.VisualBasic.Mid(kode.Text, 3, 3)

        Select Case x

            Case "001"

                nama.Text = "Flasdisk 4GB"

            Case "002"

                nama.Text = "Flasdisk 2GB"

        End Select

        x = Microsoft.VisualBasic.Left(kode.Text, 5)

        Select Case x

            Case "TS001"

                harga.Text = 105000

            Case "TS002"

                harga.Text = 70000

            Case "VG001"

                harga.Text = 90000

            Case "VG002"

                harga.Text = 60000

        End Select

        jumlah.Focus()

    End Sub

    Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click

        Call isitabel()

        no.Text = ""

        kode.Text = ""

        nama.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        total.Text = ""

        no.Focus()

    End Sub

    Sub buattabel()

        LV.Columns.Add("NO Pembelian", 80, HorizontalAlignment.Center)

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

        LV.Columns.Add("Nama Barang", 120, HorizontalAlignment.Left)

        LV.Columns.Add("Merk", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Harga", 100, HorizontalAlignment.Right)

        LV.Columns.Add("Jumlah Beli", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Right)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

        total.Text = Val(harga.Text) * Val(jumlah.Text)

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = no.Text

        lst.SubItems.Add(kode.Text)

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jumlah.Text)

        lst.SubItems.Add(total.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub btn_hapusmua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapusmua.Click

        LV.Items.Clear()

    End Sub

    Private Sub btn_hapuslih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapuslih.Click

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

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        Dim t As String

        t = MsgBox("Anda yakin ingin keluar???", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")

        If t = vbYes Then

            Close()

        End If

    End Sub

    Private Sub btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bersih.Click

        no.Text = ""

        kode.Text = ""

        nama.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        total.Text = ""

        no.Focus()

    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress

        total.Text = Val(harga.Text) * Val(jumlah.Text)

    End Sub

End Class

Bentuk Form