jueves, 28 de noviembre de 2013

Cómo calcular el acimut en VB

Visual Basic o Visual Basic es un lenguaje de programación de Microsoft que se utiliza ampliamente para el desarrollo profesional de negocios y aplicaciones personales. Proporciona a los usuarios una serie de controles, los objetos y las propiedades en el código y la revisión del progreso del trabajo a través de una interfaz gráfica de usuario intuitiva. VB puede ayudarle a realizar simples operaciones de avance, como el cálculo de azimut, con la ayuda de una función de funciones matemáticas. Acimut es una medida angular se utiliza para determinar la posición de los objetos en la esfera celeste. Por lo general se mide a partir del punto cardinal norte y que representa el ángulo de separación entre dos puntos distantes en un plano horizontal.

Ejecute el proyecto de Visual Basic en el que se calcula el azimut.



Definir el X (latitud) y Y (longitud) coordenadas de los dos puntos que desea utilizar para el cálculo de azimut. Por ejemplo:

Función Pública Azimuth (lat1, lon1, lat2, lon2) como doble

Xcord = (lon2 - lon1) como doble

Ycord = (lat2 - lat1) como doble



Utilizar la función matemática ATAN para calcular el azimut, de la siguiente manera. El cálculo se traducirá en unidades de radianes.

Azimuth = ATAN (Xcord / Ycord)



Crear una función explícita de utilizar las funciones "CDbl" "rad2deg" y convertir el resultado de las unidades de radianes a grados, ya acimut se mide en grados. Por ejemplo:

Función rad2deg (rad)

rad2deg = CDbl (rad * 180 / pi)

End Function

 

No hay comentarios:

Publicar un comentario