CONVERSION LAT/LONG EN COORDONNÉES UTM

Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
- - Dernière réponse : Euskadia
Messages postés
1
Date d'inscription
mardi 27 juillet 2010
Statut
Membre
Dernière intervention
28 mars 2011
- 28 juil. 2010 à 15:23
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/36090-conversion-lat-long-en-coordonnees-utm

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
BarresLTD
Messages postés
4
Date d'inscription
samedi 4 février 2006
Statut
Membre
Dernière intervention
16 mai 2008
-
Merci pour vos commentaires et vos encouragements.Quand j'ai utilisé cette application je me suis rendu compte d'une erreur de l'ordre de 30m (ce qui sur une carte IGN au 25000 ne représente que 1,2 mm...).C'est aussi ce qu'a trouvé Mauricet avec une erreur de l'ordre de 60m.J'ai donc repris les calculs et pris un autre algorithme qui me donne une précision de l'ordre de 3 à 4 m.Je publierai ce nouveau programme début de semaine.Je ferai aussi un Zip à la demande générale.Encore une fois merci pour vos commentaires constructifs pour un débutant.
cs_pierrard
Messages postés
1
Date d'inscription
lundi 28 avril 2003
Statut
Membre
Dernière intervention
31 juillet 2006
-
Bonjour,
je ne sais pas si quelqu'un est encore intéressé par ce code...
Les erreurs de positionnement constatées proviennent des constantes utilisées.
PI = 3.14159265359
Pour le système WGS84 (GPS donc), dans module.vbp :
modifier e = 8.18191908426215E-02 ( et non 0.8 !)
eccSquared = 0.00669438
eccPrimeSquared = 0.006739497
Ainsi, en comparant avec Circé (l'outils fourni par IGN), l'erreur constatée se situe sur la 3ème décimale...
C'est quand même bien de savoir qu'on a pas foutu les pompes sur un poil de puce !
Côté programmation, éviter les variables globales...
Bon courage et merci.
cs_Mauricet
Messages postés
89
Date d'inscription
lundi 3 mars 2003
Statut
Membre
Dernière intervention
28 juillet 2008
-
Bonjour

Extra
Maurice
Vonvon51
Messages postés
14
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
10 février 2014
-
Salut .J'ai fais une convertion DMS en UTM la valeur ne corespond pas à la valeur de la carte IGN.A plus.
cs_Mauricet
Messages postés
89
Date d'inscription
lundi 3 mars 2003
Statut
Membre
Dernière intervention
28 juillet 2008
-
Bonjour
C'est mieux
'Première vérification
'Vérification WGS84 fuseau 31
'IGN 681136,676368 5614137,94606
'VB6 681196,802972 5614141,28008
'Deuxième vérification Prg 2
'VB6 681114,870098069 5614130
Il faudrait relire les différentes remarques et les appliquer
Merci
Maurice
BarresLTD
Messages postés
4
Date d'inscription
samedi 4 février 2006
Statut
Membre
Dernière intervention
16 mai 2008
-
Pour répondre à Mauricet que je remercie pour son travail de correction, j'ai introduit les modifs justifiées qu'il proposait mais je n'ai rien publié car j'ai fait évoluer le programme sur Visual Basic.NET pour l'appliquer sur un PDA, associé à un programme d'acquisition GPS par Bluethoot.J'ai presque fini, il sera prêt en fin Février et je publierai cette version.
Merci aussi a CADRATURE pour ses conseils mais avec Visual Basic.NET ça s'arrange....
cs_Mauricet
Messages postés
89
Date d'inscription
lundi 3 mars 2003
Statut
Membre
Dernière intervention
28 juillet 2008
-
OK, j'attends la version en Vb.Net
Bon courage
Maurice
cs_schascha
Messages postés
1
Date d'inscription
vendredi 22 août 2003
Statut
Membre
Dernière intervention
15 novembre 2007
-
bonjour
une version pour PDA est-elle toujours d'actualité ?
Merci
Alain
cs_Krystof
Messages postés
2
Date d'inscription
jeudi 31 mars 2005
Statut
Membre
Dernière intervention
12 janvier 2008
-
Bonjour et super travail. Je suis impatient aussi pour la version PDA
christian50cl
Messages postés
1
Date d'inscription
dimanche 4 mai 2008
Statut
Membre
Dernière intervention
14 mai 2008
-
Bonjour

Je suis débutant, je n'arrive pas à mettre dans un fichier excel les fichiers extraits de fichier.zip
convert_UTM3.frm
Convert_UTM3.vbp
Convert_UTM3.vbw
CONVUTM3.bas
MSSCCPRJ.SCC
Y a t il une façon de faire?
merci
cirek
Messages postés
11
Date d'inscription
vendredi 29 août 2003
Statut
Membre
Dernière intervention
1 février 2009
-
Pas mal , je vais le tester à fond
survcopt
Messages postés
223
Date d'inscription
mardi 27 mai 2003
Statut
Membre
Dernière intervention
3 juin 2019
-
Dommage ce source n'intègre pas la gestion des zones particulière comme la norvège
Euskadia
Messages postés
1
Date d'inscription
mardi 27 juillet 2010
Statut
Membre
Dernière intervention
28 mars 2011
-
Depuis plus d'un an, je cherche à mettre au point un utilitaire pour les randonneurs amateurs. Il me ne me manquait que cette option. Merci au créateur.