Yuk! Belajar Pemrograman Visual Basic dot Net

Selesaikan soal berikut ini (memakai Listview) : Informasi Penjualan Produk.

                         Berikut Jawaban Program :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LV.Columns.Add("kode", 40, HorizontalAlignment.Center)
        LV.Columns.Add("produk", 70, HorizontalAlignment.Left)
        LV.Columns.Add("harga", 80, HorizontalAlignment.Right)
        LV.Columns.Add("jumlah", 80, HorizontalAlignment.Right)
        LV.Columns.Add("total", 80, HorizontalAlignment.Right)

        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

        kode.Items.Add("1")
        kode.Items.Add("2")
        kode.Items.Add("3")

        For I = 1 To 1000
            jumlah.Items.Add(I)
        Next
    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Select Case kode.Text
            Case "1" : produk.Text = "TV"
            Case "2" : produk.Text = "DVD"
            Case "3" : produk.Text = "CD ROOM"
        End Select

        If kode.Text = "1" Then
            produk.Text = "TV"
            harga.Text = 2000000
        ElseIf kode.Text = "2" Then
            produk.Text = "DVD"
            harga.Text = 650000
        ElseIf kode.Text = "3" Then
            produk.Text = "CD ROOM"
            harga.Text = 450000
        End If
    End Sub

    Private Sub harga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles harga.TextChanged

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        total.Text = Val(harga.Text) * Val(jumlah.Text)
    End Sub

    Private Sub btninputlist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninputlist.Click
        Dim lst As New ListViewItem
        lst.Text = kode.Text
        lst.SubItems.Add(produk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlah.Text)
        lst.SubItems.Add(total.Text)

        LV.Items.Add(lst)
    End Sub

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

    Private Sub btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslist.Click
        LV.Items.Clear()
    End Sub
End Class

Demikianlah Postingan saya Nama : (Nusra Anwar) NPM : (14110165) Selamat Belajar Pemograman VB NET DI MESRAN.NET