Creating Subroutine

[walterf25]

Hello all, this may seem like a noob question, although i'am a noob in Basic4Android, i'm trying to create a sub which i will call by clicking on a button,

Sub CalculateResistors (R1 As Double, R2 As Double) As Double
Dim S2 As Int
Dim S1 As Int
S2 = 1/(frequency * c * 0.693)
S1 = S2 * DutyCycle / 100
R2 = S2 - S1
R1 = S1 - R2
End Sub

when i call this sub like this, CalculateResistors(R1, R2) it doesn't return any values, can anyone help me with this, i'm sure is something very simple, but i can't figure it out, anybody?

thanks,
Walter:sign0085:

 

[vb1992]

You need to include the "return"
then the value will be returned to the calling code.

Msgbox(MyMath(2.51,2.49),"")


Sub MyMath (a As Double, b As Double)

Dim c As Double

c = a + b

Return c

End Sub

 

[walterf25]

Thank you Sir, i knew it was something simple, lol, really appreciate your help

Cheers.

 

[vb1992]

No problem, enjoy.

 

[bustedkrutch]

declaring subroutine with return type

When you declare the sub as one to return a value, don't you need to include the return type in the declaration ???

From above

Msgbox(MyMath(2.51,2.49),"")


With return type

Msgbox(MyMath(2.51,2.49),"") as Double

I'm new to b4a (which may be intuitively obvious, depending upon your response) lol

 

[klaus]

In the shown example the Sub declaration is wrong, it should be :

Sub MyMath (a As Double, b As Double) As Double

Best regards.