Hi,
I'm trying to do a simple Trig equation in iLogic, but it's returning the value in radians even though the parameter is set to Degrees. (Please see attached)
Is there something I need to add to my code to make it return an answer in degrees.
Thanks in advance.
GavoGarmo
Solved! Go to Solution.
Public Function RToD(passnum As Double) As Double Return passnum * (180 / PI) End Function Public Function DToR(passnum As Double) As Double Return passnum * (PI / 180) End Function
Thanks for the fast reply, but how does that code fit around my existing iLogic code?
I've tried it in a few differnt positions but it's just spitting up errors.
see if this helps...
Sub Main Dim dNumber As Double = 45 MsgBox(dNumber & " Deg") Dim dNumber1 as Double = DToR(dNumber) MsgBox(dNumber1 & " Rad") Dim dNumber2 as Double = RToD(dNumber1) MsgBox(dNumber2 & " Deg") End Sub Public Function RToD(passnum As Double) As Double Return passnum * (180 / PI) End Function Public Function DToR(passnum As Double) As Double Return passnum * (PI / 180) End Function
if that did not help try this..
Dim dNumber As Double = 45 MsgBox(dNumber & " Deg") Dim dNumber1 as Double = dNumber * (PI / 180) 'Deg to Rad MsgBox(dNumber1 & " Rad") Dim dNumber2 as Double = dNumber1 * (180 / PI) 'Rad to Deg MsgBox(dNumber2 & " Deg")
or try this..
t1 = (SpecialBevelDim1 / SpecialBevelDim2) i1 = Atan(t1) * (180 / PI) 'Rad to Deg t1 = (SpecialBevelDim2 / SpecialBevelDim1) i2 = Atan(t2) * (180 / PI) 'Rad to Deg
Hi,
I'd put in a mathmatical solution earlier in the day, but it seemed like a bit of a fudge through, so was hoping there was a way to just flip the units from one to the other.
The VB stuff is still a bit of a mystery to me at the moment, so I think the mathmatical solution is probably best for people at my level of programming.
Thanks again for your help.