Gunakan fungsi.
Function GetRandom(ByVal IntMaxRange As Integer) As Integer
Do
Randomize
retVal = CInt(Rnd * IntMaxRange)
Loop Until retVal > 0
GetRandom = retVal
End Function
Cara pakainya, di immediate window
?GetRandom(20) --> angka 20 bisa diganti dgn angka lain.
dalam kasus sampeyan coba dengan:
?GetRandom(11)
Kalo ditaruh di module / class module
x = GetRandom(nilaiMaksimum)
nilai x nantinya adalah integer.
Penerapan nilai random ini bisa untuk bermacam-macam aplikasi
misalnya untuk:
Shift Pekerja.
Random Check
Undian
dll.
mudah-mudahan bisa membantu.
----- Original Message -----
From: dewo.cahaya
To: [email protected]
Sent: Thursday, October 25, 2007 10:37
Subject: [belajar-access] Tanya me-Random bilangan
Hi semua pakar-pakar Access.
Saya mau tanya tentang cara mengambil angka secara acak. Hasil yang
diinginkan bilangan yang berada dalam range tertentu.
Saya sudah mencoba menggunakan fungsi RND, tapi hasilnya kurang
memuaskan. misalnya :
Private Sub Form_Timer()
BanyakNama = List12.ListCount
If BanyakNama < 10 Then
DigitPeserta = 1
Else
DigitPeserta = 2
End If
Acak = Mid(Rnd(BanyakNama), 5, DigitPeserta)
Text8 = Acak
End Sub
Misalkan BanyakNama=11, hasil dari Acak bisa lebih dari 11.
Padahal yang saya inginkan hasil Acak antara 0 sampai 11
Mohon bantuan dari semua pakar-pakar Belajar-Access
Terima Kasih
Dewok - Jbr
