Cómo calcular el acimut entre los puntos en VB

Un azimut es un nombre que suena complicado para un concepto relativamente simple, matemático. Un azimut es esencialmente el ángulo entre una línea y otra línea de referencia. Normalmente se calcula para un punto, no una línea, por lo que las líneas están formadas por la elección de un punto central, así, que actúa como un punto final, tanto para la línea de referencia y la línea para la que se desea calcular el azimut. Con su robustas herramientas matemáticas, el cálculo del acimut en VB es un broche de presión.

Instrucciones

1 Escriba las siguientes declaraciones en la parte superior de su código VB:

Public Const Pi As Double = 3,14159 26535 89793

AngleRadians tenues como doble

Dim acimut Doble

X1 tenue como entero

Y1 tenue como entero

X2 tenue como entero

Y2 tenue como entero

Rise Dim As Double 'coordenada o un ángulo lado opuesto

Dim Ejecutar como doble 'coordenada X o en el lado adyacente al ángulo

2 Asignar los valores de la coordenadas X e Y de los dos puntos. Por ejemplo, si el punto de referencia se encuentra en las coordenadas 2,2 y el segundo punto está en 3,4, utilice el código:

X1 = 2

Y1 = 2

X2 = 3

Y2 = 4

3 Calcular la distancia vertical entre los dos puntos.

Rise = Y2 - Y1

4 Calcular la distancia horizontal entre los dos puntos.

Ejecutar = X2 - X1

5 Calcular la Arctan de la distancia horizontal dividido por la distancia vertical:

AngleRadians = Atn (subida / Run)

Acimut = angleRadians * 180 / Pi

6 Ajustar los resultados en función de si las distancias horizontales y verticales son positivos o negativos. Si ambos son positivos, ya está resuelto. Si sólo la distancia vertical es negativa, añadir 180 grados con respecto a la respuesta en el paso 3. Si ambos son negativos, añadir 180 grados. Si sólo la distancia horizontal es negativo, añadir 360 grados.

Si Rise <0, entonces

Azimuth = Azimuth + 180

Else If Ejecutar <0, entonces

Azimuth = Azimuth + 360

Terminara si

Consejos y advertencias

• Hay herramientas de programación más adecuados para el cálculo de este valor, como Matlab y Maple.