Rahmawati Siregar

Judul Postingan : Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Selesaikanlah Kasus Berikut :
latihan Listview Perhitungan Penjualan Barang http://mesran.net/quiz.html

Berikut Jawaban Program :

Public Class Form1

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        No_pembelian.Text = ""
        Kd_barang.Text = ""
        Nma_Barang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jlh.Text = ""
        T_harga.Text = ""
    End Sub

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

        rancang_table()
        isi_table()
    End Sub

    Sub rancang_table()
        L_View.Columns.Add("NO.PEMBELIAN", 105, HorizontalAlignment.Center)
        L_View.Columns.Add("KODE BARANG", 105, HorizontalAlignment.Center)
        L_View.Columns.Add("NAMA BARANG", 105, HorizontalAlignment.Center)
        L_View.Columns.Add("MEREK", 100, HorizontalAlignment.Center)
        L_View.Columns.Add("HARGA", 60, HorizontalAlignment.Center)
        L_View.Columns.Add("JUMLAH", 90, HorizontalAlignment.Center)
        L_View.Columns.Add("TOTAL HARGA", 100, HorizontalAlignment.Center)

        L_View.GridLines = True
        L_View.FullRowSelect = True
        L_View.View = View.Details
    End Sub

    Sub isi_table()
        Dim x As New ListViewItem
        x.Text = No_pembelian.Text
        x.SubItems.Add(Kd_barang.Text)
        x.SubItems.Add(Nma_Barang.Text)
        x.SubItems.Add(Merk.Text)
        x.SubItems.Add(Harga.Text)
        x.SubItems.Add(Jlh.Text)
        x.SubItems.Add(T_harga.Text)

        L_View.Items.Add(x)
    End Sub

    Private Sub Jlh_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jlh.KeyPress
        Dim x As Integer = Asc(e.KeyChar)
        If x = 13 Then
            Jlh_TextChanged(sender, e)
            T_harga.Text = Harga.Text * Jlh.Text
        End If
    End Sub

    Private Sub Jlh_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jlh.TextChanged

    End Sub

    Private Sub Kd_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_barang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(Kd_barang.Text, 2)
        If x = "TS" Then
            Merk.Text = "Toshiba"
        ElseIf x = "VG" Then
            Merk.Text = "V-Gen"
        End If

        x = Microsoft.VisualBasic.Right(Kd_barang.Text, 3)
        If x = "002" Then
            Nma_Barang.Text = "Flashdisk 2GB"
        ElseIf x = "001" Then
            Nma_Barang.Text = "Flashdisk 4GB"
        ElseIf x = "002" Then
            Nma_Barang.Text = "Flashdisk 2GB"
        End If

        If Kd_barang.Text = "TS001" Then
            Harga.Text = "105000"
        ElseIf Kd_barang.Text = "TS002" Then
            Harga.Text = "75000"
        ElseIf Kd_barang.Text = "VG001" Then
            Harga.Text = "90000"
        ElseIf Kd_barang.Text = "VG002" Then
            Harga.Text = "60000"
        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 hapus_semua_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_semua_data.Click
        L_View.Items.Clear()
    End Sub

    Private Sub hapus_yg_dipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_yg_dipilih.Click
        L_View.Items.Remove(L_View.SelectedItems(0))
    End Sub

    Private Sub Smpn_ke_lisbox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Smpn_ke_lisbox.Click
        isi_table()
    End Sub
End Class

Inilah hasil quis online saya.