Lidiawati Simanjuntak: Hay Gan Yuuk Belajar Visual Basic Lagi.......!! :)

Ass..
Hellow Gan............!!!
Apa kabar anda semua nya???
Nah di sini saya ingin berbagi tentang sebuah program yang membahas tentang gabungan, dimana yang menggabungkan ComboBox dengan Listview...
Pasti pada penasaran bukan dengan Listening dan bentuk programnya...??!!!
Untuk mempersingkat waktu langsung saja yaaa....

Untuk yang pertama terlebih dahulu meng-Aktifkan Vb.Net 2008 anda.

Kemudian Design lah bentuk program sesuai dibawah ini.

Kemudian Double klik di sembarang tempat (Form Load) pada program tersebut,lalu ketikkan perintah seperti dibawah ini.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kd_pembelian.Items.Add("A001")
        kd_pembelian.Items.Add("A002")
        rancang_table()
    End Sub

Kemudian Double klik pada Kode Pembelian,lalu ketikkan perintah seperti dibawah ini.

Private Sub kd_pembelian_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_pembelian.SelectedIndexChanged
        Select Case kd_pembelian.Text
            Case "A001"
                kd_barang.Items.Add("A001")
                kd_barang.Items.Add("A002")
            Case "A002"
                kd_barang.Items.Add("A003")
                kd_barang.Items.Add("A004")

        End Select
    End Sub

Kemudian Double klik pada Kode Barang,lalu ketikkan perintah seperti dibawah ini.

Private Sub kd_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_barang.SelectedIndexChanged
        Select Case kd_barang.Text
            Case "A001"
                nm_barang.Items.Add("Handphone")
                nm_barang.Items.Add("Televisi")
            Case "A002"
                nm_barang.Items.Add("DVD")
                nm_barang.Items.Add("Kulkas")

        End Select
    End Sub

Lalu Double klik pada Nama Barang,lalu ketikkan perintah seperti dibawah ini.

Private Sub nm_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nm_barang.SelectedIndexChanged
        Select Case nm_barang.Text
            Case "Handphone"
                merk_barang.Items.Add("Nokia")
                merk_barang.Items.Add("LG")
            Case "Televisi"
                merk_barang.Items.Add("Samsung")
                merk_barang.Items.Add("Puji")

        End Select
    End Sub

Lalu Double klik pada Merk Barang,lalu ketikkan perintah seperti dibawah ini.

Private Sub merk_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles merk_barang.SelectedIndexChanged
        Select Case merk_barang.Text
            Case "Nokia"
                harga.Text = "300000"
                harga.Text = "1000000"
            Case "LG"
                harga.Text = "250000"
                harga.Text = "800000"

        End Select
    End Sub

Lalu Double klik pada Btn_Proses,lalu ketikkan perintah seperti dibawah ini.

Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
        total_harga.Text = harga.Text * jumlah.Text
        diskon.Text = 10 / 100 * Val(total_harga.Text)
        total_bayar.Text = Val(total_harga.Text) - Val(diskon.Text)

    End Sub

Lalu Double klik pada Pembayaran,lalu ketikkan perintah seperti dibawah ini.

Private Sub pembayaran_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pembayaran.KeyPress
        If e.KeyChar = Chr(13) Then
            sisa_pembayaran.Text = Val(pembayaran.Text - total_bayar.Text)
        End If
    End Sub

Kemudian ketikkan Sub Rancang_Table dalam lembar kerja tersebut,lalu ketikkan perintah seperti dibawah ini.

Sub rancang_table()
        With ListView1
            .Columns.Add("kd_pembelian", 80, HorizontalAlignment.Center)
            .Columns.Add("kd_barang", 80, HorizontalAlignment.Center)
            .Columns.Add("nm_barang", 80, HorizontalAlignment.Center)
            .Columns.Add("merk_barang", 80, HorizontalAlignment.Center)
            .Columns.Add("harga", 80, HorizontalAlignment.Center)
            .Columns.Add("jumlah", 80, HorizontalAlignment.Center)
            .Columns.Add("total_harga", 80, HorizontalAlignment.Center)
            .Columns.Add("diskon", 80, HorizontalAlignment.Center)
            .Columns.Add("total_bayar", 80, HorizontalAlignment.Center)
            .Columns.Add("pembayaran", 80, HorizontalAlignment.Center)
            .Columns.Add("sisa_pembayaran", 150, HorizontalAlignment.Left)
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True

        End With
    End Sub

Lalu Double klik pada Btn_Hapus,lalu ketikkan perintah seperti dibawah ini.

   Private Sub btn_hapus_list_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus_list.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))

    End Sub

Kemudian ketikkan Sub Isi_Table dalam lembar kerja tersebut,lalu ketikkan perintah seperti dibawah ini.

    Sub isi_tabel()
        Dim lst As New ListViewItem
        With lst
            .text = kd_pembelian.text
            .subitems.add(kd_barang.text)
            .subitems.add(nm_barang.text)
            .subitems.add(merk_barang.text)
            .subitems.add(harga.text)
            .subitems.add(jumlah.text)
            .SubItems.Add(total_harga.Text)
            .subitems.add(diskon.text)
            .subitems.add(total_bayar.text)
            .subitems.add(pembayaran.text)
            .SubItems.Add(sisa_pembayaran.Text)
        End With
        ListView1.Items.Add(lst)
    End Sub
End Class

Naaaaaa setelah selesai tekan F5 untuk melihat hasil nya Gan....

Hasilnya seperti ini Gan..........!!!!

Selesai Gan..!!
cuman tuh lah yang dapat saya beri kan,bagi anda-anda yang ingin mencobanya semoga berhasil tanpa ada masalah, anda senang, saya juga senang..
Semoga bermanfaat ya Gan...!
Jangan lupa untuk mengunjungi Link saya Lidiaasyifa25.blogspot.com
Wass...