|
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
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
|
