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 < br >

Azimuth Dim As Double

X1 como Integer Dim

Y1 como Integer Dim Dim

X2 como Integer

Y2 Dim como Integer < br >

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 < br >

Azimuth Azimuth = + 360

End If