NMEA ANALYSER TRACAGE DU PARCOURS EN 2D ET 3D + EXPORTATION EXCEL ET GOOGLE EART
pwoc
Messages postés
38
Date d'inscription
samedi 18 janvier 2003
Statut
Membre
Dernière intervention
25 décembre 2007
-
14 mars 2006 à 07:45
zied86 Messages postés 85 Date d'inscription dimanche 5 mars 2006 Statut Membre Dernière intervention 4 août 2014 - 15 juil. 2008 à 15:44
zied86 Messages postés 85 Date d'inscription dimanche 5 mars 2006 Statut Membre Dernière intervention 4 août 2014 - 15 juil. 2008 à 15:44
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/36528-nmea-analyser-tracage-du-parcours-en-2d-et-3d-exportation-excel-et-google-earth
https://codes-sources.commentcamarche.net/source/36528-nmea-analyser-tracage-du-parcours-en-2d-et-3d-exportation-excel-et-google-earth
15 juil. 2008 à 15:44
15 mars 2008 à 13:58
pour rdechap
long1_lonA = 430,24602
' long1_LatA = 4355,40266
' RM2.Fields("Longitude") = 430,22218
' RM2.Fields("Latitude") = 4355,28036
4355,28 signifie 43 degres et 55 minutes tu n'est pas dans le bon format
convertis tes valeurs en 43,.......
essaye MyDegree( 4355.28036)
ou
MyDegree("4355,28036")
attention la condition
If latB - latA 0 Then Dst_PP 0: Exit Function
est fausse puisque la longitude peut varier
tu peut essayer un truc de ce genre
If Latb Lata Then Dst_PP abs(lona - lonb) * 1.853:exit sub
If Lona Lonb Then Dst_PP abs(latb - lata )* 1.853:exit sub
bon autremment j'arrive pas a le faire marcher:-(
dommage mais le code est interresant
18 déc. 2007 à 19:08
j'essai d'utiliser votre fonction pour calculer la distance entre deux points GPS.... au lieu de trouver une distance d'aproximativement 620m cela me retourne 17m....
les coordonées sont en commentaire dans le code.
Merci d'avance pour votre aide,
'definition des variables
Global long1_lonA, long1_LatA
Private Sub P_Map_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'pour info
' long1_lonA = 430,24602
' long1_LatA = 4355,40266
' RM2.Fields("Longitude") = 430,22218
' RM2.Fields("Latitude") = 4355,28036
''''' Calcul de la distance
msgbox Dst_PP(Val(long1_lonA), Val(long1_LatA), Val(RM2.Fields("Longitude")), Val(RM2.Fields("Latitude")))
End Sub
Function Dst_PP(ByVal lonA, ByVal latA, ByVal lonB, ByVal latB)
Const PI = 3.14159265358979
Const rad = 0.0174532925
lonA = lonA * rad
lonB = lonB * rad
latA = latA * rad
latB = latB * rad
If latB - latA 0 Then Dst_PP 0: Exit Function
Dst_PP = (1 / rad) * 1.853 * 60 * ArcCos(Cos(latA) * Cos(latB) * Cos(lonB - lonA) + Sin(latA) * Sin(latB)) 'On multiplie par 1.853 pour convertir en Km car ce sont des miles
Dst_PP = FormatNumber(Dst_PP, 4)
End Function
Function ArcSin(X)
ArcSin = Atn(X / Sqr(-X * X + 1))
End Function
Function ArcCos(X)
ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function
23 oct. 2006 à 18:57
http://www.vbfrance.com/code.aspx?ID=40043
Montrant comment charger des données KML dans GoogleEarth. Pour une idée d'Amélioration qui serait ouvrir GE et voir le fichier KML automatiquement après génération.
Pour les 276 kmh le record du monde étant environ de 250 km/h ca va être difficile de faire passer ca pour une perf perso :)
23 oct. 2006 à 17:44
tu dois etre quelqu'un de là bas pour m'avoir sorti les caractéristiques de chaques remontesé (tu dois etre pisteur, ou quelque chose dans le genre...) ou alors tu y es parti pendant les vacances de printemps après avoir vu mon post...
bon effectivement la fonction de calcul de distance ne prend pas en compte l'altitude, mais du faite que dans les telecabines on est entouré de fer, le gps ne recoit pas forcement une position exacte (erronée) c'est peut etre ce qui explique les ecart d'1 ou 2 km/h.
par contre ce qui m'embette le plus c'est les valeurs comme 276km/h, j'ai pas d'idée pour les traiter convenablement...
si quelqu'un à une idée ??? jsuis preneur
voila une bonne occasion de modifier ma source
merci pour ce commentaire
23 oct. 2006 à 14:19
Pour la station vu que personne n'a répondu c'est le Mont d'Arbois (on ne sais jamais si tu change d'avis pour la récompense).
Pour le calcul des vitesses : sur ce circuit tu as pris les télécabine BETEX-ARBOIS et PRINCESSE + plusieurs fois le télésiege ARBOIS. Ce que l'on peut voir c'est que sur le TCD12 du Bettex-Arbois qui est donné pour une vitesse d'exploitations de 5m/s (18km/h) on retrouve bien les 18km/h mais avec des pointes à 19 et des ralentissements à 17 de même pour le TCD8 de la Princesse lui a 6m/s (21 Km/h) on a une variation entre 5 et 24 km/h par contre on retrouve bien le temps de montée de 8 minutes (12H28/12h36) . Tout ca pour dire que a mon avis les vitesses ne sont pas calculés très exactement La dimensions altitude et dénivelé ne doit pas être prise en compte. Dans les Landes c'est pas grave mais quand tu passes de 1300 à 1800 c'est un peu plus important.
30 avril 2006 à 20:33
30 avril 2006 à 13:13
Je suis membre,j ai entre le code par telephone !!
A plusme
Tinbo
14 mars 2006 à 22:20
14 mars 2006 à 17:57
et je repond à Bouv par la meme occaz, je ne fait pas fonctionnner une appli VB6 sur PPC, avec Tomtom qui est sur mon PPC j'ai la possibilité d'enregistrer les trames dans un fichier de log (dans la memoire interne ou sur une carte SD) puis ensuite je recupère ce fichier sur mon PC par l'intermédiaire de l'usb et puis analyse par mon programme.
Après si ta question n'est pas forcement axé sur mon prog et si tu veux faire une appli VB sur PPC il ya 2 moyens:
1- genre VB6 : telecharger et installer eVB (embedded Visual Basic) : eVT2002web_min.exe, c'est presque la meme IDE que VB6
2- si ton PPC est assé recent genre Windows Mobile 5, tu peut le faire avec le
.Net Compact Framework (v1 ou v2(récement)) et à ce moment là c'est très simple, il te suffit juste d'avoir VB 2005 (je rappel que la version Express est téléchargeable gratuitement sur le site de MS) car VB 2005 propose par defaut de faire des applis PPC et SmartPhone.
voila
maintenant qu'il ya la form1 vous allez pouvoir noter :p
VBSorcier
14 mars 2006 à 10:46
14 mars 2006 à 10:43
276 Km/H... tu as fait ça en moto ?
Effectivement le zip est incomplet.
14 mars 2006 à 09:49
Je suis intéressé par ce programme .... mais il manque effectivement la form principale, ce qui est on ne peut plus génant !!!
@+
14 mars 2006 à 07:54
------------------------------------
14/03/2006 07:53:40 Oublie de la form principale aussi, non ?
;)
14 mars 2006 à 07:45
Pour le calcul des distances, j'utilise la formule de Vincenty, expliquée ici (avec du javascript) : http://www.movable-type.co.uk/scripts/LatLongVincenty.html
Sinon beau projet :d