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

Selesaikanlah Kasus Berikut

                                               Latihan listview penjualan Barang

Berikut Jawaban Program :

1.desain program

 

 Public Class Form1

    Sub buattabel()
        Lv.Columns.Add("No Pembeli", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Nama Barang", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Merk", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Total Harga", 180, HorizontalAlignment.Left)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = Nopembeli.Text
        lst.SubItems.Add(KodBarang.Text)
        lst.SubItems.Add(NamaBarang.Text)
        lst.SubItems.Add(Merk.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(JumBeli.Text)
        lst.SubItems.Add(ToHar.Text)
        Lv.Items.Add(lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()

        KodBarang.Items.Add("TS001")
        KodBarang.Items.Add("TS002")
        KodBarang.Items.Add("VG001")
        KodBarang.Items.Add("VG002")
    End Sub

    Private Sub KodBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodBarang.SelectedIndexChanged
        Dim X, x2 As String
        X = Microsoft.VisualBasic.Right(KodBarang.Text, 3)
        Select Case X
            Case "001" : NamaBarang.Text = "flashdisk 4GB"
            Case "002" : NamaBarang.Text = "flashdisk 2GB"
            Case "001" : NamaBarang.Text = "flashdisk 4GB"
            Case "002" : NamaBarang.Text = "flashdisk 2GB"
        End Select
        X = Microsoft.VisualBasic.Left(KodBarang.Text, 2)
        Select Case X
            Case "TS" : Merk.Text = "THOSIBA"
            Case "VG" : Merk.Text = "V_GEN"
            Case "TS" : Merk.Text = "THOSIBA"
            Case "VG" : Merk.Text = "V_GEN"
        End Select
        x2 = Microsoft.VisualBasic.Right(KodBarang.Text, 3)
        If X = "TS" And x2 = "001" Then
            Harga.Text = 105000
        ElseIf X = "TS" And x2 = "002" Then
            Harga.Text = 75000
        ElseIf X = "VG" And x2 = "001" Then
            Harga.Text = 90000
        ElseIf X = "VG" And x2 = "002" Then
            Harga.Text = 60000
        End If
    End Sub

    Private Sub JumBeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JumBeli.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            ToHar.Text = JumBeli.Text * Harga.Text

        End If
    End Sub

    Private Sub BtnSimpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpankelistview.Click
        isitabel()
        Nopembeli.Text = ""
        KodBarang.Text = ""
        NamaBarang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        JumBeli.Text = ""
        ToHar.Text = ""

    End Sub

    Private Sub BtnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemua.Click
        Lv.Items.Clear()

    End Sub

    Private Sub BtnHapusYgDipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusYgDipilih.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
        Nopembeli.Text = ""
        KodBarang.Text = ""
        NamaBarang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        JumBeli.Text = ""
        ToHar.Text = ""

    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 : YOSA'ARO ZAI NPM :1111282

Selamat Pemrograman VB NET