Program Penjualan Barang

1.     

Ø  Menggunakan 7 Buah Label è Ganti propertis text seperti gambar diatas

Ø   6 Buah TextBox èganti propertis Name sesuai text pada label

Ø  1 Buah ComboBox è ganti propertis Name sesuai text pada label

Ø  1 Buah GroupBox è Ganti propertis text seperti gambar diatas (Tombol)

Ø  5 Buah Button è ganti propertis Name & text seperti gambar diatas

Ø  Dan 1 Buah ListView è ganti propertis Name menjadi “lv”

Langkah selanjutnya adalah:

Masukkan Kodding Berikut :

Ket: “Doble clik pada Form1”masukkan kodding sehingga jadi seperti di bawah

Public Class Form1

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

        Call BuatTabel()

        kode_barang.Items.Add("TS-001")

        kode_barang.Items.Add("TS-002")

        kode_barang.Items.Add("VG-001")

        kode_barang.Items.Add("VG-002")

    End Sub

Ket: “Sub BuatTabel ()” seperti di bawah berfungsi membuat tabel pada ListView

    Sub BuatTabel()

        lv.Columns.Add("No.pelanggan", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Merek Barang", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Harga", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Total", 80, HorizontalAlignment.Left)

        lv.GridLines = True

        lv.FullRowSelect = True

        lv.View = View.Details

    End Sub

Ket: “Sub IsiTabel ()” seperti di bawah berfungsi memasukkan isi ke dalam tabel ListView

    Sub IsiTabel()

        Dim lst As New ListViewItem

        lst.Text = no_pembelian.Text

        lst.SubItems.Add(kode_barang.Text)

        lst.SubItems.Add(nama_barang.Text)

        lst.SubItems.Add(merek.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jumlah_beli.Text)

        lst.SubItems.Add(total_harga.Text)

        lv.Items.Add(lst)

    End Sub

Ket: “Doble clik pada ComboBox” lalu masukkan kodding sehingga jadi seperti di bawah

    Private Sub kode_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_barang.SelectedIndexChanged

        Dim x As String

        x = Mid(kode_barang.Text, 1, 2)

        Select Case x

            Case "TS"

                merek.Text = "Toshiba"

            Case "VG"

                merek.Text = "V-Gen"

        End Select

        x = Mid(kode_barang.Text, 4, 6)

        Select Case x

            Case "001"

                nama_barang.Text = "Flashdisk 4GB"

                harga.Text = 105000

            Case "002"

                nama_barang.Text = "Flashdisk 2GB"

                harga.Text = 75000

            Case "001"

                nama_barang.Text = "Flashdisk 4GB"

                harga.Text = 90000

            Case "001"

                nama_barang.Text = "Flashdisk 2GB"

                harga.Text = 60000

        End Select

        jumlah_beli.Focus()

    End Sub

Ket: “Doble clik pada TextBox & Rubah Menjadi KeyPress” Lalu masukkan kodding sehingga jadi seperti di bawah

    Private Sub jumlah_beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_beli.KeyPress

        If Asc(e.KeyChar) = 13 Then

            total_harga.Text = harga.Text * jumlah_beli.Text

        End If

        btnsimpan.Focus()

    End Sub

    Private Sub jumlah_beli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah_beli.TextChanged

    End Sub

Ket: “Doble clik pada Button Simpan” Lalu masukkan kodding sehingga jadi seperti di bawah

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        Call IsiTabel()

        MsgBox("Data Telah Tersimpan")

        Call Bersih()

        no_pembelian.Focus()

    End Sub

    Sub Bersih()

        no_pembelian.Text = ""

        kode_barang.Text = ""

        nama_barang.Text = ""

        merek.Text = ""

        harga.Text = ""

        jumlah_beli.Text = ""

        total_harga.Text = ""

    End Sub

Ket: “Doble clik pada Button Bersih” Lalu masukkan kodding sehingga jadi seperti di bawah

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

        Call Bersih()

    End Sub

    Private Sub no_pembelian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles no_pembelian.KeyPress

    End Sub

    Private Sub no_pembelian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles no_pembelian.TextChanged

    End Sub

Ket: “Doble clik pada Button Keluar” Lalu masukkan kodding sehingga jadi seperti di bawah

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        If MsgBox("Yakin Mau Keluar?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then Me.Close()

    End Sub

Ket: “Doble clik pada Button Hapus” Lalu masukkan kodding sehingga jadi seperti di bawah

    Private Sub btnhapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus_semua.Click

        lv.Items.Clear()

    End Sub

Ket: “Doble clik pada Button Hapus_Pilih” Lalu masukkan kodding sehingga jadi seperti di bawah

    Private Sub btnhapus_pilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus_pilih.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

End Class

Maka Hasil Program Akan Menjadi Seperti :

Kurang Lebih Program yang akan jalan seperti di atas’,,,,,,,

Sekian Tugas Online yang saya Buat’,,,,,

WasalamMualaikum Wr.Wb.