Come calcolare azimut tra i punti in VB

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

Dim Azimuth As Double Dim

X1 as Integer

Dim Y1 come Integer

Dim X2 as Integer

Dim Y2 as Integer

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

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

Azimuth = Azimuth + 360

End If

• Tutorial di Visual Basic per MSN 
• Come vedere le forme di lavoro in VB6