De afstand en natuurlijk tussen twee punten op een bol kan worden berekend met behulp van twee formules . Het probleem is goed gedefinieerd en dient als een gemakkelijke taak voor een programmeertaal zoals Visual Basic . Echter , moet een keuze worden gemaakt tussen een straight , onveranderlijke natuurlijk ( Rhumb lijnen ) of een efficiëntere gebogen cursus die gebruik maakt van de curve van de aarde . Instructies
1 Maak een nieuw project door te klikken op " File " en " New Project . "
Drag 2 vier labels uit de gereedschapskist en in uw project en schik ze in een lijn van boven naar beneden . Klik op elk etiket en , in het vak eigenschappen , verandert het tekstveld , zodat ze lezen " Vanaf Latitude , " " Ending Latitude , " "Starten Longitude , " " Ending Longitude . "
3 Sleep vier tekstvakken uit de toolbox en plaats een net rechts van elk etiket . Klik op elk tekstvak en , in het vak eigenschappen , wijzigt u het veld naam om de volgende namen te geven: . " StartLatTextBox , " " endLatTextBox , " " startLongTextBox , " " endLongTextBox "
4 Sleep een knop uit de gereedschapskist en zet het op de bodem van het project . . Dubbelklik op het aan de code-editor in te voeren
5 Plak volgende binnen de " Button1_Click " methode: Dim Slat
= Double.Parse ( startLatTextBox.Text ) op Twitter Dim slong = Double.Parse ( startLongTextBox.Text ) Dim Elat
= Double.Parse ( endLatTextBox.Text ) Dim eLong = Double.Parse
( endLongTextBox.Text ) < br > Dim DLAT = D2R ( Elat - latje ) op Twitter Dim dLong = D2R ( eLong - slong ) Dim dPhi
= Math.log ( Math.Tan ( Elat /2 + Math . PI /4 ) /Math.Tan ( latje /2 + Math.PI /4 ) ) Dim q
= Nieuwe Dubbele
Als ( dPhi = 0 ) dan
q = Math.cos ( lamel ) op Else q End of = DLAT /dPhi
Als
Als ( Math.abs ( dLong ) > ; Math.PI ) dan IIf
( dLong > 0 , dLong = ( 2 * Math.PI - dLong ) * -1 , dLong = 2 * Math.PI + dLong ) op Twitter end If Dim earthRadius
= 6371 REM kilometer Dim afstand
= Math.Sqrt ( DLAT ^ 2 + q ^ 2 * dLong ^ 2 ) * earthRadius Dim lager
= Math.Atan2 ( dLong , dPhi ) lager
= bearing * 180 /Math.PI MessageBox.Show
( " Afstand = " & afstand & " . Course = " & bearing ) < br > de bovenstaande code maakt gebruik van een " D2R " ( graden naar radialen ) functie die niet bestaat nog niet, dus de volgende code direct onder de " end -functie " verklaring voor plakken " Button1_Click . "
Public Function D2R ( ByVal Hoek As Double ) As Double D2R = Hoek * Math.PI /180 End Function
6
Klik op de groene pijl om start uw programma. U kunt nu een paar van lengte-en breedtegraad coördinaten ( in decimale notatie ) en vind de afstand tussen hen ( in kilometers ) en richting ( in graden ) om de bestemming te bereiken .
< br > |
