Avstanden og kurs mellom to punkter på en globus kan beregnes ved hjelp av to formler. Problemet er godt definert og fungerer som en enkel oppgave for et programmeringsspråk som Visual Basic. Imidlertid må et valg gjøres mellom en rett , uforanderlig kurs ( Rhumb linjer) eller en mer effektiv buet kurs som tar fordel av kurven av jorden. Instruksjoner
en
Lag et nytt prosjekt ved å klikke på "File" og "New Project ".
2
Drag fire etiketter ut av verktøykassen og inn i prosjektet og arrangere dem i en linje fra topp til bunn. Klikk hver etikett , og i eiendommer boksen endrer tekstfeltet slik at de leser "Starte Latitude ", " Ending Latitude, " "Starte og lengdegrad », « Ending lengdegrad . "
3
Dra fire tekstbokser ut av verktøykassen og sted man bare til høyre for hver etikett . Klikk hver tekstboks , og i eiendommer boksen , endre navnet for å gjenspeile følgende navn : ". StartLatTextBox ", " endLatTextBox ", " startLongTextBox ", " endLongTextBox "
4
Dra en knapp fra verktøykassen og sette den på bunnen av prosjektet. . Dobbeltklikk på den for å taste inn koden redaktør
5
Lim inn følgende innenfor " button1_click "-metoden : en
Dim slat = Double.Parse ( startLatTextBox.Text )
Dim Slong = Double.Parse ( startLongTextBox.Text )
Dim Elat = Double.Parse ( endLatTextBox.Text )
Dim eLong = Double.Parse ( endLongTextBox.Text )
Dim DLAT = D2R ( Elat - slat )
Dim dLong = D2R ( eLong - Slong )
Dim DPHI = Math.Log ( Math.Tan ( Elat /2 + Math . PI /4 ) /Math.Tan ( slat /2 + Math.PI /4 ) )
Dim q = Ny Double
p Hvis ( DPHI = 0) Then
< p > q = Math.Cos ( lamell )
Else
q = DLAT /DPHI
End If
p Hvis ( Math.Abs ( dLong ) > ; Math.PI ) Så
IIf ( dLong > 0 , dLong = ( 2 * Math.PI - dLong ) * -1 , dLong = 2 * Math.PI + dLong )
End If
Dim earthRadius = 6371 REM kilometer
Dim avstand = Math.sqrt ( DLAT ^ 2 + q ^ 2 * dLong ^ 2 ) * earthRadius
Dim peiling = Math.Atan2 ( dLong , DPHI )
peiling = peiling * 180 /Math.PI
MessageBox.Show ( "Distance = " & distanse & " . Course = " & peiling )
ovennevnte koden gjør bruk av en " D2R " ( grader til radianer ) funksjon som ikke eksisterer ennå, så lim inn følgende kode rett under "end -funksjon " statement for " button1_click . "
< p > Public Function D2R ( ByVal Angle As Double ) Som Double
D2R = Angle * Math.PI /180
End Function
6
Klikk på den grønne pilen for å starter programmet . Du kan nå skrive inn en hvilken som helst par av lengde-og breddegrader ( i desimal format) og finne avstanden mellom dem ( i kilometer ) og peiling ( i grader ) for å nå målet .
