Um azimute é um nome que soa complicado para um conceito relativamente simples, matemática. Um azimute é essencialmente apenas o ângulo entre uma linha e outra linha de referência. Normalmente ele é calculado para um ponto , nem uma linha , para que as linhas são formadas pela escolha de um ponto central , bem como, que atua como um ponto final para a linha de referência ea linha para o qual você deseja calcular o azimute . Com ele é ferramentas matemáticas robustas , calculando o azimute em VB é um piscar de olhos. Instruções
1

Digite as seguintes declarações no início do seu código VB:

Public Const Pi As Double = 3,14159 26535 89793

Dim angleRadians As Double < br >

Dim Azimute As Double Dim

X1 como Integer

Dim Y1 como Integer

Dim X2 como Integer

Dim Y2 como Integer < br >

Dim ascensão como ' coordenada Y ou lateral ângulo oposto

Dim Run as Double ' Double X coordenar ou no lado adjacente ao ângulo
2

Atribuir os valores de X e Y coordenadas de dois pontos . Por exemplo, se o ponto de referência está em coordenadas de 2,2 eo segundo ponto é de 3,4 , utilize o código:

X1 = 2

Y1 = 2

X2 = 3

Y2 = 4
3

Calcule a distância vertical entre os dois pontos

ascensão = Y2 - . Y1

4

Calcule a distância horizontal entre os dois pontos

Run = X2 - . X1
5

Calcule o arctan da distância horizontal dividida pela distância vertical :

angleRadians = Atn ( ascensão /Run)

Azimute = angleRadians * 180 /Pi
6

Ajuste os resultados consoante as distâncias horizontais e verticais são positivo ou negativo . Se ambos forem positivas, você está feito. Se apenas a distância vertical for negativo , adicionar 180 graus para a resposta no passo 3 . Se ambos forem negativos , adicione 180 graus. Se somente a distância horizontal é negativo , adicione 360 graus.

Se ascensão < 0 Then

Azimute = Azimute + 180

Else If Run < 0 Then < br >

Azimute = Azimute + 360

End If