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

Selesaikanlah Kasus Berikut : Kasus Penjualan Produk

Brikut Jawaban Program :

Coding nya

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lv.Columns.Add("kode", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Produk", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Total", 100, HorizontalAlignment.Left)
        lv.GridLines = True
        lv.View = View.Details
        lv.FullRowSelect = True

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

    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"
                harga.Text = 2000000
            Case "2"
                produk.Text = "DVD"
                harga.Text = 650000
            Case "3"
                produk.Text = "CD-ROM"
                harga.Text = 450000

        End Select

    End Sub

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

        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
        End

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        lv.Items.Clear()
        kode.Text = ""
        produk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
    End Sub
End Class

Demikilahlah postingan saya  Nama : (Zulhasmi Lubis)  NPM : (14110152)

Share this

Unknown