| Home  | Υλικό υπολογιστών  | Δικτύωση  | Προγραμματισμός  | λογισμικό  | ερώτηση  | συστήματα  |  
Προγραμματισμός  
  • C /C + + Προγραμματισμός

  • Προγραμματισμός Υπολογιστών Γλώσσες

  • Δελφοί Προγραμματισμός

  • Προγραμματισμός Java

  • JavaScript Προγραμματισμός

  • PHP /MySQL Προγραμματισμός

  • Perl Προγραμματισμός

  • Python Προγραμματισμός

  • ρουμπίνι Προγραμματισμός

  • Visual Βασικά Προγραμματισμός
  •  
    Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός >> Content
    Πώς να υπολογίσετε αζιμούθιο μεταξύ των σημείων σε 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
    Η
    εικόνων

    Previous :

    next :
      Σχετικά Άρθρα
    ·Πώς να Τοποθετήστε Τυχαία χαρακτήρες σε ένα…
    ·Visual Basic : Πώς να δημιουργήσετε ένα Array εικόνας…
    ·Class & Αντικειμένων σε VB 6.0 Tutorial 
    ·Πώς να επεξεργαστείτε το μητρώο, Vb.Net 
    ·Πώς να ελέγξετε αν μια Μοιραστείτε έχει πλήρ…
    ·Πώς να εγκαταστήσετε VisualStudio.Net 
    ·Πώς να χρησιμοποιήσετε ένα SWF σε VB MDI Form 
    ·Τι είναι Mswinsck.ocx 
    ·Πώς να δημιουργήσετε μια γραμμή προόδου 
    ·Πώς να μετατρέψετε ένα Textbox σε έναν αριθμό σε…
      Προτεινόμενα άρθρα
    ·Ορισμός της HTML Προγραμματισμός 
    ·Πώς να αλλάξετε το χρώμα σε ένα κελί της DataGri…
    ·Πώς να ελέγξει έναν ιδιοκτήτη αρχείου σε PHP 
    ·Προγράμματα σε C + + που θα αντιστρέψει μια φρ…
    ·Πώς μπορείτε να διαπιστώσετε το μήκος του Λε…
    ·Πώς να αφαιρέσει το Windows Crestline 
    ·Πώς να δημιουργήσετε OCX σε Visual Basic NET 
    ·Πώς να εργαστείτε με Κουτάκια πολλαπλών επι…
    ·Πώς να Αποσυμπιέστε το αρχείο σε C # 
    ·Πώς να αναλύσει ένα αρχείο XML 
    Copyright © Γνώση Υπολογιστών http://el.wingwit.com