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

Selesaikanlah Kasus Berikut :
JUDUL SOAL 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
        Kode.Items.Add("1")
        Kode.Items.Add("2")
        Kode.Items.Add("3")
        LV.Columns.Add("No", 40, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Produk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Total Pembayaran", 100, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub


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

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles No.TextChanged

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        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
        Jumlah.Focus()
    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 L As New ListViewItem
        L.Text = No.Text
        L.SubItems.Add(Kode.Text)
        L.SubItems.Add(Produk.Text)
        L.SubItems.Add(Harga.Text)
        L.SubItems.Add(Jumlah.Text)
        L.SubItems.Add(Total.Text)
        LV.Items.Add(L)
    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        No.Text = ""
        Kode.Text = ""
        Produk.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub

    Private Sub btnHapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapuslist.Click
        LV.Items.Clear()
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        End
    End Sub
End Class

Demikilahlah postingan saya  Nama : LAILA MUSTIKA  NPM : 14110935
Selamat Belajar Pemrograman VB NET (MESRAN.NET)