Πώς να υπολογίσετε Course & εξ Αποστάσεως σε VB

Η απόσταση και η διάρκεια μεταξύ δύο σημείων σε μια υδρόγειο σφαίρα μπορεί να υπολογιστεί με δύο τύπους. Το πρόβλημα είναι σαφώς καθορισμένες και χρησιμεύει ως ένας εύκολος στόχος για μια γλώσσα προγραμματισμού όπως η Visual Basic . Ωστόσο , η επιλογή πρέπει να γίνει μεταξύ μιας ευθείας , αμετάβλητη πορεία ( γραμμές Rhumb ) ή μια πιο αποτελεσματική καμπυλωτή πορεία που εκμεταλλεύεται την καμπύλη της Γης . Οδηγίες
Η

1 Δημιουργήστε ένα νέο έργο κάνοντας κλικ στο " Αρχείο" και "New Project ". 2

Σύρετε τέσσερις ετικέτες έξω από την εργαλειοθήκη και στο έργο σας και να οργανώσει τους σε μια γραμμή από πάνω προς τα κάτω . Κάντε κλικ σε κάθε ετικέτα και , στο πλαίσιο ιδιοτήτων , αλλάξτε το πεδίο κειμένου , έτσι ώστε να διαβάζουμε " ​​Ξεκινώντας Latitude ", " Τερματισμός Latitude ", " Ξεκινώντας Μήκος ", " Τερματισμός μήκος . "
Εικόνων 3 < p > Drag τέσσερα πλαίσια κειμένου από την εργαλειοθήκη και τοποθετήστε το ένα στα δεξιά της κάθε ετικέτας . Κάντε κλικ σε κάθε πλαίσιο κειμένου και , στο πλαίσιο ιδιοτήτων , αλλάξτε το πεδίο όνομα για να αντικατοπτρίζει τις ακόλουθες ονομασίες: . " StartLatTextBox ", " endLatTextBox ", " startLongTextBox , " " endLongTextBox "
Η 4

Σύρετε ένα κουμπί από την εργαλειοθήκη και το βάζουμε στο κάτω μέρος του έργου . Κάντε διπλό κλικ για να εισάγετε τον κωδικό editor
5

Επικολλήστε τον ακόλουθο πλαίσιο της μεθόδου " Button1_Click " : .

Δημ. Πήχεως = Double.Parse ( startLatTextBox.Text )

Δημ. slong = Double.Parse ( startLongTextBox.Text )

Δημ. Ελάτ = Double.Parse ( endLatTextBox.Text )

Dim eLong = Double.Parse ( endLongTextBox.Text ) < br >

Δημ. DLAT = D2R ( Ελάτ - γρίλλια )

Dim dLong = D2R ( eLong - slong )

Dim dPhi = Math.Log ( Math.Tan ( Ελάτ /2 + Math . PI /4 ) /Math.Tan ( πήχεως /2 + Math.PI /4 ) )

Dim q = Νέα Διπλή

Αν ( dPhi = 0 ) τότε
< p > q = Math.cos ( γρίλλια )

υπόλοιπα

q = DLAT /dPhi

End If

Αν ( Math.Abs ​​( dLong ) > ? Math.PI ) Στη συνέχεια

IIf ( dLong > 0 , dLong = ( 2 * Math.PI - dLong ) * -1 , dLong = 2 * Math.PI + dLong )

End If

Dim earthRadius = 6371 REM χιλιόμετρα

Dim απόσταση = Math.sqrt ( DLAT ^ 2 + q ^ 2 * dLong ^ 2 ) * earthRadius

Dim ρουλεμάν = Math.Atan2 ( dLong , dPhi )

ρουλεμάν = ρουλεμάν * 180 /Math.PI

MessageBox.Show ( " Απόσταση = " & απόσταση & " . Course = " & ρουλεμάν ) < br >

η παραπάνω κώδικας κάνει χρήση ενός " D2R " ( μοίρες σε ακτίνια ) λειτουργία που δεν υπάρχει ακόμα , οπότε επικολλήστε τον παρακάτω κώδικα ακριβώς κάτω από το «τέλος της λειτουργίας " δήλωση " Button1_Click . "