AFFICHAGE COORDONÉES GPS

scortex84 Messages postés 379 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 20 avril 2011 - 1 juin 2005 à 10:24
msakenus Messages postés 1 Date d'inscription mercredi 9 avril 2008 Statut Membre Dernière intervention 15 mars 2010 - 15 mars 2010 à 18:21

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/31735-affichage-coordonees-gps

msakenus Messages postés 1 Date d'inscription mercredi 9 avril 2008 Statut Membre Dernière intervention 15 mars 2010
15 mars 2010 à 18:21

je comprends rien

cs_Mauricet Messages postés 89 Date d'inscription lundi 3 mars 2003 Statut Membre Dernière intervention 28 juillet 2008
6 juin 2005 à 08:20

Bonjour
Amélioration
' **************************************
' Transformation du point 3D en point 2D
' **************************************
PixelX = -Pt.X / Pt.Z
PixelY = -Pt.Y / Pt.Z ' le signe est négatif car dans une fenetre microsoft l'origine est positionné en en haut de la fenêtre

' affiche le point
'Me.PSet (PixelX, PixelY) ' , vbYellow ' Possibilité de changer la couleur des points
'Plot the point in color
Dim C As Single
'Couleur
Static L As Single
Static H As Single
If L = 0 Then
L = 999999
H = -L
End If
If Pt.Z < L Then L = Pt.Z
If Pt.Z > H Then H = Pt.Z
If H L Then H H + 0.01
C = 255 * ((Pt.Z - L) / (H - L))
C = RGB(255 - C, 255 - C, C)
'Cache les lignes derrière
If Pt.Z - L > (H - L) * 0.3 Then C = 0
If C = 0 Then
Else
Me.PSet (PixelX, PixelY), C
End If

End If ' fin du test PT.Z > 0

Next lngIndex

Exit Sub
errTrap:
' saut en cas d'erreur mémoire

End Sub

Maurice

cuq Messages postés 345 Date d'inscription mardi 3 juin 2003 Statut Membre Dernière intervention 21 mars 2008 2
2 juin 2005 à 10:10

Merci c'est vrai que chez moi j'utilise uniquement le point comme symbole décimal ..
En effet j'ai pas mal de code qui écrive de l'iso ( Language de commande des machines de fraisage )
Et dans ce cas le séparataeur décimal est le point. pour éviter de réinventer la roue j'utilise pour formater un texte format(Ma_var,""00000.000") et si dans les paramètres régionnaux tu as la virgule alors tu obtiendras un nom du genre 0,000 et pas 0.000 donc forcémenent à la relecture du fichier GPS qui lui est avec un Point ca peut poser des problèmes.

Autre Infos dans mes sources pour éviter ce problème je rajoute souvent :

' Force le charactère décimale à un point par l'écriture dans le registe
Call EcritureRegistre(HKEY_CURRENT_USER, "Control Panel\International", "sDecimal", REG_SZ, ".")
'Ouvre le panneau de config pour montrer à l'utilisateur la modif
Shell "rundll32 shell32,Control_RunDLL intl.cpl" ' Regional setting

Voilà le mistère est résolu merci à VIARN

viarn Messages postés 33 Date d'inscription dimanche 28 septembre 2003 Statut Membre Dernière intervention 21 février 2006
1 juin 2005 à 20:13

re Salut. J'avais pas fini ma phrase désolé.

symbole décimal, choisir un POINT à la place de la virgule.

Vincent.

viarn Messages postés 33 Date d'inscription dimanche 28 septembre 2003 Statut Membre Dernière intervention 21 février 2006
1 juin 2005 à 20:11

Salut. pour que le prog marche, j'ai remarqué qu'il fallait changer les paramètres régionaux. Dans Option régionales, puis personnaliser, puis symbole décimal, chaisir un à la place de la virgule.

voilà c'est tout. J'aurais bien voulu voir + de détails, mais bon
Sinon c'est pas mal.

Vincent.

cuq Messages postés 345 Date d'inscription mardi 3 juin 2003 Statut Membre Dernière intervention 21 mars 2008 2
1 juin 2005 à 19:06

Moi ca marche ??? avec mon pauvre VB6 initiation ?

cs_Sipadan Messages postés 125 Date d'inscription lundi 5 août 2002 Statut Membre Dernière intervention 23 novembre 2011
1 juin 2005 à 14:00

Oui en effet "type incompatible", et si on enleve les 2 lignes on a des points rouge qui tournent sur fond noir.

cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 9
1 juin 2005 à 12:18

Pareil

scortex84 Messages postés 379 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 20 avril 2011 1
1 juin 2005 à 10:24

Bonjour,

j'ai une erreur "type icompatible" à l'execution...

dblLong = CDbl(varLatLong(0))

seb.

Discussions similaires

[Java] API pour intégrer carte avec coordonnées GPS

Coordonées GPS + Ordre par proximité

gestion d’une pharmacie

Un Container qui ne s'affiche pas !!??

affichage d'un container dans un autre en fct du menu

Votre réponse

Discussions similaires