iLogic equation answers in radians. I need degrees. (Probably a Noob question)

[Anonymous]

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

[Anonymous]

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

[Anonymous]

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.

[Anonymous]

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

[Anonymous]

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")

[Anonymous · Accepted solution]

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

[Anonymous]

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.