Tutorials Home What's New Top Rated Submit myTutes Random!

Unique Random Number Generator
Author: Peter Brouwers | Website: http://www.derijen.nl/taiji |

Page 2
«prev 1 2 3 4 next»

In an attempt to generate 10 unique, non-doubling random numbers I came up with this solution:

Set Variable: "i" = 1
Loop While (i <> 11)
 Set Variable: "rnd" = Random (10)
 Set Variable: "x" = 1
 Loop While (x <> (Length(Temp)+1))
 If ((Substring (Temp, x, 1))  eq rnd)
 Set Variable: "rnd" = ""
 End If
 Set Variable: "x" = x+1
 End Loop
 If (rnd ne "")
 Set Variable: "Temp" = Temp & rnd
 Set Variable: "i" = i + 1
 End If
End Loop

Use it at random!

Let's have a closer look at this code step by step. First we set a Variable called "i" which is set to the value 1, for use in the Loop While.

Set Variable: "i" = 1

The first loop runs 10 times, because we need 10 numbers.

Loop While (i <> 11)

We use the Random function and put its outcome into Variable "rnd"

Set Variable: "rnd" = Random (10)

«prev 1 2 3 4 next»

» Level Advanced

Added: : 2000-03-07 Rating: 6.83 Votes: 286 Hits: 7924

» Author

No Information Given

» Download

Download the files used in this tutorial.

Download (11 kb)

Get conversion and unzipping tools for PC and Mac here!

» Forums
	More help? Search our boards for quick answers!

Please rate this tutorial, 10 is the top rating, you can also click the comments link to read/write a review.

10 9 8 7 6 5 4 3 2 1