_random .... Udf

[Daniel W.]

Hi,

i wanted to write a Function that makes Random( min , max) and if the return is a given number it does Random(min,max) again.

Here is the Code and i dont know why it doesnt work

Dim $min 
Dim $max
Dim $leave1, $leave2, $leave3, $leave4, $i, $k
For $h = 1 to 5 Step 1
_Random( 1, 5, 3)
MsgBox(0, "", $k)
Next

Func _Random( $min, $max, $leave1)
    $i = Random( $min, $max, 1)
    If $i = $leave1 Then
        $i = Random( $min, $max, 1)
        $i = $k
    Else
        $i = $k
    EndIf
EndFunc

[SmOke_N]

Hi,

i wanted to write a Function that makes Random( min , max) and if the return is a given number it does Random(min,max) again.

Here is the Code and i dont know why it doesnt work

Dim $min 
Dim $max
Dim $leave1, $leave2, $leave3, $leave4, $i, $k
For $h = 1 to 5 Step 1
_Random( 1, 5, 3)
MsgBox(0, "", $k)
Next

Func _Random( $min, $max, $leave1)
    $i = Random( $min, $max, 1)
    If $i = $leave1 Then
        $i = Random( $min, $max, 1)
        $i = $k
    Else
        $i = $k
    EndIf
EndFunc

Wow, totally confused on what you actually want. The example you've given, never makes $k anything other than $k which means $i always = $k?

Edit:

If you don't want to ever show the specific number set for $leave1

For $h = 1 to 5
    $k = _Random( 1, 5, 3)
    MsgBox(0, "", $k)
Next

Func _Random( $min, $max, $leave1)
    Do
        $i = Random($min, $max, 1)
    Until $i <> $leave1
    Return $i
EndFunc

Edit2:

Or use Jdeb's example :">

Edited May 5, 2006 by SmOke_N

[Jos]

$k is never set...

I would do something like if i understand you correctly:

Dim $min 
Dim $max
Dim $leave1, $leave2, $leave3, $leave4, $i, $k
For $h = 1 to 5 Step 1
$k = _Random( 1, 5, 3)
MsgBox(0, "", $k)
Next

Func _Random( $min, $max, $leave1)
    $i = Random( $min, $max, 1)
    While $i = $leave1 
        $i = Random( $min, $max, 1)
    WEnd
    Return $i
EndFunc

[Daniel W.]

Ok thank you

$k was from another try i did before i posted