L' azimut è un nome dal suono complicato per un concetto relativamente semplice, matematico . Un azimut è essenzialmente solo l'angolo tra una linea e un'altra linea di riferimento . Normalmente è calcolato per un punto , non una linea, così che linee sono formate scegliendo un punto così centrale , che agisce come un endpoint sia per la linea di riferimento e la linea per la quale si desidera calcolare l'azimut . Con i suoi potenti strumenti matematici , calcolando l'azimut in VB è un gioco da ragazzi . Istruzioni
1

Tipo le seguenti dichiarazioni nella parte superiore del vostro codice VB :

Public Const Pi As Double = 3.14159 26.535 89.793

Dim angleRadians As Double < br >

Dim Azimuth As Double Dim

X1 as Integer

Dim Y1 come Integer

Dim X2 as Integer

Dim Y2 as Integer < br >

Dim ascesa As Double ' coordinata o lato Y opposto angolo

Dim Run As Double ' coordinata X o laterale adiacente ad angolo
2

Assegnare i valori della X e coordinate Y per i due punti . Ad esempio, se il punto di riferimento è alle coordinate 2,2 e il secondo punto è a 3,4 , utilizzare il codice :

X1 = 2

Y1 = 2
< p > X2 = 3

Y2 = 4
3

Calcola la distanza verticale tra i due punti di

salita = Y2 - . Y1

4

Calcola la distanza orizzontale tra i due punti di

Run = X2 - . X1
5

Calcola il Arctan della distanza orizzontale divisa per la distanza verticale :

angleRadians = Atn ( sollevamento /trasporto ) per

Azimuth = angleRadians * 180 /Pi
6

regolare i risultati a seconda che la distanza orizzontale e verticale sono positivo o negativo . Se entrambi sono positivi , si è fatto. Se solo la distanza verticale è negativa , aggiungere 180 gradi per la risposta nel passaggio 3 . Se entrambi sono negativi , aggiungere 180 gradi . Se solo la distanza orizzontale è negativo , aggiungere 360 gradi.

Salita < 0 Then

Azimuth = Azimuth + 180

Else If Run < 0 Then < br >

Azimuth = Azimuth + 360

End If