Hvordan beregne Azimuth mellom punktene i VB

En azimuth er et komplisert klingende navn for en forholdsvis enkel, matematisk konsept. En azimuth er i det vesentlige like vinkelen mellom en linje og en annen referanselinje. Normalt er det beregnet for et punkt, ikke en linje, slik at linjene er dannet ved å velge et midtpunkt i tillegg, som fungerer som et endepunkt for både referanselinjen og linjen som du ønsker å beregne azimuth. Med det er robuste matematiske verktøy, beregne azimuth i VB er et blunk.

Bruksanvisning

1 Skriv inn følgende erklæringer inn i toppen av din VB-kode:

Offentlig Const Pi Som Double = 3,14159 26 535 89 793

Dim AngleRadians som dobbel

Dim Azimuth As Double

Dim X1 som Integer

Dim Y1 som Integer

Dim X2 som Integer

Dim Y2 som Integer

Dim Rise Som Double 'Y koordinat eller motsatt side vinkel

Dim Run As Double 'X koordinat eller på siden nærmest vinkel

2 Tilordne verdier av X og Y-koordinatene for de to punktene. For eksempel, dersom referansepunktet er ved koordinatene 2,2 og det andre punkt er på 3,4, bruke koden:

X1 = 2

Y1 = 2

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.

Kjør = X2 - X1

5 Beregn arctan av den horisontale avstanden dividert med den vertikale avstand:

AngleRadians = Atn (Rise / Run)

Azimuth = AngleRadians * 180 / Pi

6 Juster resultatene i henhold til om den horisontale og vertikale avstander er positiv eller negativ. Hvis begge er positive, er du ferdig. Hvis bare den vertikale avstanden er negativ, legge 180 grader til svaret i trinn 3. Hvis begge er negative, legge til 180 grader. Hvis bare den horisontale avstanden er negativ, tilsett 360 grader.

Hvis Rise <0 Then

Azimuth = Azimuth + 180

Else Hvis Run <0 Then

Azimuth = Azimuth + 360

Slutt om

Hint

• Det er mer passende programmeringsverktøy for beregning av denne verdien, for eksempel Matlab og Maple.