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

SOAL 1 :  Buatlah program untuk menampilkan hasil ke listview untuk kasus Latihan Listview Perhitungan Penjualan Barang

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "waspiannur"
        KD.Items.Add("LG001")
        KD.Items.Add("LG002")
        KD.Items.Add("PS001")
        KD.Items.Add("PS002")
        buattabel()
    End Sub
    Sub buattabel()
        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Discount", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Pembayaran", 100, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim LST As New ListViewItem
        LST.Text = KD.Text
        LST.SubItems.Add(NB.Text)
        LST.SubItems.Add(merk.Text)
        LST.SubItems.Add(harga.Text)
        LST.SubItems.Add(JB.Text)
        LST.SubItems.Add(TH.Text)
        LST.SubItems.Add(DS.Text)
        LST.SubItems.Add(TP.Text)
        LV.Items.Add(LST)
    End Sub
    Sub smpn(ByVal t As Form)
        KD.Text = ""
        NB.Text = ""
        merk.Text = ""
        harga.Text = ""
        JB.Text = ""
        TH.Text = ""
        DS.Text = ""
        TP.Text = ""
    End Sub

    Private Sub KD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(KD.Text, 1)
        Select Case x
            Case "L" : merk.Text = "LG"
            Case "P" : merk.Text = "Panasonic"
        End Select
        Dim y As String
        y = Microsoft.VisualBasic.Mid(KD.Text, 1)
        Select Case y
            Case "LG001" : NB.Text = "LG 21 inchi"
            Case "LG002" : NB.Text = "LG 11 inchi"
            Case "PS001" : NB.Text = "Panasonic 21 inchi"
            Case "PS002" : NB.Text = "Panasonic 11 inchi"
        End Select
        Dim z As String
        z = Microsoft.VisualBasic.Mid(KD.Text, 1)
        Select Case z
            Case "LG001" : harga.Text = "2500000"
            Case "LG002" : harga.Text = "2200000"
            Case "PS001" : harga.Text = "2400000"
            Case "PS002" : harga.Text = "2200000"
        End Select
    End Sub
    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        TH.Text = Val(harga.Text) * Val(JB.Text)

        If TH.Text >= 2500000 Then
            DS.Text = 0.1 * TH.Text
        ElseIf TH.Text <= 2500000 Then
            DS.Text = 0
        End If
        TP.Text = Val(TH.Text) - Val(DS.Text)
    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        isitabel()
        smpn(Me)
    End Sub

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

    Private Sub BtnHpsData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHpsData.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        KD.Text = ""
        NB.Text = ""
        merk.Text = ""
        harga.Text = ""
        JB.Text = ""
        TH.Text = ""
        DS.Text = ""
        TP.Text = ""
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        Me.Close()
    End Sub
End Class

Demikilahlah postingan saya  Nama : (WASPIANNUR)  NPM : (1111145)