Een azimuth is een ingewikkeld klinkende naam voor een relatief eenvoudige , wiskundig begrip . Een azimuth is in wezen slechts de hoek tussen een lijn en een andere referentielijn . Normaal gesproken is berekend voor een punt , niet een lijn , zodat de lijnen worden gevormd door te kiezen voor een centraal punt als goed, dat fungeert als een eindpunt voor zowel de referentie- lijn en de lijn waarvoor u de azimuth berekenen. Met zijn robuuste wiskundige instrumenten , de berekening van de azimuth in VB is in een handomdraai . Instructies
Type 1 de volgende verklaringen in de bovenkant van uw VB- code : Public Const Pi
As Double = 3,14159 26535 89793 Dim angleRadians
As Double < br Dim Azimuth As Double Dim X1
als Integer Dim Y1
als Integer Dim X2
als Integer Dim Y2
als Integer < br > Dim Rise > As Double ' Y-coördinaat of de zijde tegenover hoek Dim Run
As Double ' X-coördinaat of zijde grenzend aan kopen van 2 hoek Wijs de waarden van de X-en Y-coördinaten voor de twee punten . Bijvoorbeeld, als het referentiepunt is bij coördinaten 2,2 en het tweede punt is op 3,4 , gebruik de code : X1
= 2
Y1 = 2
X2 = 3
Y2 = 4
3 Bereken de verticale afstand tussen de beide punten Rise
= Y2 - . Y1
Goedkope 4 Bereken de horizontale afstand tussen de beide punten Run
= X2 - . X1
5 Bereken de arctan van de horizontale afstand gedeeld door de verticale afstand : angleRadians
= Atn ( Rise /Run ) Azimuth
= angleRadians * 180 /Pi
6 Pas de resultaten naargelang de horizontale en verticale afstanden zijn positief of negatief . Als beide positief zijn , bent u klaar. Als alleen de verticale afstand negatief is , voeg 180 graden om het antwoord in stap 3 . Als beide negatief zijn , voeg 180 graden . Als alleen de horizontale afstand is negatief , voeg 360 graden .
Als Rise < 0 Dan Azimuth = Azimuth + 180
Else If Run < 0 Then < br > Azimuth = Azimuth + 360 End
Als
|
