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

JUDUL SOAL : Latihan Listview Perhitungan Penjualan Barang

BERIKUT JAWABAN PROGRAM :

 

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        kdbarang.Items.Add("TS001")

        kdbarang.Items.Add("TS002")

        kdbarang.Items.Add("VG001")

        kdbarang.Items.Add("VG002")

        buattabel()

    End Sub

    Sub buattabel()

        lv.Columns.Add("No. Pembeian", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Merk", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Harga", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim i As New ListViewItem

        i.Text = nopembelian.Text

        i.SubItems.Add(kdbarang.Text)

        i.SubItems.Add(namabarang.Text)

        i.SubItems.Add(merk.Text)

        i.SubItems.Add(harga.Text)

        i.SubItems.Add(jumlahbeli.Text)

        i.SubItems.Add(ttlharga.Text)

        lv.Items.Add(i)

    End Sub

    Sub smpn(ByVal t As Form)

        nopembelian.Text = ""

        kdbarang.Text = ""

        namabarang.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        ttlharga.Text = ""

    End Sub

    Private Sub kdbarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbarang.SelectedIndexChanged

        Dim x As String

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

        Select Case x

            Case "TS" : merk.Text = "Toshiba"

            Case "VG" : merk.Text = "V-Gen"

        End Select

        Dim j As String

        j = Microsoft.VisualBasic.Right(kdbarang.Text, 3)

        Select Case j

            Case "001" : namabarang.Text = "Flashdisk 4GB"

            Case "002" : namabarang.Text = "Flashdisk 2GB"

        End Select

        Dim a As String

        a = Microsoft.VisualBasic.Mid(kdbarang.Text, 1)

        Select Case a

            Case "TS001" : harga.Text = "105000"

            Case "TS002" : harga.Text = "75000"

            Case "VG001" : harga.Text = "90000"

            Case "VG002" : harga.Text = "60000"

        End Select

    End Sub

    Private Sub simpankelist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpankelist.Click

        isitabel()

        smpn(Me)

    End Sub

    Private Sub hapussd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussd.Click

        lv.Items.Clear()

    End Sub

    Private Sub hapusdataydp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdataydp.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

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

        nopembelian.Text = ""

        kdbarang.Text = ""

        namabarang.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        ttlharga.Text = ""

    End Sub

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

        Me.Close()

    End Sub

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

        If Asc(e.KeyChar) = 13 Then

            ttlharga.Text = harga.Text * jumlahbeli.Text

        End If

    End Sub

End Class

GAMBAR TAMPILAN HASIL PROGRAM :