Un azimut est un nom à consonance compliqué pour un concept relativement simple, mathématique . Un azimut est essentiellement juste l'angle entre une ligne et une autre ligne de référence . Normalement, il est calculé pour un point , pas une ligne , de sorte que les lignes sont formés en choisissant un point aussi central , qui agit comme un point final à la fois pour la ligne de référence et la ligne pour laquelle vous voulez calculer l'azimut . Avec ses outils mathématiques complexes , calculer l'azimut en VB est un jeu d'enfant . Instructions
1

Tapez les déclarations suivantes dans le haut de votre code VB:

publique Pi Const As Double = 3.14159 26535 89793

angleRadians As Double < br >

Azimuth As Double

X1 As Integer

Y1 As Integer

Dim X2 as Integer

Y2 As Integer < br >

montée As Double ' coordonnée Y ou sur le côté opposé à l'angle

Run As Double' coordonnée X ou sur le côté adjacent à l'angle
2

affecter les valeurs de X et Coordonnées Y pour les deux points . Par exemple, si le point de référence est aux coordonnées 2,2 et le second point est à 3,4, utiliser le code suivant:

X1 = 2

Y1 = 2
< p > X2 = 3

Y2 = 4
3

Calculer la distance verticale entre les deux points de

hausse = Y2 - . Y1
Hôtels 4

Calculer la distance horizontale entre les deux points de

Run = X2 - . X1
5

Calculer le Arctg de la distance horizontale divisée par la distance verticale : Photos

angleRadians = Atn ( montée /Run )

Azimuth = angleRadians * 180 /Pi
6

ajuster les résultats selon que les distances horizontales et verticales sont positif ou négatif. Si les deux sont positifs, vous avez terminé. Si seulement la distance verticale est négatif, ajouter 180 degrés pour la réponse à l'étape 3 . Si les deux sont négatifs , ajouter 180 degrés. Si seulement la distance horizontale est négatif, ajouter 360 degrés.

Montée < 0 Then

Azimut Azimut = + 180

Else If Run < 0 Then < br >

Azimut Azimut = + 360

End If