CONVERSION LAT/LONG EN COORDONNÉES UTM

Commentaire de ScSami le 16/02/2006 23:41:41

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

Commentaire de CADRATURE le 17/02/2006 09:46:40

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

Commentaire de Mauricet le 20/02/2006 10:25:51

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

Commentaire de pierrard le 31/07/2006 19:22:13

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.

Commentaire de Vonvon51 le 07/01/2007 19:38:07

Salut .J'ai fais une convertion DMS en UTM la valeur ne corespond pas à la valeur de la carte IGN.A plus.

Commentaire de BarresLTD le 23/01/2007 16:01:32

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

Commentaire de schascha le 15/11/2007 14:39:15

bonjour
une version pour PDA est-elle toujours d'actualité ?
Merci
Alain

Commentaire de christian50cl le 14/05/2008 07:51:39

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