passing arguments and function results

[almagg]

since i have this in several macros i wanted to create a function that i can call.
the status bar argument uses two variables: timeremaining and labels. the second is for when the time goes below 1 min. then the label is changed to sec. the 'timeremaining' calculation uses the two variables time1 and time2.

now since the default is 'by ref', could i pass three variables to a function, the third being timeremaining which will be updated by the function. then since the function can only return one variable all i need to pick up is 'label'.

finally how do i get the result back into the calling procedure?

sub
.
status time1, time2, timeremaining
.
endsub

function status(time1,time2,timeremaining)

(stuff happens)
timeremaining = (this will update the timeremaining variable in the procedure?)

if timeremaining<1 then
labels = "sec."
endif

then what to do for the above procedure to get 'labels'?

thanks
al
This message was edited by almagg on 2002-10-30 15:18

 

[ChrisM]

To return the results of a function I believe you just set the function equal to a variable, like:

variable = status(time1,time2)

 

[garyae]

Here is how to get the result of a function

first you must declare the function to return a result like this

function functionName(arg1,arg2,arg3) as XXXX
where XXXX is the data type of the value you want to return.

Second the result that is returned is returned via a variable that has the same name as the function.
so if you want functionName to return the value 10 which is the value of a variable named fuu put the following as the last line of the function (before the End function line)
functionName = fuu

finally when you call the function you must set a variable equl to the function e.g.

bar = functionName(var1,var2,var3)

in this case bar would now equal 10.

Hope this helps
Gary

garyaebert@netscape.net

 

[almagg]

thanks, that makes sense BUT
now i am getting this error message when i start the macro:
compiler error
"ambiguous name detected: status"

and the highlight in the editor is on the Function line itself, not in the procedure when it is called.

here's what i have:

Function status(time1,time2) as Var
.
timeremaining = status(time1,time2)
.


Function status(time1,time2)
.
status = timerem
.
End Function

al
This message was edited by almagg on 2002-10-30 17:39