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