Ein Azimut ist ein kompliziertes klingenden Namen für eine relativ einfache , mathematische Konzept . Ein Azimut ist im Wesentlichen nur der Winkel zwischen einer Linie und einer anderen Bezugslinie . Normalerweise ist es für einen Punkt , eine Linie nicht berechnet , so dass die Linien werden durch die Wahl eines Mittelpunktes sowie , die als Endpunkt für beide der Bezugslinie und der Linie , für die Sie den Azimut berechnen wirkt. Mit seinem robusten mathematischen Werkzeuge , die Berechnung des Azimut in VB ist ein Kinderspiel. Anleitung
1
Geben Sie die folgenden Erklärungen in der Spitze der VB-Code :
Public Const Pi As Double = 3.14159 26535 89793
Dim angleRadians As Double
Dim Azimuth As Double Dim
X1 als Integer
Dim Y1 als Integer Dim
X2 als Integer Dim
Y2 als Integer
Dim Aufstieg As Double 'Y -Koordinate oder Winkel gegenüberliegenden Seite
Dim Run As Double ' X-Koordinate oder neben
2
Ordnen Sie die Werte der X- Winkel und Y-Koordinaten der zwei Punkte . Zum Beispiel, wenn der Bezugspunkt ist bei den Koordinaten 2,2 und der zweite Punkt ist, bei 3,4 , verwenden Sie den Code :
X1 = 2
Y1 = 2
X2 = 3
Y2 = 4
3
berechnen Sie den vertikalen Abstand zwischen den beiden Punkten
Aufstieg = Y2 - . Y1
4
berechnen Sie den horizontalen Abstand zwischen den beiden Punkten
Run = X2 - . X1
5
berechnen Sie die Arctan des horizontalen Abstands durch den vertikalen Abstand geteilt :
angleRadians = Atn ( Aufstieg /Run )
Azimut = angleRadians * 180 /Pi
6
Stellen Sie die Ergebnisse , je nachdem ob die horizontalen und vertikalen Abstände sind positiv oder negativ. Wenn beide positiv sind, sind Sie fertig. Wenn nur der vertikale Abstand negativ ist , fügen 180 Grad auf die Antwort in Schritt 3 . Wenn beide negativ sind , fügen Sie 180 Grad. Wenn nur der horizontale Abstand negativ ist , fügen Sie 360 Grad.
Aufstieg < 0 Then
Azimuth Azimuth = + 180
Else If Ausführen < 0 Then
Azimuth Azimuth = + 360
End If
