Page 1 of 1
RandomRange()
Posted: Fri Sep 09, 2011 7:44 pm
by J. Baker
Code: Select all
Procedure RandomRange(FromRange, ToRange)
Range = ToRange - FromRange
RandomRange = FromRange + Random(Range)
ProcedureReturn RandomRange
EndProcedure
Loop = 0
Repeat
Loop +1
RR = RandomRange(15, 30)
Debug RR
Until Loop = 10
Re: RandomRange()
Posted: Fri Sep 09, 2011 7:47 pm
by c4s
Using Macro:
Code: Select all
Macro RandomRange(Min, Max)
((Max) - Random((Max) - (Min)))
EndMacro
Re: RandomRange()
Posted: Fri Sep 09, 2011 7:53 pm
by J. Baker
c4s wrote:Using Macro:
Code: Select all
Macro RandomRange(Min, Max)
((Max) - Random((Max) - (Min)))
EndMacro
Nice!
