Ako vypočítať azimut medzi bodmi vo VB

azimutu je komplikovaná znejúci názov pre relatívne jednoduché , matematické koncepcie . Azimut je v podstate len uhol medzi linkou a ďalšie referenčné čiaru . Za normálnych okolností je to počítané za bod , nie linky , takže riadky sú tvorené výberom stredový bod tiež , že pôsobí ako koncový bod pre oba referenčné čiarou a línií , pre ktoré chcete vypočítať azimut . Ak je to robustný matematické nástroje , ktoré počítajú hodnotu azimutu vo VB je hračka . Pokyny dovolená 1

zadajte nasledujúce vyhlásenie do hornej časti kódu VB : klipart

Public Const Pi As Double = 3,14159 26535 89793

Dim angleRadians As Double

Dim azimut As Double

Dim X1 ako Integer

Dim Y1 ako Integer

Dim X2 ako Integer

Dim Y2 ako Integer

Dim Rise As Double ' Y súradníc alebo na strane opačnej uhol

Dim Run As Double ' X súradníc alebo strane priľahlej k uhlu
2

Priradenie hodnoty X a Y súradnice pre dva body . Napríklad , ak je referenčný bod na súradniciach 2,2 a druhý bod je na 3,4 , použite kód :

X1 = 2

Y1 = 2

X2 = 3

Y2 = 4
3

Vypočítajte vertikálna vzdialenosť medzi dvoma bodmi

Rise = Y2 - . Y1
stránka 4

Vypočítajte horizontálna vzdialenosť medzi dvoma bodmi

Run = X2 - . X1
5

Vypočítajte arctan horizontálna vzdialenosť delené zvislej vzdialenosti :

angleRadians = Atn ( Rise /Run )

azimut = angleRadians * 180 /Pi
6

Upravte výsledky podľa toho , či sú horizontálne a vertikálne vzdialenosti sú pozitívne alebo negatívne . Ak sú oba pozitívne , čo ste urobil . Ak iba zvislá vzdialenosť je záporná , pridajte 180 stupňov na odpoveď v kroku 3. Ak sú oba negatívne , pridajte 180 stupňov . Ak iba vodorovná vzdialenosť je záporná , pridajte 360 stupňov .

Ak Rise < 0 Then

azimut = azimut + 180

Else If Run < 0 Then

azimut = azimut + 360

End If

• Predchádzajúca strana: Výukový program Visual Basic for MSN 
• Ďalšia strana: Ako vidieť formuláre Beh v VB6