Affichage coordonées gps

Soyez le premier à donner votre avis sur cette source.

Vue 20 109 fois - Téléchargée 2 228 fois


Description

Aucune description n'est fournie pour ce projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
mercredi 9 avril 2008
Statut
Membre
Dernière intervention
15 mars 2010

je comprends rien
Messages postés
89
Date d'inscription
lundi 3 mars 2003
Statut
Membre
Dernière intervention
28 juillet 2008

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
Messages postés
345
Date d'inscription
mardi 3 juin 2003
Statut
Membre
Dernière intervention
21 mars 2008
1
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
Messages postés
33
Date d'inscription
dimanche 28 septembre 2003
Statut
Membre
Dernière intervention
21 février 2006

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

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

Vincent.
Messages postés
33
Date d'inscription
dimanche 28 septembre 2003
Statut
Membre
Dernière intervention
21 février 2006

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.
Afficher les 9 commentaires

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.