Round Double

[toe]

Hi
I have search and found examples but unable to get them to work.

This is what i am trying to achieve:

Dim pPitch As Double = Spinner1.SelectedItem 
Try
Dim lLength As Double= EditText1.text
Catch 
Msgbox("You must enter a length","Enter Length")
Return
End Try
lLength = lLength / Cos (pPitch * (cPI / 180))
lLength = Round2 (lLength,3)As Double
Msgbox(lLength,"Raking Length")

ERROR:

Parsing code. 0.00
Compiling code. Error
Error compiling program.
Error description: Syntax error.
Occurred on line: 62
lLength = Round2 (lLength,3)As Double
Word: )

thx
toe

 

[thedesolatesoul]

Try this:

Dim pPitch As Double = Spinner1.SelectedItem 
Try
Dim lLength As Double= EditText1.text
Catch 
Msgbox("You must enter a length","Enter Length")
Return
End Try
lLength = lLength / Cos (pPitch * (cPI / 180))
lLength = Round2 (lLength,3)
Msgbox(lLength,"Raking Length")

 

[toe]

thx thedesolatesoul

I did have that but didnt try and run in the emulator as it showed as a error.

Guess i will need to always run the code even if it is showing as a error.

cheers
toe

 

[thedesolatesoul]

you mean warning?
sometimes warning can be ignored.

 

[toe]

you mean warning?
sometimes warning can be ignored.

Yes, thanks.
Toe