En azimut är ett komplicerat klingande namn för en relativt enkel , matematiskt begrepp . En azimut är i huvudsak bara vinkeln mellan en linje och en annan referenslinje . Normalt är det beräknat för en punkt , inte en linje , så linjerna är bildade genom att välja en mittpunkt också, som fungerar som en slutpunkt för både referens raden och raden som du vill beräkna azimut . Med den är robust matematiska verktyg , beräkna azimut i VB är en kick . Instruktioner
1
Skriv följande deklarationerna i toppen av din VB-kod :
Public Const Pi Som Double = 3,14159 26535 89793
Dim angleRadians Som Double
Dim azimut som Double
Dim X1 som Integer
Dim Y1 As Integer
Dim X2 som Integer
Dim Y2 som Integer
Dim uppgång som Double ' Y-koordinat eller sidan mittemot vinkeln
Dim Run As Double ' X-koordinat eller vid sidan nära att vinkla
2
tilldela värdena på X och Y -koordinater för de två punkterna. Till exempel, om referenspunkten är på koordinater 2,2 och den andra punkten är på 3,4 , använd koden :
X1 = 2 Review
Y1 = 2 Review
X2 = 3 bilder
Y2 = 4
3
Beräkna vertikala avståndet mellan de två punkterna
Rise = Y2 - . Y1
4
Beräkna det horisontella avståndet mellan de två punkterna
Run = X2 - . X1
5
Beräkna arctan av det horisontella avståndet dividerat med det vertikala avståndet :
angleRadians = Atn ( Rise /Run ) katalog
Azimuth = angleRadians * 180 /Pi
6
Justera resultatet beroende på om de horisontella och vertikala avstånden positivt eller negativt. Om båda är positiva , är du klar . Om endast det vertikala avståndet är negativ , tillsätt 180 grader till svaret i steg 3 . Om båda är negativa , tillsätt 180 grader. Om bara det horisontella avståndet är negativt , tillsätt 360 grader .
P Om Rise < 0 Then
Azimuth = Azimuth + 180
Else If Kör < 0 Then
Azimuth = Azimuth + 360
End If Addera
