Random number generation in a interval and koda designer window style

[Kyan]

Hi

I want to generate a random number could be 0 to 99999 with random command (in this example is just 0 to 9), and if the number is already been used, the random command is called again until another number not already shown was generated

I write it in this way (the vertical bars are used to separate different numbers)

$store = ''
$ts = TimerInit()
Do
$ran = Random(0,9,1)
If StringInStr($store,$ran,0,1) = 0 Then
$store &=$ran & "|"
ConsoleWrite($store & @CRLF)
EndIf
Until StringLen($store) = 20
ConsoleWrite("Time:" & TimerDiff($ts))
Exit

I don't know if it could be done faster, or in a better way

i got this output:

5|
5|4|
5|4|0|
5|4|0|2|
5|4|0|2|1|
5|4|0|2|1|9|
5|4|0|2|1|9|7|
5|4|0|2|1|9|7|3|
5|4|0|2|1|9|7|3|6|
5|4|0|2|1|9|7|3|6|8|
Time:0.832828704999992

The other question about koda designer, is about that magnetic effect of tool's windows, when I create a styled tool windows, I won't get that effect (and yes, I set the parent window when created the tool window )

thanks in advance

EDIT: In the random loop I test it out with the interval 0->140 and it stops at this point:

12|43|33|121|134|78|68|35|129|48|114|102|92|83|59|56|38|31|18|108|54|107|36|57|128|120|44|118|97|105|41|10|139|81|15|104|80|47|16|96|88|19|111|79|65|127|110|137|45|58|74|82|136|75|109|67|117|85|130|84|53|42|122|135|113|64|126|66|91|24|112|76|100|25|94|72|87|138|115|125|106|119|71|77|61|116|50|98|40|52|99|123|95|103|133|90|101|49|86|131|70|60|132|62|51|140|69|63|89|55|93|46|124|73|

I have a big problem btw, I had to change the stringinstr parameter to StringInStr($store,$ran&"|",0,1), eg: |115| it could find a 11 or a 15, or 5 or a 1...

Edited September 17, 2012 by DiOgO

[FireFox]

Hi,

The other question about koda designer, is about that magnetic effect of tool's windows, when I create a styled tool windows, I won't get that effect (and yes, I set the parent window when created the tool window )

hm? I haven't tried the koda designer, maybe this :

#include <WindowsConstants.au3>

$GUI_Main = GUICreate("Parent")
GUISetState()

GUICreate("Child", 250, 250, -1, -1, Default, BitOR($WS_EX_TOOLWINDOW, $WS_EX_MDICHILD), $GUI_Main)
GUISetState()

While 1
    Sleep(1000)
WEnd

I had to change the stringinstr parameter to StringInStr($store,$ran&"|",0,1), eg: |115| it could find a 11 or a 15, or 5 or a 1...

That's why you need to check for every number you haved generated (I think), so here you go :

#include <Array.au3>

Dim $aGeneratedNumbers[1], $iUBound = 10

For $iGeneredNumber = 0 To $iUBound -1
    $iRdmNumber = Random(1, $iUBound, 1)

    If $iGeneredNumber > 0 Then
        While 1
            If _ArraySearch($aGeneratedNumbers, $iRdmNumber) = -1 Then ExitLoop

            $iRdmNumber = Random(1, $iUBound, 1)
        WEnd

        ReDim $aGeneratedNumbers[$iGeneredNumber +1]
        $aGeneratedNumbers[$iGeneredNumber] = $iRdmNumber
    Else
        $aGeneratedNumbers[0] = $iRdmNumber
    EndIf
Next

_ArrayDisplay($aGeneratedNumbers)

Br, Firefox.

[Kyan]

Hi,

hm? I haven't tried the koda designer, maybe this :

#include <WindowsConstants.au3>

$GUI_Main = GUICreate("Parent")
GUISetState()

GUICreate("Child", 250, 250, -1, -1, Default, BitOR($WS_EX_TOOLWINDOW, $WS_EX_MDICHILD), $GUI_Main)
GUISetState()

While 1
Sleep(1000)
WEnd

Thats what I done, it doesn't have the window parent's edge magnetic effect :s

That's why you need to check for every number you haved generated (I think), so here you go :

#include <Array.au3>

Dim $aGeneratedNumbers[1], $iUBound = 10

For $iGeneredNumber = 0 To $iUBound -1
$iRdmNumber = Random(1, $iUBound, 1)

If $iGeneredNumber > 0 Then
While 1
If _ArraySearch($aGeneratedNumbers, $iRdmNumber) = -1 Then ExitLoop

$iRdmNumber = Random(1, $iUBound, 1)
WEnd

ReDim $aGeneratedNumbers[$iGeneredNumber +1]
$aGeneratedNumbers[$iGeneredNumber] = $iRdmNumber
Else
$aGeneratedNumbers[0] = $iRdmNumber
EndIf
Next

_ArrayDisplay($aGeneratedNumbers)

Br, Firefox.

ahah works fine, thanks, why you do ReDim $aGeneratedNumbers[$iGeneredNumber +1] in stead of Dim $aGeneratedNumbers[$iUBound] ? any difference?

[James]

