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

Selesaikanlah Kasus Berikut :

Kasus Pemrograman : 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("NO", 80, HorizontalAlignment.Center)

        lv.Columns.Add("KODE", 150, HorizontalAlignment.Left)

        lv.Columns.Add("PRODUK", 100, HorizontalAlignment.Left)

        lv.Columns.Add("HARGA", 120, HorizontalAlignment.Left)

        lv.Columns.Add("JUMLAH", 80, HorizontalAlignment.Left)

        lv.Columns.Add("TOTAL", 120, HorizontalAlignment.Left)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

        kode.Items.Add("1")

        kode.Items.Add("2")

        kode.Items.Add("3")

        no.Text = 0

    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"

                pro.Text = "TV"

                harga.Text = 2000000

            Case "2"

                pro.Text = "DVD"

                harga.Text = 650000

            Case "3"

                pro.Text = "CD ROOM"

                harga.Text = 450000

        End Select

    End Sub

    Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click

        total.Text = Val(jumlah.Text) * Val(harga.Text)

        no.Text = no.Text + 1

        Dim LST As New ListViewItem

        LST.Text = no.Text

        LST.SubItems.Add(kode.Text)

        LST.SubItems.Add(pro.Text)

        LST.SubItems.Add(harga.Text)

        LST.SubItems.Add(jumlah.Text)

        LST.SubItems.Add(total.Text)

        lv.Items.Add(LST)

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click

        lv.Items.Clear()

        no.Text = ""

        kode.Text = ""

        pro.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        total.Text = ""

    End Sub

    Private Sub KELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUAR.Click

        End

    End Sub

End Class

Demikilahlah postingan saya Nama : DIAN ZIKRY  NPM : 14110524

Selamat Belajar Pemrograman VB NET