fierobe
Messages postés14Date d'inscriptiondimanche 27 août 2006StatutMembreDernière intervention 3 août 2010 6 déc. 2006 à 17:59
Ce n'est pas F8 qui fait afficher la frame1 mais X .
Je vais essayer de mettre le logiciel a jour .
merci pour l'aide .
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 6 déc. 2006 à 08:59
Salut,
Pas mal la mise à jour.
En revanche l'utilisation de F8 pour affiche la frame1 est laborieuse.
POur y remédier je ferais.
- Propriété KeyPreview de Form a True
- J'utiliserais l'événement KeyDown au lieu de KeyPress.
De plus 118 (F8) peu etre remplacé pour une meilleure lisibilité par VbKeyF8 (voir KeyCodeConstants dans l'explorateur d'objet (F2))
EnFin pour finir
- voir Afficher Frame1 lorsque l'on réussi à la déplier n'est pas tres "joli"
- Pense à bine commenter ton code cela peu aider pour une meilleure lecture.
- Nettoie le code des portions inutile
Private Sub Command1_Click()
Timer3.Interval = 1
End Sub
Il n'y plus de Command1 sur ton Form...
Voila.
Mais plein d'encouragements pour la prochaines mise à jour.
@+
Julien
fierobe
Messages postés14Date d'inscriptiondimanche 27 août 2006StatutMembreDernière intervention 3 août 2010 2 déc. 2006 à 13:40
Ca y est j'ai fait la première mise a jour .
fierobe
Messages postés14Date d'inscriptiondimanche 27 août 2006StatutMembreDernière intervention 3 août 2010 30 nov. 2006 à 19:06
Merci pour votre aide . Je vais essayer de mettre a jour le logiciel grâce a vos information .
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 30 nov. 2006 à 10:32
Salut,
IL est vrai que c'est original.
Bon passons au critiques constructive.
Comme tu le dis tu es débutant, alors autant prendre les bonne habitude tout de suite.
Lorsque tu vois un code qui semble se répéter à plein d'endroit, tu dois tout de suite penser "procédure".
Je m'explique:
'Ceci se répète tout le temps il y seulement les valeur qui change et le print. (d'ailleur FontSize ne prenant que la valeur 10 place le dans le Form_Load et comme ca plus de répétition de ce coté la.
Private Sub AfficheMonument(ByVal X As Integer, ByVal Y As Integer, ByVal NomMonument As String)
Me.Cls 'Cls passe ici comme ca plus de scintillement et pas besoin de variable
Me.CurrentX = X
Me.CurrentY = Y
Print NomMonument
End Sub
Et ensuite tu appelles comme suit
Private Sub Image9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call AfficheMonument(4900, 2300, "Hôpital St Louis")
End Sub
Aller un petit 6 pour encourager à penser "procédure"
leSaleGauSS
Messages postés148Date d'inscriptionsamedi 4 novembre 2006StatutMembreDernière intervention 4 décembre 2008 27 nov. 2006 à 18:45
10/10 ... que dire de plus
Mayzz
Messages postés2813Date d'inscriptionmardi 15 avril 2003StatutMembreDernière intervention 2 juin 202028 27 nov. 2006 à 14:53
PS: J'ai mis 10 aussi pour l'encouragement et parce que la source est fonctionnelle, bonne continuation =)
Bonne prog @ts
cs_drissou
Messages postés160Date d'inscriptiondimanche 7 décembre 2003StatutMembreDernière intervention14 janvier 2009 27 nov. 2006 à 11:17
salut FIEROBE
sympa ta source.
un petit truc pour éviter d'effacer ta feuille à chaque mouvement de la souris, ce qui chez moi provoque un 'scintillement' de l'heure.
Met une variable Booléenne (exemple Ecrit) que tu mets à vrai lorsque tu écrits un lieu.
et dans ta Form_MouseMove
mets des lignes du type
If Ecrit Then
Cls
Ecrit = False
End If
comme cela l'effacement ne se fera que lo'rsqu'il y aura eu écriture d'un lieu
Tu débutes par une source qui fonctionne : c'est déjà un bon point
Rassures-toi nous avons tous été des débutants
alors courage Fierobe et 10/10
fierobe
Messages postés14Date d'inscriptiondimanche 27 août 2006StatutMembreDernière intervention 3 août 2010 26 nov. 2006 à 20:33
C'est vrai que le code est un peu simplet .Je suis un débutant et quand je vois les autres sources déposées sur ce site, cela me décourage vraiment .Merci pour la note et les commentaires.
joelmarie
Messages postés27Date d'inscriptionvendredi 6 juin 2003StatutMembreDernière intervention12 juin 2008 26 nov. 2006 à 19:40
Il faut continuer , l'idée est originale un peu simple bien sûr
mais pourquoi pas d'autres idées de ce type .Bonne continuation .
Mayzz
Messages postés2813Date d'inscriptionmardi 15 avril 2003StatutMembreDernière intervention 2 juin 202028 26 nov. 2006 à 17:04
Sympatique, simple et instructif, c'est une source de newbie mais c'est peu courrant, continue comme ca, c'est une bonne source !
6 déc. 2006 à 17:59
Je vais essayer de mettre le logiciel a jour .
merci pour l'aide .
6 déc. 2006 à 08:59
Pas mal la mise à jour.
En revanche l'utilisation de F8 pour affiche la frame1 est laborieuse.
POur y remédier je ferais.
- Propriété KeyPreview de Form a True
- J'utiliserais l'événement KeyDown au lieu de KeyPress.
De plus 118 (F8) peu etre remplacé pour une meilleure lisibilité par VbKeyF8 (voir KeyCodeConstants dans l'explorateur d'objet (F2))
EnFin pour finir
- voir Afficher Frame1 lorsque l'on réussi à la déplier n'est pas tres "joli"
- Pense à bine commenter ton code cela peu aider pour une meilleure lecture.
- Nettoie le code des portions inutile
Private Sub Command1_Click()
Timer3.Interval = 1
End Sub
Il n'y plus de Command1 sur ton Form...
Voila.
Mais plein d'encouragements pour la prochaines mise à jour.
@+
Julien
2 déc. 2006 à 13:40
30 nov. 2006 à 19:06
30 nov. 2006 à 10:32
IL est vrai que c'est original.
Bon passons au critiques constructive.
Comme tu le dis tu es débutant, alors autant prendre les bonne habitude tout de suite.
Lorsque tu vois un code qui semble se répéter à plein d'endroit, tu dois tout de suite penser "procédure".
Je m'explique:
'Ceci se répète tout le temps il y seulement les valeur qui change et le print. (d'ailleur FontSize ne prenant que la valeur 10 place le dans le Form_Load et comme ca plus de répétition de ce coté la.
Me.CurrentX = 6800
Me.CurrentY = 3970
Me.FontSize = 10
Print "Bastille"
Pourait devenir:
Private Sub AfficheMonument(ByVal X As Integer, ByVal Y As Integer, ByVal NomMonument As String)
Me.Cls 'Cls passe ici comme ca plus de scintillement et pas besoin de variable
Me.CurrentX = X
Me.CurrentY = Y
Print NomMonument
End Sub
Et ensuite tu appelles comme suit
Private Sub Image9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call AfficheMonument(4900, 2300, "Hôpital St Louis")
End Sub
Aller un petit 6 pour encourager à penser "procédure"
27 nov. 2006 à 18:45
27 nov. 2006 à 14:53
Bonne prog @ts
27 nov. 2006 à 11:17
sympa ta source.
un petit truc pour éviter d'effacer ta feuille à chaque mouvement de la souris, ce qui chez moi provoque un 'scintillement' de l'heure.
Met une variable Booléenne (exemple Ecrit) que tu mets à vrai lorsque tu écrits un lieu.
et dans ta Form_MouseMove
mets des lignes du type
If Ecrit Then
Cls
Ecrit = False
End If
comme cela l'effacement ne se fera que lo'rsqu'il y aura eu écriture d'un lieu
Drissou
26 nov. 2006 à 23:17
Rassures-toi nous avons tous été des débutants
alors courage Fierobe et 10/10
26 nov. 2006 à 20:33
26 nov. 2006 à 19:40
mais pourquoi pas d'autres idées de ce type .Bonne continuation .
26 nov. 2006 à 17:04