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

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

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

Public Const Pi As Double = 3,14159 26535 89793

Dim AngleRadians As Double

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

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

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

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

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

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

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

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

X1 = 2

Y1 = 2

Χ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 τότε

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

End If
Η
εικόνων