Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Spustenie projektu jazyka Visual Basic , v ktorom budete výpočet azimutu . 
 2 
 Definujte X ( šírka ) a Y ( dĺžka ) koordinuje pre dva body si chcete použiť pre výpočet azimutu . Napríklad : 
 
 Public Function azimut ( LAT1 , lon1 , lat2 , lon2 ) ako Double 
 
 Xcord = ( lon2 - lon1 ) ako dvojité 
 
 Ycord = ( lat2 - LAT1 ) ako dvojité 
 3 
 Pomocou matematické funkcie ATAN pre výpočet azimutu , takto . Výpočet bude mať za následok rád jednotkách . 
 
 Azimut = ATAN ( Xcord /Ycord ) 
 4 
 Vytvoriť explicitné funkcie pomocou " rad2deg " a " CDbl " funkcie pre prevod výsledku z rád jednotiek stupňov , pretože azimut sa meria v stupňoch . Napríklad : 
 
 Funkcia rad2deg ( rád ) 
 
 rad2deg = CDbl ( rad * 180 /pi ) 
 
 End Function