Sistem Informasi Stok Barang Menggunakan Metode Holt

Sistem informasi stok barang menggunakan metode holt merupakan suatu sistem informasi yang menyajikan sistem pengelolaan barang dengan meramalkan jumlah barang yang akan dipesan pada periode pemesanan berikutnya. Metode peramalan yang digunakan yaitu metode holt yang menampilkan hasil peramalan berdasarkan transaksi yang terjadi pada suatu barang tertentu.

Sistem ini menggunakan bahasa pemrograman VB6 dengan database Ms. Access dan report
menggunakan datareport. Sistem ini masih lengkap dengan source code nya, jadi sangat
berguna bagi mahasiswa yang sedang melakukan kerja praktek ataupun tugas akhir.

Untuk pemesanan sistem ini dapat mengirimkan email ke dizz.tr@gmail.com dengan subject vb003.

Menggunakan ListBox pada VB2010

Listbox berfungsi sebagai media untuk menampilkan data-data yang kita inputkan pada beberapa control box, seperti textbox, combobox, checkbox dan lain sebagainya. Pada bagian bagian ini kita akan membuat beberapa fungsi dari listbox.

1. Menambahkan item pada listbox dari textbox.
Tambahkan 1 textbox, 1 listbox dan 1 button ke dalam form. Kemudian masukkan code berikut:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Add(TextBox1.Text)
        MsgBox("Data telah ditambahkan", MsgBoxStyle.Information, "Perhatian")
        TextBox1.Text = ""
        TextBox1.Focus()
    End Sub
End Class

Ketika user mengklik button Tambah, maka item yang ada pada textbox akan ditambahkan ke dalam listbox.

2. Menghapus item dari listbox
•    Menghapus item yang diseleksi
Tambahkan 1 button ke dalm form sebelumnya, kemudian masukkan code berikut:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Remove(ListBox1.SelectedItem)
        MsgBox("Data telah dihapus", MsgBoxStyle.Exclamation, "Perhatian")
        TextBox1.Focus()
    End Sub

Klik salah item pada listbox, kemudian klik tombol hapus.

•    Menghapus semua item
Tambahkan 1 button ke dalm form sebelumnya, kemudian masukkan code berikut:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox1.Items.Clear()
        MsgBox("Semua data telah dihapus", MsgBoxStyle.Exclamation, "Perhatian")
        TextBox1.Focus()
    End Sub

Klik salah item pada listbox, kemudian klik tombol hapus.

3. Mencari item pada listbox
Masukkan 1 textbox, 2 listbox dan 3 button ke dalam form. Kemudian masukkan code berikut:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Add(TextBox1.Text)
        TextBox1.Text = ""
        TextBox1.Focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox2.Items.Clear()
        Dim count As Integer = (ListBox1.Items.Count - 1)
        Dim words As String
        For a = 0 To count
            words = ListBox1.Items.Item(a)
            If InStr(words.ToLower, TextBox1.Text.ToLower) Then
                ListBox2.Items.Add(words)
            End If
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox2.Items.Clear()
        TextBox1.Focus()
    End Sub
End Class

Masukkan item yang akan dicari ke dalam textbox, kemudian klik tombol Cari

Untuk mendapatkan file pdf-nya, klik download

Beberapa Fungsi pada Textbox

Pada bagian ini kita akan membuat beberapa fungsi yang ada pada textbox.
1.    Regular Expressions
    Kita akan menampilkan bagaimana caranya mendapatkan sebuah kata setelah kata lainnya di dalam textbox. Sebagai contoh kita mempunyai kalimat: “I Love Programming in VB2010”. Kemudian kita akan menampilkan kata setelah kata “Programming”, dan kata yang akan muncul yaitu: “in”. Tambahkan 2 textbox dan 1 button ke dalam form, dan ketikkan code berikut:

Imports System.Text.RegularExpressions
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim text As String = TextBox1.Text

        Dim word As String = "\b" & TextBox2.Text & "\b\s+(\w+)"

        For Each a As Match In Regex.Matches(text, word, RegexOptions.IgnoreCase)

            MsgBox(a.Groups(1).Value, MsgBoxStyle.SystemModal, "Hasil")
        Next
    End Sub
End Class

User akan memasukkan kalimat ke dalam textbox yang besar, dan memasukkan kata yang di cari ke dalam textbox yang kecil kemudian klik tombol Hasil, makan hasilnya:

2.    Control
Fungsi control yang akan kita buat yaitu fungsi control untuk menghapus semua textbox yang sudah ada inputannya. Masih dalam contoh di atas,  tambahkan 1 button lagi, dan masukkan code berikut:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim a As Control
        For Each a In Me.Controls
            If TypeOf a Is TextBox Then
                a.Text = Nothing
            End If
        Next

    End Sub

Hasilnya:

Untuk mendapatkan file pdf-nya klik download