Affichage coordonées gps

3/5 (9 avis)

Vue 20 339 fois - Téléchargée 2 280 fois


Description

Aucune description n'est fournie pour ce projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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.
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.