Wednesday, April 23, 2014

Fungsi VBA Untuk Random Number's Generator

www.AstroDigi.com 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)

Comments :

6 comments to “Fungsi VBA Untuk Random Number's Generator”

wedding dresses, soccer jerseys, nike roshe, abercrombie and fitch, iphone 6 cases, ferragamo shoes, reebok shoes, soccer shoes, ghd, asics running shoes, nike huarache, lululemon, vans shoes, instyler, nike roshe, oakley, insanity workout, p90x workout, mcm handbags, north face outlet, beats by dre, celine handbags, bottega veneta, baseball bats, north face outlet, longchamp, giuseppe zanotti, hollister, valentino shoes, new balance, nfl jerseys, hollister, jimmy choo shoes, babyliss, herve leger, mac cosmetics, birkin bag, timberland boots, chi flat iron, nike trainers, mont blanc, nike air max

Unknown said...
on 

michael kors handbags outlet
ghd hair straighteners
supra shoes sale
michael kors handbags online
skechers outlet
nike free
nike roshe run
yeezy boost 350 black
supra shoes
versace

raybanoutlet001 said...
on 

christian louboutin
uggs
cheap nike shoes
pandora bracelet
hollister clothing store
michael kors outlet clearance
louis vuitton outlet store
michael kors handbags
fake rolex watches
cheap nike sneakers
20161114yuanyuan

John said...
on 

yeezy boost 350
adidas shoes
gucci outlet
nike outlet
michael kors outlet
ralph lauren uk
christian louboutin shoes
adidas outlet
pandora jewelry
swarovski jewellery
20170324huazhen

Unknown said...
on 

louis vuitton outlet online
pandora jewellery
cheap ray ban sunglasses
coach outlet online
gucci outlet online
adidas uk store
lebron shoes
michael kors outlet
michael kors canada
ralph lauren
20170524ck

Unknown said...
on 

"The Role of VBA in Generating Random Numbers" holds significance in programming. How Network Secure VBA's random number functions add unpredictability to code, essential in simulations, games.

Ă–mer said...
on 

Post a Comment