need help in my coding

[Killer]

Hi.

I have 1 to 20. I need to take these numbers and rearrange them in random order. How do I do the code without getting duplicates? Meaning if 5 is selected, it should skip 5. I tried create a code to do this but somehow it just got trapped in its own loop at the last few nos.

Here is my code. If anyone can do a simpler and better than mine I would appricate it. Else can someone help me untangle the loop?

My Code:

==============

AutoItSetOption ("TrayIconDebug", 1)

$cycle_no=20

$cycle=0

$numleft=$cycle_no

$file=""

$ran_num=0

while $numleft<>0

$ran_num=Random(1, $cycle_no, 1)+1

do

if StringInStr($file, $ran_num&"!")<>0 then

msgbox(0,"ran_num",$ran_num)

$ran_num=$ran_num+1

if $ran_num>20 then $ran_num=1

endif

until StringInStr($file, $ran_num&"!")=0

$file=$file&$ran_num&"!"&@CR

$numleft=$numleft-1

msgbox(0,$numleft,$file)

WEnd

[BrettF]

This worked well for me.

#include <Array.au3>
Dim $result[20]

$count = 0

While $count <> 20
    ConsoleWrite ($count & @CRLF)
    $random = Random (1, 20, 1)
    $search = _ArraySearch ($result, $random)
        If @error = 6 Then
            $result[$count] = $random
            $count +=1
        EndIf
WEnd

_ArrayDisplay ($result)
_ArraySort ($result, 1); Sorts the array so that you can see if there are duplicates
_ArrayDisplay ($result); displays the sorted array

Hope that helps

[GEOSoft]

I already answered this but I don't know what happened to the post.

I'm just winging it here so be shure to checl the help file

Dim $Array [1]
Do
$Ran_Num = Round(Random(1,20),1)
If _ArraySearch[$Array, $Ran_Num,1) = -1 Then
   _ArrayAdd($Array, $Ran_Num)
EndIf
Until Ubound($Array) -1 = 20

I may have left something out but it will give you the idea. I use something similar for a couple of Lottery games I wrote but I don't have that code available right now.

Edit:

You could remove that Dim statement and use

$Array = StringSplit("","")

Edited July 28, 2007 by GEOSoft

[Killer]

Thanks for the replies.

Bert I am using your code. Cleared all those un-neccessary codings since I don't need it to display in GUI. It work great!

[bluebearr]

This fills an array with the numbers 1 to 20. Then it steps through the list 3 times and swaps values around randomly. This ends up with a mixed up list

Global $MaxRandom = 20
Global $Randoms[$MaxRandom]
For $i = 0 to $MaxRandom - 1
    $Randoms[$i] = $i + 1     ; Define the numbers
Next
For $j = 1 to 3     ; Modify stop number to adjust "mixiness"
    For $i = 0 to $MaxRandom - 1     ; Now mix them up
        $RandomTmp1 = $Randoms[$i]
        $i2 = Random(0, $MaxRandom - 1, 1)
        $Randoms[$i] = $Randoms[$i2]
        $Randoms[$i2] = $RandomTmp1
    Next
Next
ConsoleWrite(@LF)
For $i = 0 to $MaxRandom - 1
    ConsoleWrite($Randoms[$i] & @LF)
Next
ConsoleWrite(@LF)

Edited July 28, 2007 by bluebearr