Conversion lat/long en coordonnées utm

Soyez le premier à donner votre avis sur cette source.

Vue 95 730 fois - Téléchargée 25 761 fois

Description

Tous les randonneurs (dont je suis) savent qu'il est quasiment impossible d'utiliser les coordonnées Lat/Long sur une carte .Heureusement il y a un système de coordonnées plus accessible l'UTM (Universe Transverse Mercator).Ce petit programme permet d'effectuer la conversion des coordonnées Lat/long en coordonnées UTM.Si vous le couplez avec un GPS en liaison NMEA vous avez un début de positionneur sur carte.

Conclusion :


Le précédent programme avait une erreur de l'ordre de 30m (soit 1,2 mm sur une carte au 25000)je pensais que ça ne gènerai pas mais quand j'ai fait l'essai réel sur mon appli, j'ai été agacé par ce petit écart!J'ai donc repris le programme et d'aprés mes vérification l'ecart maximum que j'ai trouvé est maintenant de moins de 7m.D'autre part, il est bien utilisable sur l'hémisphère sud, ce qui était moins sur avec le précédent.Dans le ZIP il y a la forme qui permet de saisir les données de latitude et longitude. Ne pas oublier de mettre les directions E/W et N/S.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

ScSami
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
18 -
Arf, il aurait été bien de mettre un petit zip avec le code et sa fenêtre ainsi qu'un screen shoot mais bon, sinon c'est sympa de nous faire partager cette source :D
bbcluny
Messages postés
66
Date d'inscription
mardi 25 mars 2003
Statut
Membre
Dernière intervention
29 septembre 2008
-
Source interressante, domamge qu'il manque un zip.
CADRATURE
Messages postés
26
Date d'inscription
mercredi 26 novembre 2003
Statut
Membre
Dernière intervention
13 juin 2009
-
Un grand merci pour ce code.


Dans la ligne suivante
Dim b, f, e, deg_RAD, longrad, latgrad, latgrade_J6, one_e2 As Double
Seule la variable one_e2 est de type Double

Dans d'autres circonstances (et pas dans ce code) cela peut être gênant et produire des erreurs. Voir exemple ci-dessous.

Il vaut mieux séparer les déclarations
Dim b as Double
Dim f as Double
Dim e as Double
etc...
ou bien
Dim b as Double, f as Double, e as Double etc...

========================================
Exemple:
======

Dim A, E, G, B As Double
Dim C As Double
B = 2.07
A = B
E = 3
C = test(B)
'C = test(A) << argument type mismatch

Debug.Print VarType(A) ' = 5 vbDouble
Debug.Print VarType(B) ' = 5 vbDouble
Debug.Print VarType(E) ' = 2 vbInteger
Debug.Print VarType(G) ' = 0 vbEmpty (uninitialized)



Public Function test(paramB As Double) As Double
Dim dResult As Double
dResult = 10 * paramB
test = dResult
End Function
cs_Mauricet
Messages postés
89
Date d'inscription
lundi 3 mars 2003
Statut
Membre
Dernière intervention
28 juillet 2008
-
Bonjour
Merci pour le code qui fonctionne mais je n'ai pas vérifier son exactitude
Il est inutile de redéclarer les variables dans la form mais il est utile dans le module de les déclarer as Integer
A bientôt
Maurice
cs_Mauricet
Messages postés
89
Date d'inscription
lundi 3 mars 2003
Statut
Membre
Dernière intervention
28 juillet 2008
-
Bonjour
Vérification WGS84 fuseau 31
IGN 681136,676368 5614137,94606
VB6 681196,802972 5614141,28008
Le type des variable devrait être double autant que possible
Revoir les types de variables pour une meilleure précision
A bientôt
Maurice

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.