How to do code If Random(1, 50, 1) = 5,10,15,20,25,30,35,40,45, OR 50?

[frew]

Hello,

I'm trying to find the best way to generate a random number between, for example, 1 and 50, but have the code execute only when one of the randomly generated numbers is one of a chosen subset of numbers.

I can't quite work out hos to do it without having to do a big batch of If Else.

I was hoping to find a way to arrange the syntax something like this:

$i = Random(1, 50, 1)

If $i = (5,10,15,20,25,30,35,40,45, OR 50) Then

;do stuff

EndIf

Thanks for any ideas.

frew

[jchd]

$i = Random(1, 50, 1)
If Mod($i, 5) = 0 Then
   ;do stuff
EndIf

JChD

[frew]

Okay, Thank you jchd, I see what you mean, when I use those kinds of numbers that are divisible like that, but what if I had numbers like:

$i = Random(1, 373, 1)

If $i = (1, 17, 67, 84, 111, 152, 201, 297, 330, OR 341) Then

;do stuff

EndIf

Thanks for any other ideas.

frew

[andybiochem]

try loading values into an array, and selecting index at random:

Global $array[10] = [1, 17, 67, 84, 111, 152, 201, 297, 330, 341]

$random = $array[Random(0,UBound($array) - 1,1)]

MsgBox(0,"",$random)

[zorphnog]

One more suggestion:

$i = Random(1, 50, 1)
Switch $i
    Case 5,10,15,20,25,30,35,40,45,50
        ;do stuff
    Case Else
        ;do other stuff
EndSwitch

[jchd]

Okay, Thank you jchd, I see what you mean, when I use those kinds of numbers that are divisible like that, but what if I had numbers like:

$i = Random(1, 373, 1)

If $i = (1, 17, 67, 84, 111, 152, 201, 297, 330, OR 341) Then

;do stuff

EndIf

Then, the simplest and fastest I can think of is:

$i = Random(1, 373, 1)
Switch $i
    Case 1, 17, 67, 84, 111, 152, 201, 297, 330, 341
      ;do stuff
    Case Else
      ; do else case (optional)
EndIf

[frew]

Thanks so much jchd and zorphnog for the Switch Case idea.

Yes, that's what I was hoping for. Very nice!

Thanks also andybiochem for the arrays idea. I'll check that too, but I'm not familiar with arrays yet.

So this kind of thing works:

$i = Random(1, 100, 1)
Switch $i

    Case 1 To 50
        $msg = "1 to 50"

    Case 51, 52
        $msg = "51,52"

    Case 53 To 100
        $msg = "53 to 100"
        
    Case Else
        $msg = "Case Else"

EndSwitch

MsgBox(0, Default, $msg)

Thanks again!

frew