Cómo calcular el acimut entre los puntos IN VB

Un acimut es un nombre que suena complicado para un concepto relativamente simple, matemática. Un acimut es esencialmente el ángulo entre una línea y otra línea de referencia. Normalmente está calculado para un punto , ni una línea , por lo que las líneas están formadas por la elección de un punto y el centro , 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 acimut . Con sus herramientas matemáticas robustas , calcular el acimut en VB es muy fácil. Instrucciones
1

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

Public Const Pi As Double = 3.14159 26535 89793

angleRadians Dim As Double

Azimuth Dim As Double

X1 como Integer Dim

Y1 como Integer Dim Dim

X2 como Integer

Y2 Dim como Integer

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

Run As Double' coordenada X o en el lado adyacente al ángulo
2

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

X1 = 2

Y1 = 2
< p > X2 = 3

Y2 = 4
3

Calcular la distancia vertical entre los dos puntos

Rise = Y2 - . Y1
Página 4

Calcular la distancia horizontal entre los dos puntos

Run = X2 - . X1
5

Calcular el Arctan de la distancia horizontal dividida por la distancia vertical :

angleRadians = Atn ( subida /Run )

Azimuth = angleRadians * 180 /Pi
6

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

Si Rise < 0 entonces

Azimuth Azimuth = + 180

else if Run < 0 entonces

Azimuth Azimuth = + 360

End If