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)
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
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
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
"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.