En azimut er en kompliceret klingende navn for en relativt enkel, matematisk begreb . En azimuth er hovedsageligt bare vinklen mellem en linie og en anden reference linje . Normalt er det beregnet for et punkt , ikke en linje, så linjerne er dannet ved at vælge et midtpunkt så godt, der fungerer som et slutpunkt for både referencelinjen og den linje , som du vil beregne azimut . Med det robuste matematiske værktøjer , er at beregne azimut i VB et snuptag. Instruktioner
1

skrive følgende erklæringerne i toppen af ​​din VB kode : Hej

Public Const Pi Som Double = 3,14159 26535 89.793

Dim AngleRadians Som Double < br >

Dim Azimuth som Double

Dim X1 som Integer

Dim Y1 som Integer

Dim X2 som Integer

Dim Y2 som Integer < br >

Dim Rise Som Double ' Y-koordinat eller modsatte side vinkel

Dim Run Som Double' X-koordinat eller side støder at vinkle
2

Tildel værdierne for X og Y-koordinaterne for de to punkter . For eksempel, hvis referencepunktet er på koordinaterne 2,2 og det andet punkt er 3,4 bruge koden : Hej

X1 = 2

Y1 = 2
< p > X2 = 3 fotos

Y2 = 4
3

Beregn den lodrette afstand mellem de to punkter

Rise = Y2 - . Y1

4

Beregn den vandrette afstand mellem de to punkter

Run = X2 - . X1
5

Beregn Arctan af den vandrette afstand divideret med den lodrette afstand : Hej

AngleRadians = Atn ( Rise /Run )

Azimuth = AngleRadians * 180 /Pi
6

Juster resultaterne efter om de vandrette og lodrette afstande er positiv eller negativ . Hvis begge er positive , er du færdig . Hvis kun den lodrette afstand er negativ , tilsættes 180 grader til svaret på trin 3. . Hvis begge er negative , tilsættes 180 grader . Hvis det kun er vandrette afstand er negativ , tilsættes 360 grader.
P Hvis Rise < 0 Then

Azimuth = Azimuth + 180

Else Hvis Run < 0 Then < br >

Azimuth = Azimuth + 360

End If