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 propiedades en el código y el progreso opinión trabajo a través de una interfaz gráfica de usuario intuitiva. VB puede ayudarle a realizar simples operaciones de avanzar, tales como el cálculo de azimut, con la ayuda incorporada de funciones matemáticas. Azimut es una medida angular utilizado 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 Poner en marcha el proyecto de Visual Basic en el que va a calcular el azimut.

2 Definir el X (latitud) e Y (longitud) coordenadas de los dos puntos que desea utilizar para calcular el azimut. Por ejemplo:

Función pública Azimut (Lat1, lon1, Lat2, Lon2) como doble

Xcord = (Lon2 - lon1) como doble

Ycord = (Lat2 - lat1) como doble

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

Acimut = atan (Xcord / Ycord)

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

rad2deg función (rad)

rad2deg = CDbl (rad * 180 / pi)

End Function