En azimuth er en komplisert klingende navnet for en relativt enkel, matematisk begrep . En azimuth er egentlig bare vinkelen mellom en linje og en annen referanse -linjen. Det er vanligvis beregnet for en punkt, ikke en linje , slik at linjene er dannet ved å velge et midtpunkt så vel , som fungerer som et endepunkt for både referansen linje og linjen som du ønsker å beregne asimut . Med det er robuste matematiske verktøy , beregning av azimuth i VB er ​​et blunk . Instruksjoner
en

Skriv inn følgende erklæringer inn i toppen av din VB -koden : en

Public Konst Pi As Double = 3,14159 26535 89793

Dim AngleRadians Som Double

Dim Azimuth som Double

Dim X1 som heltall

Dim Y1 som heltall

Dim X2 som Integer

Dim Y2 som heltall

Dim Rise As Double ' Y-koordinat eller side motsatt vinkel

Dim Run As Double' X-koordinat eller på siden nærmest vinkle
2

Angi verdiene av X og Y koordinater for de to punktene . For eksempel, hvis referansepunktet er ved koordinatene 2,2 og det andre punktet er på 3,4 , bruke koden : en

X1 = 2

Y1 = 2
< p > X2 = 3

Y2 = 4
3

Beregn den vertikale avstanden mellom de to punktene

Rise = Y2 - . Y1

4

Beregn den horisontale avstanden mellom de to punktene

Run = X2 - . X1
5

Beregn arctan av den horisontale avstanden delt på den vertikale avstanden : en

AngleRadians = Atn ( Rise /Run )

Azimuth = AngleRadians * 180 /Pi
6

Juster resultater i henhold til om de horisontale og vertikale avstander er positiv eller negativ. Hvis begge er positive , er du ferdig . Hvis bare den vertikale avstanden er negativ , tilsett 180 grader til svaret i trinn 3 . Hvis begge er negative , tilsett 180 grader. Hvis bare den horisontale avstanden er negativ , legger 360 grader.
P Hvis Rise < 0 Then

Azimuth = Azimuth + 180

Else Hvis Kjør < 0 Then

Azimuth = Azimuth + 360

End If