Angulo entre dos puntos

04/08/2003 - 00:49 por Xaime | Informe spam
Hola

Necesito calcular el ángulo entre dos puntos y buscando en
google, he encontrado una función para VB .NET.

Yo utilizo VB 6 y parece que no tengo la función atan2

¿Pueden ayudarme? Les adjunto la susodicha función.
Gracias.


Private Function AngleToPoint(ByVal Origin As Point, _
ByVal Target As Point) As Single
'a cool little utility function,
'given two points finds the angle between them
'forced me to recall my highschool math,
'but the task is made easier by a special overload to
'Atan that takes X,Y co-ordinates.
Dim Angle As Single
Target.X = Target.X - Origin.X
Target.Y = Target.Y - Origin.Y
Angle = Math.Atan2(Target.Y, Target.X) / (Math.PI /
180)
Return Angle
End Function

Preguntas similare

Leer las respuestas

#1 Fco. Javier Bedoya
04/08/2003 - 02:35 | Informe spam
Hola:
Atan2 es una funcion que calcula la arcotangente de Y/X.

Public Function Atan2(ByVal X As Double,ByVal Y As Double) As Double
Atan2 = Atn (Y/X) '| Atn es una funcion VB que calcula el
ArcoTangente de un número.
End Function

Espero que te sirva.
Un saludo.

-

JavierBedoya
Yo se lo que es trabajar duro porque lo he visto.
Visita mi web : http://javierbedoya.iespana.es
Para responder a mis mensajes en las newsgroup quite +AntiSpam de mi
dirección de correo.
-


"Xaime" escribió en el mensaje
news:018801c35a11$8ec95950$
Hola

Necesito calcular el ángulo entre dos puntos y buscando en
google, he encontrado una función para VB .NET.

Yo utilizo VB 6 y parece que no tengo la función atan2

¿Pueden ayudarme? Les adjunto la susodicha función.
Gracias.


Private Function AngleToPoint(ByVal Origin As Point, _
ByVal Target As Point) As Single
'a cool little utility function,
'given two points finds the angle between them
'forced me to recall my highschool math,
'but the task is made easier by a special overload to
'Atan that takes X,Y co-ordinates.
Dim Angle As Single
Target.X = Target.X - Origin.X
Target.Y = Target.Y - Origin.Y
Angle = Math.Atan2(Target.Y, Target.X) / (Math.PI /
180)
Return Angle
End Function
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida