timer dans boucleRésolu

Question

bonjours, je suis nouveau dans la programmation en VB. Je doit faire
une aquisition tout les X temps. Xest un parramettre entrez en option
par l'utilisateur. 



Voila comment ca ce passe:



l'utilisateur clique sur un bouton(surveillance) et une fois cliquer le
timer doit se mettre en route. Tout les x temps je doit faire
l'aquisition de nouvelle donner.



Mon probleme est que je ne voit pas comment integrer mon timer a
l'action du bouton, de plus je ne vois pas comment integrer le timer
dans ma boucle pour qu'il fasse l'acquisition tout les X temps.





Merci d'avance de bien vouloir m'&#233;clairer car malgrer se que j'ai deja
lue sur le forum a propos des timer j'arrive toujours pas a me
depatouiller.

cs_Willi · Accepted Answer

Bonjour,
Pas besoin de boucle si tu utilises un timer car celui-ci va tout les X temps executer les instructions qui sont dans son &#233;v&#233;nement Timer. Tu places dans cet &#233;v&#233;nement ce que tu veux voir exemple ci-dessous

Voici un exemple simple ci-dessous. Toute les 5 secondes un message va s'afficher et incr&#233;menter une variable qui indique le nombre de fois que ton timer executera tes instructions.

Tu as besoin d'un button1 et d'un timer1 pour l'exemple

<8---------------------------------------------------------

Dim compteur As Integer


Private Sub Command1_Click()


    Timer1.Enabled = True
    
End Sub


Private Sub Form_Load()


    compteur = 1
    Timer1.Interval = 5000
    
End Sub


Private Sub Timer1_Timer()


    MsgBox "message num&#233;ro " & compteur
    compteur = compteur + 1
    
End Sub

--------------------------------------------------------->8


 Si la r&#233;ponse te conviens merci de l'accepter

jbbordas87 · Answer

merci beaucoup pour ta reponse.

Mais tant qu'a faire j'en ai une autre petite toujours sur ce meme timer(si il faut un autre sujet dit le moi)



voila j'aimerais que l'orsque je reclique sur commande 1 le timer s'arrette.

j'ai penser faire un teste avec une variable que jappelrais OK



Private Sub Command1_Click()


 
If ok =1   Then

 Timer1.Enabled = True
  ok =2 



Else


Timer1.Enabled = False

ok = 1

End Sub




Private Sub Form_Load()


 
ok =1    

compteur = 1
    Timer1.Interval = 5000
    
End Sub




Private Sub Timer1_Timer()


     MsgBox "message num&#233;ro " & compteur
    compteur = compteur + 1
    
End Sub







et la le timer ne marche meme plus!!! pourquoi???



encors merci pour ta reponse de tout a l'heure

jbbordas87 · Answer

oups d&#233;soler en faite j'ai comprit mon erreur, j'avait pas bien affecter mon timer: je m'explique



voila pour des raison de rapiditer j'avait mis mon timer a 10 seconde dale la fonction From_Load.



mais j'avait pas changer au niveau des proprieter ( bar d'outils a
droite en bas.) D'ailleur je ne comprend pas pourquoi c'est ce
paramettre qu'il prend et pas l'autre?





merci quand meme

cs_Willi · Answer

De rien sinon ta variable OK d&#233;clare la en type Boolean (Vrai ou Faux) c'est plus adapt&#233; &#224; ta situation de d&#233;marrage/arret
Un conseil pr les varaibles nommes les en ins&#233;rant un pr&#233;fixe qui permet de d&#233;terminer quel type de variable on traite.
Pour ta variable de d&#233;marrage/arret si tu la d&#233;clare en boolean nomme la "bTimer" par exemple
Pour les chaines de caract&#232;re place un "s" en pr&#233;fixe, pour les integer un "i", les long un "l", les date "dt", les doubles "dbl"....

jbbordas87 · Answer

Merci du conseil je vais l'apliquer de suite sinon tu sais pourquoi si
je change que le paramettre Timer1.Interval=..... le timer n'est pas
changer???



Pour le changer je doit le faire dans les options du timer et vue que
je doit recuperer se paramettre grace a un fichier ca me serais utils
de savoir comment je peux changer la valeur du timer sans paser par
l'outil de develloppement



merci

cs_franckydeluka · Answer

Salut !

au lieu de mettre une variable globale 'ok' tu peux inverser la propri&#233;t&#233; de ton timer comme cela :


Timer1.Enabled = Not Timer1.Enabled

pour le timer.interval quand tu le change il n'est pris en compte que la prochaine fois qu'il passe dessus par exemple si ton timer est &#224; 10sec et que tu lui met 0.5secondes alors il passera &#224; 0.5secondes une fois qu'il aura terminer ses 10secondes.

Au fait fais attention au messages box dans les timer c'est pas une bonne id&#233;e.. tu peux facilement planter ton appli comme &#231;a 

bonne prog

Deluka.

Timer dans boucle

6 réponses