variable Order

[metis]

;start
Msgbox(0,"","1") ;1
 Msgbox(0,"","2") ;2 
Msgbox(0,"","3") ;3 
;End

I need variable(los order) Msgbox.( Results 2,1,3 ; 3,2,1 ; 1,3,2 etc..... )

[UEZ]

Hmmm, same question but new thread ->

What are you expecting now?

Br,

UEZ

[wakillon]

Hmmm, same question but new thread ->

What are you expecting now?

Br,

UEZ

I knew I'd already seen this question !

[Melba23]

metis,

#include <Array.au3>

HotKeySet("{ESC}", "On_Exit")

Global $aBase[3] = [1, 2, 3]
$aPermute = _ArrayPermute($aBase)

_ArrayDisplay($aPermute)

While 1

    $iIndex = Random(1, $aPermute[0], 1)
    MsgBox(0, "Info", "Starting a new random set")

    $aDisplay = StringSplit($aPermute[$iIndex], "")

    For $i = 1 To $aDisplay[0]
        MsgBox(0, "", $aDisplay[$i])
    Next

WEnd

Func On_Exit()
    Exit
EndFunc

M23

[metis]

Code not work ;/

#include <Array.au3>

HotKeySet("{ESC}", "On_Exit")

Global $aBase[50] = ["1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31","32","33","34","35","36","37","38","39","40","41","42","43","44","45","46","47","48","49","50"]
$aPermute = _ArrayPermute($aBase)

;~ _ArrayDisplay($aPermute)

While 1

    $iIndex = Random(1, $aPermute[0], 1)
    MsgBox(0, "Info", "Starting a new random set")

    $aDisplay = StringSplit($aPermute[$iIndex], "")
_ArrayDisplay($aDisplay)
_ArrayDisplay($iIndex)
    For $i = 1 To $aDisplay[0]
        MsgBox(0, "", $aDisplay[$i])
    Next

WEnd

Func On_Exit()
    Exit
EndFunc

[Melba23]

metis,

Please try and be a little more sociable rather than communicating in staccato phrases - it makes everyone more willing to help.

Now "Code not work" is not very informative. Next time please give some indication of what error messages you got - it is very helpful when you start debugging.

The reason the code does not work is because the number of permutations of the 50-element array that _ArrayPermute produces results in an array too large for AutoIt to handle. Your initial request only dealt with a 3-element array so the number of permutations was much smaller - of interest it is based on a factorial and there is a big difference between 3! and 50!, as I am sure you know.

So we need to go another route - this code redeclares the array on each pass and then (using a pretty standard algorithm) randomly rearranges the elements:

#include <Array.au3>

HotKeySet("{ESC}", "On_Exit")

While 1

    Global $aArray[50] = ["1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25", _
                        "26","27","28","29","30","31","32","33","34","35","36","37","38","39","40","41","42","43","44","45","46","47","48","49","50"]

    _ArrayDisplay($aArray)

    For $i = UBound($aArray) - 1 To 1 Step -1
        $j = Random(0, $i, 1)
        $Temp = $aArray[$j]
        $aArray[$j] = $aArray[$i]
        $aArray[$i] = $Temp
    Next

    _ArrayDisplay($aArray)

    MsgBox(0, "Info", "Starting a new random set")

    For $i = 1 To UBound($aArray) - 1
        MsgBox(0, "", $aArray[$i])
    Next

WEnd

Func On_Exit()
    Exit
EndFunc

Is that what you wanted?

M23