Πώς να υπολογίσετε αζιμούθιο μεταξύ των σημείων σε VB

Μια αζιμούθιο είναι μια περίπλοκη ηχώντας όνομα για μια σχετικά απλή , μαθηματική έννοια . Μια αζιμούθιο είναι ουσιαστικά μόνο η γωνία μεταξύ της γραμμής και μια άλλη γραμμή αναφοράς . Κανονικά αυτό είναι που υπολογίζεται για ένα σημείο , όχι, μια γραμμή , έτσι ώστε οι γραμμές που σχηματίζονται από την επιλογή ένα σημείο κέντρο, καθώς , το οποίο δρα ως τελικό σημείο τόσο για τη γραμμή αναφοράς και τη γραμμή για την οποία θέλετε να υπολογίσετε το αζιμούθιο . Με αυτό το ισχυρό μαθηματικά εργαλεία , υπολογίζοντας το αζιμούθιο σε VB είναι ένα συμπληρωματικό πρόγραμμα . Οδηγίες
Η 1

Πληκτρολογήστε τις ακόλουθες δηλώσεις στην αρχή του κώδικα VB σας :

Public Const Pi As Double = 3,14159 26535 89793

Dim AngleRadians As Double < br >

Dim αζιμούθιο As Double

Dim X1 ως Ακέραιος

Δημ. Y1 ως Ακέραιος

Dim Χ2 όπως Ακέραιος

Δημ. Υ2 ως Ακέραιος < br >

Dim Rise As Double ' συντεταγμένη Y ή πλευρά απέναντι γωνία

Dim Run As Double ' X συντονίζει ή πλευρά δίπλα στην γωνία 2

Εκχώρηση τις τιμές των Χ και Υ συντεταγμένες για τα δύο σημεία. Για παράδειγμα , εάν το σημείο αναφοράς είναι στις συντεταγμένες 2,2 και το δεύτερο σημείο είναι στο 3,4 , χρησιμοποιήστε τον κωδικό :

X1 = 2

Y1 = 2
< p > Χ2 = 3

Υ2 = , 4 φωτογραφίες 3

Υπολογίστε την κάθετη απόσταση μεταξύ των δύο σημείων

Rise = Υ2 - . Y1
Φτηνές 4

Υπολογίστε την οριζόντια απόσταση μεταξύ των δύο σημείων

Run = Χ2 - . X1
5

Υπολογίστε το aRCTAN της οριζόντιας απόστασης διαιρείται με την κάθετη απόσταση :

AngleRadians = Atn ( άνοδος /Run )

αζιμούθιο = AngleRadians * 180 /Pi
Η 6

Ρυθμίστε τα αποτελέσματα ανάλογα με το αν οι οριζόντιες και κάθετες αποστάσεις είναι θετικό ή αρνητικό. Αν και οι δύο είναι θετικά , είστε έτοιμοι. Εάν μόνο η κατακόρυφη απόσταση είναι αρνητική , προσθέστε 180 μοίρες προς την απάντηση στο βήμα 3 . Αν και οι δύο είναι αρνητική , προσθέστε 180 μοίρες . Εάν μόνο η οριζόντια απόσταση είναι αρνητική , προσθέστε 360 μοίρες .

Αν Rise < 0 Τότε

αζιμούθιο = αζιμούθιο + 180

Διαφορετικά εάν Run < 0 τότε < br >

αζιμούθιο = αζιμούθιο + 360

End If
Η
εικόνων