Membuat Fungsi Fleksible AutoNumber di VB.NET
Flexible Autonumber
Dengan fungsi yang saya buat ini anda
bisa membuat autonumber yang fleksibel, kenapa fleksibel karena fungsi ini
tidak sebatas hanya pada jenis numbering yang berisikan digit angka saja
melainkan gabungan dari Huruf dan angka juga bisa dilakukan secara otomatis
oleh fungsi ini.
Contoh untuk membuat penomoran otomatis pada Nota Penjualan,
Nota Pembelian, dll.
Perhatikan ilustrasi pada table berikut :
No. Saat ini
|
No.
Berikutnya
|
||
1
|
2
|
3
|
dst
|
00001
|
00002
|
00003
|
dst
|
PO-0001
|
PO-0002
|
PO-0004
|
dst
|
INV-20.09.2012-00001
|
INV-20.09.12-00002
|
INV-20.09.2012-00003
|
dst
|
Mari kita lihat contoh penggunaan fungsi ini secara
sederhana agar mudah dipahami.
1.
|
Langkah awal buatlah sebuah project baru di VB Express / VB.net Anda.
|
2.
|
Letakan 2 buah label, 2 buah textbox dan 1 buah button (boleh diatur
sesuai gambar di bawah ini).
|
3.
|
Tambahkan 1 buah class di project Anda dan beri nama class tersebut
dengan nama clsFunction.vb, lihat gambar di bawah ini
 |
4.
|
Silahkan buka clsFunction.vb dengan cara double click, lalu hapus dua
baris code di sana, dan pastekan coding berikut ini:
|
Public Class
clsFunction
Function GetNextNumber(ByVal
strBefore As String)
As String
Dim temp1 As String = vbNullString
Dim lnStrBefore, lnTemp1 As
Integer
temp1 =
Val(strBefore) + 1
lnStrBefore = Len(strBefore)
lnTemp1 =
Len(temp1)
If lnStrBefore > lnTemp1 Then
Dim a As Integer
For a = lnTemp1 To
(lnStrBefore - 1)
temp1 = "0" & temp1
Next
End If
Return temp1
End Function
Function GetNextString(ByVal
strBefore As String)
As String
Dim strAwal As String = vbNullString
Dim temp1 As String = vbNullString
Dim lnStrBefore As Integer
lnStrBefore = Len(strBefore)
Dim a, b As Integer
Dim cKarakter As String
b =
lnStrBefore + 1
For a = 1 To
lnStrBefore
b = b
- 1
cKarakter = Mid(strBefore, b, 1)
If IsNumeric(cKarakter) = False
Then
strAwal = Left(strBefore, b)
temp1 = Right(strBefore, a - 1)
temp1 = strAwal & GetNextNumber(temp1)'CALLFUNCTION
GetNextNumber
Exit For
End If
Next
Return temp1
End Function
Function FlexibleAutoNumber(ByVal strRecentNumber As String) As String
If IsNumeric(strRecentNumber) Then
Return GetNextNumber(strRecentNumber)
Else
Return GetNextString(strRecentNumber)
End If
End Function
End Class
|
|
5.
|
Penjelasan singkat 3 buah function diatas
a.
Function GetNextNumber digunakan ketika susunan nomor
terdiri dari digit angka saja
b.
Function GetNextString digunakan ketika susunan nomor
terdiri dari penggabungan huruf dan angka.
c.
Function FlexibleAutoNumber, fungsi ini yang akan
memanggil salah satu dari kedua fungsi diatas sesuai dengan jenis nomornya.
|
6.
|
Langsung saja bukalah form1 design, dan double click pada button1,
kemudian isikan coding di bawah ini:
|
Public Class
Form1
Dim c As New clsFunction
Private Sub
Button1_Click(ByVal sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Dim a As String = TextBox1.Text
TextBox1.Text = c.FlexibleAutoNumber(a)
End Sub
End Class
|
|
7.
|
Simpan project anda dan coba jalankan, silahkan masukan contoh nomor,
misal INV-0001 maka setelah tombol Save di-click maka INV-0001 akan berubah
menjadi INV-0002, dst.
 |
8.
|
Silahkan explore sendiri
untuk penggunaan fungsi ini sesuai dengan program yang anda buat. Dan Selamat
mencoba semoga bermanfaat.
|
