Je pense qu'il y a un probl?me de compr?hension r?ciproque, le but ?tait de donner la version .NET valid'e d'une source publi?e en VB6.La partie importante est le module de conversion, la partie affichage n'?tant la que pour pouvoir donner un exemple sommaire d'introduction des donn'es de Latitude/Longitude et r?cup?ration des valeurs converties en coordonn'es UTM.Dans le module complet de guidage que j'ai d?velopp?, je teste bien sur la validit? des donn'es introduites, mais ici ce n'?tait pas l'objectif.Quand ? l'utilit?, je suis sur que ceux qui utilisent un GPS et des cartes de rando ont compris qu'il convertit les donn'es Lat/Long en UTM...Bien sur il faut savoir ce que sont les coordonn'es UTM pour appr?cier l'utilit?...
Quand on dépose une source ici, c'est aussi pour qu'elle soit vue
par le plus grand nombre et quel meilleur moyen que de:
- donner une description qui donne envie d'ouvrir le zip
(pourquoi pas celle de la version en VB6)
- mettre une copie d'écran
(même si le fond vert que tu as choisi n'est pas celui que je préfère)
Pour l'aspect pratique:
Tu devrais vérifier que toutes les "cases" indispensables ne soient pas vides
et "numériques" (sinon message d'erreur disgracieux),
et peut-être simplement les initialiser à zéro.
Pour E/W et N/S pour tolérer les minuscules tu peux utiliser UCase:
If UCase(DirEW) = "E" Then
et mettre une valeur par défaut (dans l'état actuel avec des "cases" vides c'est W et S)
ou mieux gérer les choix par des OptionButton
Cordialement
Quand on dépose une source ici, c'est aussi pour qu'elle soit vue
par le plus grand nombre et quel meilleur moyen que de:
- donner une description qui donne envie d'ouvrir le zip
(pourquoi pas celle de la version en VB6)
- mettre une copie d'écran
(même si le fond vert que tu as choisi n'est pas celui que je préfère)
Pour l'aspect pratique:
Tu devrais vérifier que toutes les "cases" indispensables ne soient pas vides
et "numériques" (sinon message d'erreur disgracieux),
et peut-être simplement les initialiser à zéro.
Pour E/W et N/S pour tolérer les minuscules tu peux utiliser UCase:
If UCase(DirEW) = "E" Then
et mettre une valeur par défaut (dans l'état actuel avec des "cases" vides c'est W et S)
ou mieux gérer les choix par des OptionButton
A+
Akim
quelle en est l'utilité ?
il manque le fichier FormConvUTM.vb
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.