[RESOLVED] how do i change angle into a degre

[flyhigh]

when i use this i get a very large number how do i change it to degrees to get less numbers?
thanks

Angle = Atn((Y2 - Y1) / (X2 - X1))

[seenu_1st]

to convert radians to degree = radians * (180/pi)
to convert degree to radians = degree * (pi/180)

[flyhigh]

if i do deg=angle *(190/pi) i get a big number am i doing it wrong

[Monti124]

This may help you:

Public Function (D) as double 
 Degrees (D) *(180/pi) 
End function 
'if you want to round just use Round((D),2)
'D = Degrees

[seenu_1st]

if i do deg=angle *(190/pi) i get a big number am i doing it wrong

it shud be 180 not 190, and what u mean by big number? can u pls explain what u need exactly?

[flyhigh]

i thought degrees went from 0 to 360 ,i just dont understand how to get degrees .
thanks

[seenu_1st]

try this to get angle of a line

Private Sub Command1_Click()
'just draw a line in form using line control named as Line1
Dim pi As Double, Angle As Single
pi = 4 * Atn(1) 'pi value
With Line1
    Angle = Atn((.Y2 - .Y1) / (.X2 - .X1)) 'returns the radians
    Angle = Angle * (180 / pi) 'convert radians to degree
End With
MsgBox Round(Angle, 2) 'round up
End Sub

[flyhigh]

thank you now i understand it ,i wasnt even close
thanks

[flyhigh]

hey yall
is there anyway to get numbers 0-360 instead of + or - numbers?
thanks

[Logophobic]

Add 360 to the negative numbers and you'll have it.