ahah works fine, thanks, why you do ReDim $aGeneratedNumbers[$iGeneredNumber +1] in stead of Dim $aGeneratedNumbers[$iUBound] ? any difference?

Because you're not giving the array "room to breath" you need to re-dimension the array by the current size plus one.

[Kyan]

Because you're not giving the array "room to breath" you need to re-dimension the array by the current size plus one.

? if I know the needed size, why shouldn't set it to that size? (I didn't get the expression "room to breath" lol, sorry english is not my native language as you could already notice ) Edited September 17, 2012 by DiOgO

[James]

? if I know the needed size, why shouldn't set it to that size? (I didn't get the expression "room to breath" lol, sorry english is not my native language as you could already notice )

Oh I didn't notice that the variable inside the array for ReDim was the new size.

"Room to breath" just means giving something a little bit more space, so it can change/move/whatever. I should have said "Room to grow".

[Kyan]

Oh I didn't notice that the variable inside the array for ReDim was the new size.

"Room to breath" just means giving something a little bit more space, so it can change/move/whatever. I should have said "Room to grow".

yup is the needed size if all works until the end.

I thought you said "Room to breath" in the way of doesn't have arrest or high cpu consumtion...nevermind, got it thanks

[FireFox]

? if I know the needed size, why shouldn't set it to that size?

Then the _ArraySearch won't search where there is no generated numbers, or you can do :

#include <Array.au3>

Dim $iUBound = 10, $aGeneratedNumbers[$iUBound]

For $iGeneredNumber = 0 To $iUBound - 1
    $iRdmNumber = Random(1, $iUBound, 1)

    If $iGeneredNumber > 0 Then
        While 1
            If _ArraySearch($aGeneratedNumbers, $iRdmNumber, 0, $iGeneredNumber +1) = -1 Then ExitLoop

            $iRdmNumber = Random(1, $iUBound, 1)
        WEnd

        $aGeneratedNumbers[$iGeneredNumber] = $iRdmNumber
    Else
        $aGeneratedNumbers[0] = $iRdmNumber
    EndIf
Next

_ArrayDisplay($aGeneratedNumbers)

Br, FireFox.

Edited September 17, 2012 by FireFox

[Kyan]

Then the _ArraySearch won't search where there is no generated numbers, or you can do :

#include <Array.au3>

Dim $iUBound = 10, $aGeneratedNumbers[$iUBound]

For $iGeneredNumber = 0 To $iUBound - 1
$iRdmNumber = Random(1, $iUBound, 1)

If $iGeneredNumber > 0 Then
While 1
If _ArraySearch($aGeneratedNumbers, $iRdmNumber, 0, $iGeneredNumber +1) = -1 Then ExitLoop

$iRdmNumber = Random(1, $iUBound, 1)
WEnd

$aGeneratedNumbers[$iGeneredNumber] = $iRdmNumber
Else
$aGeneratedNumbers[0] = $iRdmNumber
EndIf
Next

_ArrayDisplay($aGeneratedNumbers)

Br, FireFox.

I didn't know that, if is empty _ArraySearch should skip it...

thanks for help/explanations

[somdcomputerguy]

I thought you said "Room to breath" in the way of doesn't have arrest or high cpu consumtion...nevermind, got it thanks

Another similar meaning phrase that you may run into, is 'elbow room'. Just to help you some maybe..

[Kyan]

Another similar meaning phrase that you may run into, is 'elbow room'. Just to help you some maybe..

now I'm learning english expression at a programming site

just one las question, a variable set inside a function, will be deleted after function ends? (sparing RAM space)

[FireFox]

just one las question, a variable set inside a function, will be deleted after function ends? (sparing RAM space)

Hi,

If this variable is set as Local, then yes because it will be only declared inside this function.

Br, FireFox.

[Kyan]

Hi,

If this variable is set as Local, then yes because it will be only declared inside this function.

Br, FireFox.

Hi,

so i need to set as local, if I just define that variable, would it be local to? or its really needed to add local before setting the variable values?

sorry for asking

[BrewManNH]

As long as you don't have the option set that you must declare all variables, then you don't NEED the local before it, but you should develop the practice of declaring your variables correctly. If you ever release a UDF where the variables aren't declared as local, then it could cause issues with someone using it because they might have declared the same variable name in their script as a Global.

[Kyan]

As long as you don't have the option set that you must declare all variables, then you don't NEED the local before it, but you should develop the practice of declaring your variables correctly. If you ever release a UDF where the variables aren't declared as local, then it could cause issues with someone using it because they might have declared the same variable name in their script as a Global.

alright then, thanks for the help

[Spiff59]

You just want to scramble a sequence of numbers?

If you want to do it fast you'd avoid using any _Array() functions or calling Random() more than once per number output...

#include <Array.au3> ; test

; load test array
Dim $Array[141] = [140]
For $x = 1 to 140
    $Array[$x] = $x
Next
_ArrayDisplay($Array) ; test

; scramble it
For $i= $Array[0] to 2 Step -1
    $new = Random(1, $i, 1)
    $tmp = $Array[$i]
    $Array[$i] = $Array[$new]
    $Array[$new] = $tmp
Next
_ArrayDisplay($Array) ; test