NHenry
Messages postés15113Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention22 avril 2024
-
19 avril 2013 à 20:06
radicalc3d -
29 avril 2013 à 14:04
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
excuser moi de ne pas y avoir ajouter le fichier a télécharger,c'est fait maintenant.
j’espère que vous aller aimer.
cs_Nectar108
Messages postés16Date d'inscriptionvendredi 5 mai 2006StatutMembreDernière intervention22 avril 2013 22 avril 2013 à 14:21
Bonjour,
Je suis d'accord avec "GOC", une source complète zippée, serait la bienvenue car extremment pratique !
Aussi, une capture d'écran ne serait pas un luxe inutile pour se rendrie compte immédiatement de l'effet graphique.
Merci aussi à "GOC" d'avoir apporter une simplification au codage. Mais avec cettef nouvelle version, as-t-on vraiment encore besoin de la variable "changer" ?
Et la procedure maxi, qui sert a implementer un timer, est-elle vraiment utile ?
Bref, autant de questions qui auraientvprobablement trouvées réponse dans une source avec toutes ses formes et modules, zippée, comme d'habitude. Merci de votre attention !
Nectar108
cs_goc
Messages postés19Date d'inscriptionsamedi 25 octobre 2003StatutMembreDernière intervention21 avril 2011 20 avril 2013 à 12:08
heu.. dans formload, c'est vcpt1 qu'il faut initialiser et non vcpt (vcpt1=0)
par contre, tu devrais au moins mettre une recopie d’écran, car on ne sait pas comment sont faites tes shapes
le plus simple, c'est de mettre ta source complète zippée
cs_goc
Messages postés19Date d'inscriptionsamedi 25 octobre 2003StatutMembreDernière intervention21 avril 2011 20 avril 2013 à 12:00
salut
voici une autre version de ton programme
d'abord il faut créer les shapes en indexés (simple copier/coller), alors tu auras shape(0), shape(1)..etc..
ensuite, je te donne les sp modifiés (timer4 et maxi sont inchangés)
Option Explicit
Dim changer As String
dim vcpt1 as integer 'a ajouter
'------------------------------
Private Sub Form_Load()
'controleTimer
Timer4.Interval = 200
vcpt=0 'a ajouter
'tempsExecution
maxi
End Sub
'---------------------------------
Private Sub inProgress()
dim i as integer
for i=0 to 4
if vcpt=i then shape(i).visible=true else shape(i).visible=false
next i
vcpt1=vcpt1+1
if vcpt1>4 then vcpt1=0
end sub
NHenry
Messages postés15113Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention22 avril 2024159 19 avril 2013 à 20:06
Bonsoir,
On voit une occurrence de Timer4, mais comme il n'y a pas le UserControl, dur de se faire un avis.
Peux-tu poster une source qui peut servir d'exemple, ici ?
29 avril 2013 à 14:04
j’espère que vous aller aimer.
22 avril 2013 à 14:21
Je suis d'accord avec "GOC", une source complète zippée, serait la bienvenue car extremment pratique !
Aussi, une capture d'écran ne serait pas un luxe inutile pour se rendrie compte immédiatement de l'effet graphique.
Merci aussi à "GOC" d'avoir apporter une simplification au codage. Mais avec cettef nouvelle version, as-t-on vraiment encore besoin de la variable "changer" ?
Et la procedure maxi, qui sert a implementer un timer, est-elle vraiment utile ?
Bref, autant de questions qui auraientvprobablement trouvées réponse dans une source avec toutes ses formes et modules, zippée, comme d'habitude. Merci de votre attention !
Nectar108
20 avril 2013 à 12:08
par contre, tu devrais au moins mettre une recopie d’écran, car on ne sait pas comment sont faites tes shapes
le plus simple, c'est de mettre ta source complète zippée
20 avril 2013 à 12:00
voici une autre version de ton programme
d'abord il faut créer les shapes en indexés (simple copier/coller), alors tu auras shape(0), shape(1)..etc..
ensuite, je te donne les sp modifiés (timer4 et maxi sont inchangés)
Option Explicit
Dim changer As String
dim vcpt1 as integer 'a ajouter
'------------------------------
Private Sub Form_Load()
'controleTimer
Timer4.Interval = 200
vcpt=0 'a ajouter
'tempsExecution
maxi
End Sub
'---------------------------------
Private Sub inProgress()
dim i as integer
for i=0 to 4
if vcpt=i then shape(i).visible=true else shape(i).visible=false
next i
vcpt1=vcpt1+1
if vcpt1>4 then vcpt1=0
end sub
19 avril 2013 à 20:06
On voit une occurrence de Timer4, mais comme il n'y a pas le UserControl, dur de se faire un avis.
Peux-tu poster une source qui peut servir d'exemple, ici ?