lanciare il progetto di Visual Basic in cui potrete calcolare azimut .
2
Definire la X (latitudine ) e Y ( longitudine ) coordinate per i due punti si desidera utilizzare per calcolare azimut . Per esempio :
Public Function Azimuth ( lat1 , LON1 , LAT2 , lon2 ) come Double
Xcord = ( lon2 - LON1 ) come doppio
Ycord = ( LAT2 - lat1 ) come doppio
3
Utilizzare la funzione matematica ATAN per calcolare azimut , come segue . Il calcolo si tradurrà in unità radianti .
Azimuth = ATAN ( Xcord /Ycord ) economici 4
Creare una funzione esplicita utilizzando le funzioni " CDbl " " rad2deg " e per convertire il risultato da unità radianti a gradi , poiché azimut è misurato in gradi . Per esempio :
Funzione rad2deg ( rad ) per
rad2deg = CDbl ( rad * 180 /pi ) per
End Function
Programmazione © www.354353.com