Come calcolare il Corso e distanza in VB

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

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 )

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

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 )

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 ".

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 .

• Come utilizzare un debugger remoto 
• Come convertire WMA in MP3 in Visual Basic 2008