Pembelian Barang

Klik disini untuk melihat Soal

Listing Program :

Public Class Form1
    Sub BuatTable()
        LV.Columns.Add("NO.Beli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTable()
        For i = 1 To 2
            With kode
                .Items.Add("TS" & "00" & i)
                .Items.Add("VG" & "00" & i)
            End With

        Next
    End Sub
    Sub isitable()
        Dim a As New ListViewItem
        a.Text = nopem.Text
        a.SubItems.Add(kode.Text)
        a.SubItems.Add(nama.Text)
        a.SubItems.Add(merk.Text)
        a.SubItems.Add(harga.Text)
        a.SubItems.Add(jumlah.Text)
        a.SubItems.Add(total.Text)
        LV.Items.Add(a)
    End Sub
    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim a As String
        Dim b As String
        a = Microsoft.VisualBasic.Left(kode.Text, 2)
        b = Microsoft.VisualBasic.Right(kode.Text, 3)
        If a = "TS" Then
            merk.Text = "TOSHIBA"
            If b = "001" Then
                nama.Text = "Flashdisk 4GB"
                harga.Text = "105000"
            Else
                nama.Text = "Flashdisk 2GB"
                harga.Text = "75000"
            End If
        Else
            merk.Text = "V-Gen"
            If b = "001" Then
                nama.Text = "Flashdisk 4GB"
                harga.Text = "90000"
            Else
                nama.Text = "Flashdisk 2GB"
                harga.Text = "60000"
            End If
        End If
    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
        If e.KeyChar = Chr(13) Then
            total.Text = harga.Text * jumlah.Text
        End If
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitable()
        bersih()
    End Sub
    Sub bersih()
        nopem.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
        nopem.Focus()
    End Sub

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

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

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

    Private Sub btnitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnitem.Click
        If LV.SelectedItems.Count <> 0 Then
            LV.Items.Remove(LV.SelectedItems(0))
        Else
            MsgBox("Pilih data mana yg akan dihapus!!")
        End If
    End Sub
End Class

Hasil Program :