Cara membuat Random Huruf dan Angka dengan Visual Basic .NET
Fungsi Random Huruf & Random angka bisanya dibutuhkan untuk membuat nomor acak seperti digunakan untuk membuat "Nomor Faktur" pada Aplikasi Penjualan VB.NET ataupun Vb6,
kebetulan Tutorial Sampaikan Aja pada postingan pertama ini mengenai cara membuat random karakter, Angka serta datetime.
Create Random Characters & Numbers VB.NET |
Langsung saja, silahkan buka Aplikasi Visual studio anda, dalam contoh ini admin menggunakan visual studio 2010, buatlah sebuah Form Baru untuk aplikasi Random Characters & Number, sebuah TextBox dan Button, dan masukkan Source Code berikut kedalam event Click button1
Source Code Random Characters, Number dan DateTime Visual Basic .NET
Public Class testrandomvb
Private Sub RandomCharAndNum()
Dim tahun = Format(CDate(DateAndTime.Now), "yMMddhhss") 'menambahkan DateTime dengan Format jam dan detik
TextBox1.Text = RandomString(4, _chars) & tahun & RandomString(2, _nums) 'memanggil fungsi random karakter,jam dan detik,number
End Sub
Private Const _chars As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 'untuk random characters
Private Const _nums As String = "0123456789" 'untuk random number
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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RandomCharAndNum()
End Sub
End Class
penting : sesuaikan dengan nama propertis yang anda buat sebelumnya,
Jika semuanya selesai, tekan F5 dan lihat hasilnya
Download Aplikasi Random Characters & Numbers Visual Basic .NET disini atau Mirrornya disini