Cómo calcular el acimut en VB

Visual Basic o Visual Basic es un lenguaje de programación de Microsoft que se utiliza ampliamente fordeveloping 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 . Instrucciones
1

Iniciar el proyecto de Visual Basic en el que se calcula el azimut .
2

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

Public Function Azimuth ( lat1 , lon1 , lat2 , lon2 ) como doble

Xcord = ( lon2 - lon1 ) como doble

Ycord = ( lat2 - lat1 ) como doble
3

Utilice la función ATAN matemáticas para calcular el acimut, de la siguiente manera . El cálculo se traducirá en unidades de radianes

Azimuth = ATAN ( Xcord /Ycord )
4

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

Función rad2deg (rad )

rad2deg = CDbl (rad * 180 /pi )

End Function