RandomRange()

[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

[c4s]

Using Macro:

Code: Select all

Macro RandomRange(Min, Max)
	((Max) - Random((Max) - (Min)))
EndMacro

[J. Baker]

Using Macro:

Code: Select all

Macro RandomRange(Min, Max)
	((Max) - Random((Max) - (Min)))
EndMacro

Nice!