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

Visual Basic ή VB είναι μια γλώσσα προγραμματισμού της Microsoft που χρησιμοποιείται ευρέως fordeveloping επαγγελματικές και προσωπικές εφαρμογές . Παρέχει στους χρήστες με μια σειρά από ελέγχους , τα αντικείμενα και τις ιδιότητες για να κωδικοποιήσει και να επανεξετάσει την πρόοδο των εργασιών μέσα από μια διαισθητική γραφική διεπαφή χρήστη . VB μπορεί να σας βοηθήσει να εκτελέσει απλές εργασίες να προχωρήσουν , όπως ο υπολογισμός του αζιμουθίου , με τη βοήθεια ενσωματωμένες μαθηματικές συναρτήσεις . Αζιμούθιο είναι μια γωνιακή μέτρηση που χρησιμοποιείται για τον προσδιορισμό της θέσης των αντικειμένων στην ουράνια σφαίρα . Είναι γενικά μετράται αρχίζοντας από το σημείο βόρεια του ορίζοντα και αντιπροσωπεύει την γωνία του διαχωρισμού μεταξύ δύο απομακρυσμένων σημείων σε ένα οριζόντιο επίπεδο. Οδηγίες
Η 1

Ξεκινήστε το έργο της Visual Basic στο οποίο θα υπολογίσει το αζιμούθιο . 2

Ορίστε το Χ ( πλάτος) και Y ( μήκος) συντεταγμένες για τα δύο σημεία που θέλετε να χρησιμοποιήσετε για τον υπολογισμό αζιμούθιο . Για παράδειγμα : Αζιμούθιο Public Function ( lat1 , lon1 , lat2 , lon2 ) ως

διπλό

Xcord = ( lon2 - lon1 ) ως διπλή

Ycord = ( lat2 - lat1 ) ως διπλή
εικόνων 3

Χρησιμοποιήστε τη λειτουργία μαθηματικά ATAN να υπολογίσει το αζιμούθιο , ως εξής . Ο υπολογισμός θα οδηγήσει σε ακτίνια μονάδες .

Αζιμούθιο = ATAN ( Xcord /Ycord )
Η 4

Δημιουργήστε μια ρητή λειτουργία χρησιμοποιώντας το " rad2deg " και " CDbl " λειτουργίες για να μετατρέψετε το αποτέλεσμα από ακτίνιο μονάδες σε μοίρες , αφού αζιμούθιο μετριέται σε μοίρες . Για παράδειγμα :

rad2deg Λειτουργία ( rad )

rad2deg = CDbl ( rad * 180 /π )

Function End

Η