Create Function Question

[Daniel W.]

Hi,

i want to know something about creating a function.

How do i write the function when i want that

2 paramaters need to be given and for example 1 parameter may be given.

Like in Random( min, max [, flat ] )

How do i write my first line for func then?

Func _Random( $min, $max [, $flat ] )
Random( $min, $max )
EndFunc

This code made an error appear

regards Daniel

[Xenobiologist]

HI,

what about

Func ran($min, $max, $bla = 1)
...

EndFunc

Or do you mean how to call the func?

So long,

Mega

Edited May 5, 2006 by th.meger

[Daniel W.]

Thanks very much

Did i said before that this forum rocks very hard ?

Like a france guy would say now

Msgbox(0, "", "Luv u all !", 5)

Thanks again ^^

€: Yet another question ....

I have this code

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

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

Now it should give out 5 times a msgbox with "5" but it doesnt and i dont know why.

Edited May 6, 2006 by Daniel W.

[SmOke_N]

Thanks very much

Did i said before that this forum rocks very hard ?

Like a france guy would say now

Msgbox(0, "", "Luv u all !", 5)

Thanks again ^^

: Yet another question ....

I have this code

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

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

Now it should give out 5 times a msgbox with "5" but it doesnt and i dont know why.

Kind of answered this in your last thread

;Don't need to dim values in the Function
For $h = 1 to 5 Step 1
    $k = _Random( 1, 5, 1, 2, 3, 4)
    MsgBox(0, "", $k)
Next

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

[Daniel W.]

KK i got the little error in my "solution" that i wrote Until $i = $leave1 or $leave2 etc before ....