La distanza e la rotta tra due punti su un globo possono essere calcolati utilizzando due formule. Il problema è ben definito e serve come un compito facile per un linguaggio di programmazione come Visual Basic . Tuttavia, una scelta deve essere fatta tra una retta , naturalmente immutabile ( lossodromiche ) o un corso curvo più efficiente che sfrutta la curva della Terra . Istruzioni
1
Creare un nuovo progetto facendo clic su "File" e " Nuovo progetto ".
2
resistenza quattro etichette di fuori della casella degli strumenti e nel progetto e disporle in una linea da cima a fondo . Clicca ogni etichetta e , nel riquadro Proprietà, modificare il campo di testo in modo che leggono "Avvio di Latitude ", " Ending Latitude ", "Avvio Longitude ", "Ending Longitude ".
3 < p > Trascinare quattro caselle di testo fuori dalla cassetta degli attrezzi e posto uno appena a destra di ogni etichetta . Fare clic su ogni casella di testo e , nella finestra delle proprietà , modificare il campo nome per riflettere i seguenti nomi : . " StartLatTextBox , " " endLatTextBox , " " startLongTextBox ", " endLongTextBox "
4
Trascinare un pulsante dalla casella degli strumenti e metterlo in fondo il progetto . . Doppio clic su di esso per accedere all'editor di codice
5
Incollare il seguente all'interno del metodo " Button1_Click " :
Dim Slat = Double.Parse ( startLatTextBox.Text ) per
Dim slong = Double.Parse ( startLongTextBox.Text ) per
Dim Elat = Double.Parse ( endLatTextBox.Text ) per
Dim eLong = Double.Parse ( endLongTextBox.Text ) < br >
Dim DLAT = D2R (Eilat - Slat ) per
Dim dLong = D2R ( eLong - slong ) per
Dim DPHI = Math.log ( Math.Tan (Eilat /2 + Math . PI /4 ) /Math.Tan ( Slat /2 + Math.PI /4) ) per
Dim q = new double
( DPHI = 0) allora
< p > q = Math.cos ( SLAT ) per
Else
q = DLAT /DPHI
End If
( Math.Abs ( dLong ) > , Math.PI ) Poi
IIf ( dLong > 0 , dLong = ( 2 * Math.PI - dLong ) * -1 , dLong = 2 * Math.PI + dLong ) per
End If
Dim earthRadius = 6.371 km REM
Dim distanza = Math.Sqrt ( DLAT ^ 2 + q ^ 2 * dLong ^ 2) * earthRadius
Dim cuscinetto = Math.atan2 ( dLong , DPHI ) per cuscinetto
= cuscinetto * 180 /Math.PI
MessageBox.Show ( " distanza = " & distanza & " . Corso =" & cuscinetto ) < br >
Il codice di cui sopra fa uso di una funzione che non esiste ancora, quindi incollare il seguente codice direttamente sotto la dicitura " end Function " per " D2R " ( gradi in radianti ) " Button1_Click ".
< p > Funzione Pubblica D2R ( Angolo ByVal As Double ) As Double
D2R = angolo * Math.PI /180
End Function
6
Fare clic sulla freccia verde per avviare il programma . Ora è possibile inserire una qualsiasi coppia di coordinate di latitudine e longitudine ( in formato decimale) e trovare la distanza tra di loro ( in chilometri ) e il cuscinetto ( in gradi) per raggiungere la destinazione .
