|
La distance et le cap entre deux points sur une planète peuvent être calculées à l'aide de deux formules. Le problème est bien défini et sert une tâche facile pour un langage de programmation comme Visual Basic. Cependant, un choix doit être fait entre un cours immuable droite ( loxodromies ) ou un cours courbe plus efficace qui tire parti de la courbe de la Terre. Instructions
1 Créez un nouveau projet en cliquant sur " Fichier" et "Nouveau projet ".
2 Drag quatre étiquettes sur la boîte à outils et dans votre projet et d'organiser leur dans une ligne de haut en bas . Cliquez sur chaque étiquette et , dans la boîte de propriétés , modifiez le champ de texte afin qu'ils lisent " Latitude partir », « Fin Latitude », « À partir Longitude », « Fin Longitude ».
3 Faites glisser quatre zones de texte de la boîte à outils et un lieu juste à la droite de chaque étiquette . Cliquez sur chaque zone de texte et , dans la boîte de propriétés , modifiez le champ de nom pour refléter les noms suivants: ". StartLatTextBox », « endLatTextBox », « startLongTextBox », « endLongTextBox "
4 Faites glisser un bouton à partir de la boîte à outils et le mettre au fond du projet. . Double- cliquez pour entrer dans l'éditeur de code
5 Collez le texte suivant dans la méthode " Button1_Click ":
lamelle Dim = Double.Parse ( startLatTextBox.Text )
Dim Slong = Double.Parse ( startLongTextBox.Text )
Dim Elat = Double.Parse ( endLatTextBox.Text )
Dim eLong = Double.Parse ( endLongTextBox.Text ) < br > Dim Dlat = D2R (Eilat - SLAT )
Dim Dlong = D2R ( eLong - Slong )
Dim dPhi = Math.Log ( Math.Tan (Eilat /2 + Math . PI /4) /Math.Tan ( SLAT /2 + Math.PI /4) )
Dim q = New Double
( dPhi = 0) alors
q = Math.Cos ( SLAT )
Else
q = Dlat /dPhi
End If
( Math.Abs ( Dlong ) > ; Math.PI ) Puis
IIf ( Dlong > 0, Dlong = (2 * Math.PI - Dlong ) * -1 , Dlong = 2 * Math.PI + Dlong )
End If
earthRadius dim = 6371 km de REM
loin Dim = Math.Sqrt ( Dlat ^ 2 + q ^ 2 * Dlong ^ 2) * earthRadius
roulement Dim = Math.Atan2 ( Dlong , dPhi )
roulement = roulement * 180 /Math.PI
MessageBox.Show (" Distance =" et distance & ". Course =" & butée) < br > le code ci-dessus utilise une fonction qui n'existe pas encore , alors collez le code suivant directement en dessous de la fonction " fin " déclaration de « D2R " ( degrés en radians ) " Button1_Click ".
D2R de la fonction publique ( Angle ByVal As Double ) As Double
D2R = Angle * Math.PI /180
End Function
6 Cliquez sur la flèche verte pour commencer votre programme . Vous pouvez maintenant entrer n'importe quelle paire de coordonnées de latitude et de longitude ( au format décimal ) et trouver la distance entre eux (en kilomètres) et le palier ( en degrés) pour atteindre la destination .
|
