Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Lists view penjualan Barang

 

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

       End Sub
    Sub buattabel()
        LV.Columns.Add("No Pembelian", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 70, HorizontalAlignment.Center)
        LV.GridLines = True
        LV.View = View.Details
        LV.FullRowSelect = True
    End Sub

   Sub isitabel()
        Dim isi As New ListViewItem
        isi.Text = NoPem.Text
        isi.SubItems.Add(KoBar.Text)
        isi.SubItems.Add(NaBar.Text)
        isi.SubItems.Add(Merk.Text)
        isi.SubItems.Add(Hrg.Text)
        isi.SubItems.Add(JumBel.Text)
        isi.SubItems.Add(ToHar.Text)
        LV.Items.Add(isi)
    End Sub

 Private Sub KoBar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KoBar.SelectedIndexChanged
    Dim x As String
    x = Microsoft.VisualBasic.Left(KoBar.Text, 2)
    Select Case x
        Case "TS" : Merk.Text = "Toshiba"
        Case "VG" : Merk.Text = "V-Gen"
    End Select

  Dim y As String
    y = Microsoft.VisualBasic.Right(KoBar.Text, 3)
    Select Case y
        Case "001" : NaBar.Text = "FlashDisk 4 Gb"
        Case "002" : NaBar.Text = "FlashDisk 2 Gb"
    End Select
    If x = "TS" And y = "001" Then
        Hrg.Text = 105000
    ElseIf x = "TS" And y = "002" Then
        Hrg.Text = 75000
    ElseIf x = "VG" And y = "001" Then
        Hrg.Text = 90000
    ElseIf x = "VG" And y = "002" Then
        Hrg.Text = 60000
    Else
        Hrg.Text = 0
    End If
End Sub
    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        End
    End Sub

  Private Sub JumBel_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JumBel.KeyPress
        Dim Tombol As Integer = Asc(e.KeyChar)
        If Tombol = 13 Then JumBel.Focus()
        If Tombol = 13 Then
            If JumBel.Text = "" Then
                MsgBox("Harap Diisi Cuy !!")
                JumBel.Focus()
            Else
                ToHar.Focus()
                ToHar.Text = Hrg.Text * JumBel.Text
            End If
        End If
    End Sub

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

    Private Sub HpsMuaDta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HpsMuaDta.Click
         lv.Items.Clear()
    End Sub

    Private Sub HpsDtaYgDplih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HpsDtaYgDplih.Click
        If LV.Items.Count <> 0 Then
            LV.Items.Remove(LV.SelectedItems(0))
        Else
            MsgBox("Data sudah kosong")
        End If
    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        NoPem.Text = ""
        KoBar.Text = ""
        NaBar.Text = ""
        Merk.Text = ""
        Hrg.Text = ""
        JumBel.Text = ""
        ToHar.Text = ""
    End Sub
End Class