Source Code Mengisi Data Kedalam List View Vb.Net 2008

Halo teman-teman, kali ini admin akan posting tentang program sederhana untuk mengisi list View pada vb .net 2008.

Gambar disamping adalah tampilan dari program sederhana untuk menyimpan data kedalam listview. program disamping sudah memakai parent form atau form MDI yang sangat berfungsi untuk menampung form-form proses didalam sebuah program.

untuk pertama kali, silahkan pilih/seleksi combobox kode barang, kemudian secara otomatis akan mucul nama barang. tapi bukan "visualbasicmedan :D" kemudian pilih ukuran dan secara otomatis hara akan mucul didalam textbox harga. kemudian inputkan jumlah beli, untuk jumlah beli tertentu akan menghasilkan diskon dan total bayar didapat dari total harga dikurang diskon.

untuk lebih jelasnya dibawah ini penulis lampirkan source kode programnya.

Public Class Form2

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

 Kode mengisi data kedalam combo box :

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BUATTABEL()
        KODE.Items.Add("TV-TSB")
        KODE.Items.Add("TV-SMG")
        KODE.Items.Add("TV-HTC")
        UKURAN.Items.Add("14 INCHI")
        UKURAN.Items.Add("21 INCHI")
        UKURAN.Items.Add("32 INCHI")
    End Sub

Membuat sub kode untuk mengisi kolom list view :

    Sub BUATTABEL()
        LV.Columns.Add("KODE BARANG", 150, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA BARANG", 150, HorizontalAlignment.Center)
        LV.Columns.Add("UKURAN", 150, HorizontalAlignment.Center)
        LV.Columns.Add("HARGA", 150, HorizontalAlignment.Center)
        LV.Columns.Add("JUMLAH", 150, HorizontalAlignment.Center)
        LV.Columns.Add("DISKON", 150, HorizontalAlignment.Center)
        LV.Columns.Add("TOTAL HARGA", 150, HorizontalAlignment.Center)
        LV.Columns.Add("TOTAL BAYAR", 150, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

Cara menyimpan informasi ke listview :

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
        Dim STR(8) As String
        Dim ITM As ListViewItem
        STR(0) = KODE.Text
        STR(1) = NAMA.Text
        STR(2) = UKURAN.Text
        STR(3) = JUMLAH.Text
        STR(4) = HARGA.Text
        STR(5) = DISKON.Text
        STR(6) = TOTAL.Text
        STR(7) = BAYAR.Text
        ITM = New ListViewItem(STR)
        LV.Items.Add(ITM)
    End Sub

Mengisi total harga :

    Private Sub JUMLAH_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JUMLAH.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            TOTAL.Text = Val(JUMLAH.Text) * Val(HARGA.Text)
            If JUMLAH.Text > 10 Then
                DISKON.Text = Val(10 / 100) * Val(HARGA.Text)
                BAYAR.Text = Val(TOTAL.Text) - Val(DISKON.Text)
            End If
        End If
    End Sub

 Kode menghapus data dari kontrol input:

    Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click
        KODE.Text = ""
        NAMA.Text = ""
        UKURAN.Text = ""
        JUMLAH.Text = ""
        DISKON.Text = ""
        HARGA.Text = ""
        TOTAL.Text = ""
        BAYAR.Text = ""
    End Sub

Kode untuk menampilkan pilihan kode ke nama barang :

    Private Sub KODE_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODE.SelectedIndexChanged
        Select Case KODE.Text
            Case "TV-TSB"
                NAMA.Text = "TV TOSHIBA"
            Case "TV-SMG"
                NAMA.Text = "TV SAMSUNG"
            Case "TV-HTC"
                NAMA.Text = "TV HITACHI"
        End Select
    End Sub

 Mengisi informasi harga :

    Private Sub UKURAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UKURAN.SelectedIndexChanged
        If KODE.Text = "TV-TSB" Then
            If UKURAN.Text = "14 INCHI" Then
                HARGA.Text = 900000
            ElseIf UKURAN.Text = "21 INCHI" Then
                HARGA.Text = 1700000
            ElseIf UKURAN.Text = "32 INCHI" Then
                HARGA.Text = 3200000
            End If
        ElseIf KODE.Text = "TV-SMG" Then
            If UKURAN.Text = "14 INCHI" Then
                HARGA.Text = 8500000
            ElseIf UKURAN.Text = "21 INCHI" Then
                HARGA.Text = 1600000
            ElseIf UKURAN.Text = "32 INCHI" Then
                HARGA.Text = 3150000
            End If
        ElseIf KODE.Text = "TV-HTC" Then
            If UKURAN.Text = "14 INCHI" Then
                HARGA.Text = 7000000
            ElseIf UKURAN.Text = "21 INCHI" Then
                HARGA.Text = 1550000
            ElseIf UKURAN.Text = "32 INCHI" Then
                HARGA.Text = 31000000
            End If
        End If
    End Sub

End Class

dan apabila teman-teman bosen untuk mengetik program diatas, dibawah ini penulis juga melampirkan link untuk mendownload programnya. :D.....

Source Code Mengisi Data Kedalam List View Vb.Net 2008

(* Artikel dan source code oleh visualbasicmedan