Fungsi VBA Untuk Random Number's Generator

AstroDigi.com | Senin, 21 Apr 2014 | Seorang siswa pelatihan software pernah bertanya kepada saya, bagaimana cara membuat random number (nomor acak) seperti yang tertera pada voucher pulsa HP.

Bila kita beli voucher pulsa HP (yang non elektrik tentunya), untuk mengisikan pulsa kita diminta untuk mengisikan 16 digit angka yang tertera pada voucher bukan. Angka acak tersebut adalah hasil dari aplikasi penghasil nomor acak atau disebut Random Number's Generator.

Mari kita buat sendiri aplikasi penghasil angka acak tersebut.
Script dari fungsi tersebut adalah sebagai berikut:

Public Function Acak(JumlahDigit As Integer)
Dim Acak2 As String
Do
JumlahDigit = JumlahDigit - 1
Randomize   'harus dideklarasikan sebelum menjalankan Rnd
Acak2 = Acak2 & Chr(Int((57 - 48 + 1) * Rnd + 48)) 'acak dari ASCII 48 s/d 57 (=0 s/d 9)
Loop Until JumlahDigit = 0
Acak = Acak2
End Function

'------------------------------------------

Untuk menjalankannya user cukup mengetikkan Acak(jumlah digit yang diinginkan).
contoh:

Dim nilaiku As String
nilaiku = Acak(10)

hasilnya > nilaiku akan berisi angka acak 10 digit
misalnya: 5169492041

Anda bisa memanfaatkan nomor acak ini sebagai password, yang tentu lebih sulit diterka dibandingkan password yang angkanya masih berkorelasi dengan anda (tanggal lahir, no phone, plat nomor, dll). Anda juga bisa memanfaatkan nomor acak sebagai nomor undian pada suatu acara, tentu akan lebih menarik dibandingkan menggunakan nomor urut. Dan masih banyak lagi kegunaan lainnya.

Anda bebas menentukan sendiri mau berapa digit angka acaknya.
Semoga tutorial ini bermanfaat bagi anda. Selamat mencoba . . . have a nice day :-)


 www.AstroDigi.com (Nino Guevara Ruwano)

AllBlogToolsFacebook comments for blogger brought to you by AllBlogTools.com , Get Yours?