From a footprint perspective, I would recommend you do this in VB. However, here is the VFP Code:
Local nOldDec,nRand
nOldDec = Set("decimal")
Set Decimals To 6
nRand = 0
Do While nRand < 100000
nRand = Int(rand()*1000000)
EndDo
Set Decimal To &nOldDec
Return x
>I need to get a six (6) digit random generator?
>This needs to be a small program that runs in win95.
>Any ideas?
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement