1 Δημιουργήστε ένα νέο έργο κάνοντας κλικ στο " Αρχείο" και "New Project ". 2
Σύρετε τέσσερις ετικέτες έξω από την εργαλειοθήκη και στο έργο σας και να οργανώσει τους σε μια γραμμή από πάνω προς τα κάτω . Κάντε κλικ σε κάθε ετικέτα και , στο πλαίσιο ιδιοτήτων , αλλάξτε το πεδίο κειμένου , έτσι ώστε να διαβάζουμε " Ξεκινώντας Latitude ", " Τερματισμός Latitude ", " Ξεκινώντας Μήκος ", " Τερματισμός μήκος . "
Εικόνων 3
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 )
Δημ. 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 ) τότε
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 = " & ρουλεμάν )
η παραπάνω κώδικας κάνει χρήση ενός " D2R " ( μοίρες σε ακτίνια ) λειτουργία που δεν υπάρχει ακόμα , οπότε επικολλήστε τον παρακάτω κώδικα ακριβώς κάτω από το «τέλος της λειτουργίας " δήλωση " Button1_Click . "
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα