On of my "stupiest" questions....

[Cableguy]

Hi all,

I'm trying to come up with a simple calcutation tool for an on-line game called travian...
I'm trying to automatiza the calculation of the time nned to travel from point a to b at a given speed...
For the ones not fammyliarized with the game,,, The units have diferents seepds, measured in squares per hour...

So, since I don't want to repeat the same code over and over, I thought about creating a calculation sub and pass the parameters...
But they are not being passed...
I just can't fugure out...

.....
n=VLeg
Calculos(d,ds,fx,n)
Msgbox(TS)
End Sub

Sub Calculos
v=3600/n
Msgbox(v)
TS=(v*d)+((v*fx)*ds)
Format(TS,"n2")
Return(TS)
End Sub

Any thoughts?

I'm also trying to convert seconds to the time format (HH:MM:SS), any one have done that yet?

[specci48]

Hi Cableguy,

since we have local variables, you have to define the parameters in the called sub again:

Sub Calculos(d,ds,fx,n)
...
End Sub


Cheers
specci48


PS: There is no stupid question, there are only stupid answers...

[Cableguy]

Originally Posted by specci48

Hi Cableguy,

since we have local variables, you have to define the parameters in the called sub again:

Sub Calculos(d,ds,fx,n)
...
End Sub


Cheers
specci48

I knew I was forgetting something....dahm....

Thnks Specci...

[Cableguy]

Ok, so calculations now occur but the TS var is not returned to the calling sub....Any thoughts????

[specci48]

... I forgot to answer to your second question.

If you want to convert seconds to HH:MM:SS you can do something like this.

TimeFormat("HH:mm:ss")
Label1.Text = Time(seconds * cTicksPerSecond)

This works for 0 =< seconds < 86400 since 86400 seconds equals 00:00:00 again.


specci48

[specci48]

... since we have local variables, you have to assign the returning value to a variable...

TS = Calculos(d,ds,fx,n)

[Cableguy]

Originally Posted by specci48

... since we have local variables, you have to assign the returning value to a variable...

TS = Calculos(d,ds,fx,n)

That doesn't work since TS is tne result of a mathematical expression....
Still in the help file it reads:

Return

--------------------------------------------------------------------------------

Ends the current sub and returns to the calling sub.
If Return is followed by a value, then the value will be passed to the calling sub.
Syntax: Return [Value]


Example:
Sub Button1_Click
If IsInteger (a) = true Then b=a
End Sub


Sub IsInteger (x)
If x = Int(x) Then Return true Else Return false
End Sub

So the code SHOULD work but it gives an "input in the wrong format" kind of error...

Solved:the paramters returned do not need to be inside brackets.....

[specci48]

Originally Posted by Cableguy

... but it gives an "input in the wrong format" kind of error...

Remove the brackets from the return statement

Return TS

Edit:
oops ... missed your edit ...

[Cableguy]

Ok, back to the same stupid question:

I have in one sub....

TS= some mathematical operation
MsgBox(TS) ' Does show the result from the previous line...
Return TS ' Nothing is passed to the calling sub, WHY????

[specci48]

Can you post how the code looks like at the monent?

Edit: Have you implemented post #6 in your calling sub?