Tutorial Vb.Net : Nomor Faktur Otomatis Aplikasi Inventory

Cara membuat nomor faktur otomatis aplikasi inventory barang, stok banrang, penjualan barang di Visual basic Net 2010 atau vb.net 2010

Aplikasi Inventory / Persediaan Barang / Penjualan Barang Vb.Net 2010

Cara membuat nomor faktur pada aplikasi penjualan barang atau aplikasi inventory dengan vb.net berdasarkan Value Random A-Z, Value angka 0-9 serta tanggal dan waktu mempermudah untuk membuat otomatis nomor faktur penjualan,

Bagaimana cara membuat no Faktur Otomatis ?

Pada visual Basic .Net 2010 buatlah sebuah Form dengan nama FrmUtama.vb, add sebuah textbox, dan masukkan Code berikut Form Load :

    Private Sub frmTransPenjualanBaru_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RandomCharAndNum()
    End Sub
    Private Sub RandomCharAndNum()
        Dim tahun = Format(CDate(DateAndTime.Now), "yMMddhhss")
        TextBox1.Text = RandomString(4, _chars) & tahun & RandomString(2, _nums)
    End Sub
    Private Const _chars As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Private Const _nums As String = "0123456789"
    Private Shared ReadOnly _randLock = New Object()
    Private Shared ReadOnly _rnd = New Random()
    Private Shared Function RandomString(ByVal size As Integer, ByVal chars As String) As String
        Dim arr = New Char(size - 1) {}
        For i As Integer = 0 To size - 1
            SyncLock _randLock
                arr(i) = chars(_rnd.Next(chars.Length))
            End SyncLock
        Next
        Return New String(arr)
    End Function

Jangan lupa simpan dan jalankan aplikasinya,

Membuat Nomor Faktur Otomatis Aplikasi Inventory

Jika ada pertanyaan, silahkan komentar pada kolom komentar, dan jangan lupa bergabung bersama kami di facebook, untuk Tutorial berikutnya akan membahas Cara membuat Aplikasi Penjualan Barang di Vb.Net, update terus ya ! terima kasih.