QUIS ONLINE

Inilah Desainnya

 Listing Programnya:

Public Class Form1

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

        buattabel()
    End Sub
    Sub buattabel()
        LV.Columns.Add("No.pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("kode barang", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Nama Barang", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Merk", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Jumlah beli", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Total harga", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = No_pem.Text
        lst.SubItems.Add(kode_brg.Text)
        lst.SubItems.Add(Nama_brg.Text)
        lst.SubItems.Add(Merk.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(Jum_beli.Text)
        lst.SubItems.Add(Total_harga.Text)

        LV.Items.Add(lst)
    End Sub

    Private Sub kode_brg_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode_brg.KeyPress
      
    End Sub

    Private Sub kode_brg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_brg.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kode_brg.Text, 2)

        If x = "TS" Then
            Merk.Text = "TOSHIBA"
        ElseIf x = "VG" Then
            Merk.Text = "V-GEN"
        End If

        x = Microsoft.VisualBasic.Right(kode_brg.Text, 3)

        If x = "001" Then
            Nama_brg.Text = "FLASDISK 4GB"
        ElseIf x = "002" Then
            Nama_brg.Text = "FLASDISK 2GB"
        End If
        Select Case kode_brg.Text
            Case "TS0001" : Harga.Text = "10500"
            Case "TS002" : Harga.Text = "75000"
            Case "VG001" : Harga.Text = "90000"
            Case "VG002" : Harga.Text = "60000"

        End Select
    End Sub

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

    Private Sub btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bersih.Click
        No_Pem.Text = ""
        kode_brg.Text = ""
        Nama_brg.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jum_beli.Text = ""
        Total_harga.Text = ""
    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 btn_hapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapusdata.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

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

    End Sub

    Private Sub Jum_beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jum_beli.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Total_harga.Text = Val(Harga.Text) * Val(Jum_beli.Text)
        End If
    End Sub

    Private Sub Jum_beli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jum_beli.TextChanged

    End Sub
End Class

Isi Akhir Setelah Dijalankan