Random function?

[kw_rock]

Ok... I have multiple different functions that do the same thing just in a different way, and I want to randomly choose them

They are Hello1, Hello2, Hello3, Hello4, etc all the way to 10

And I want to put them into a While statement to always run...

While 1

Hello(Random(1, 10, 1))

WEnd

That doesn't work, is there any other way?

I also tried to declare a variable...

$Hello = Hello(Random(1, 10))

then do While 1

(($Hello))

WEnd

But that says error parsing function.

Anyone have a way I could do this? Thanks!

[JoshDB]

While 1
     Hello(Random(1,10))
WEnd

Func Hello($Number)
     Select
          Case $Number = 1
               ;Do func #1 code here
          Case $Number = 2
               ;Do func #2 code here
          Case $Number = 3
               ;Do func #3 code here
          Case $Number = 4
               ;Do func #4 code here
          Case $Number = 5
               ;Do func #5 code here
          Case $Number = 6
               ;Do func #6 code here
          Case $Number = 7
               ;Do func #7 code here
          Case $Number = 8
               ;Do func #8 code here
          Case $Number = 9
               ;Do func #9 code here
          Case $Number = 10
               ;Do func #10 code here
     EndSelect
EndFunc

Hope that helps.

[kw_rock]

Hmmm... I did that, but it doesn't do anything.

Doesn't give error message, but it doesn't work.

I just had each send a number, but it didn't do anything.

[JoshDB]

Wow, sorry, a stupid error. The Random() gives something like 2.12331243817, but it needs to be rounded. I just changed the Random() to Random(1,10,1), and it works. Tested.

expandcollapse popup

While 1
     Hello(Random(1,10,1))
WEnd

Func Hello($Number)
     Select
          Case $Number = 1
               ;Do func #1 code here
               MsgBox(0,"","1")
          Case $Number = 2
               ;Do func #2 code here
               MsgBox(0,"","2")
          Case $Number = 3
               ;Do func #3 code here
               MsgBox(0,"","3")
          Case $Number = 4
               ;Do func #4 code here
               MsgBox(0,"","4")
          Case $Number = 5
               ;Do func #5 code here
               MsgBox(0,"","5")
          Case $Number = 6
               ;Do func #6 code here
               MsgBox(0,"","6")
          Case $Number = 7
               ;Do func #7 code here
               MsgBox(0,"","7")
          Case $Number = 8
               ;Do func #8 code here
               MsgBox(0,"","8")
          Case $Number = 9
               ;Do func #9 code here
               MsgBox(0,"","9")
          Case $Number = 10
               ;Do func #10 code here
               MsgBox(0,"","10")
     EndSelect
EndFunc

[kw_rock]

Awesome! Works like a charm NOW... lol

Thanks alot

[JoshDB]

No prob

[neogia]

Not to detract from JoshDB's code, it works like a charm, but... you could do the same thing with alot less typing.

While 1
    MsgBox(0, "", "Hello" & Random(1, 10, 1))
WEnd

[Daniel W.]

Yeah that code could be shorted , but the msgbox was just an example for testing it. Instead of the Msgbox will be functions that are called like the msgbox.

[JoshDB]

Yeah that code could be shorted , but the msgbox was just an example for testing it. Instead of the Msgbox will be functions that are called like the msgbox.

As Dan said, they're just placeholders. However, I don't think that it could be shorted. Using a

For $i = 1 To 10

loop wouldn't allow you to choose a function specific to each number.