retsam
Messages postés40Date d'inscriptionsamedi 21 février 2004StatutMembreDernière intervention23 mars 2007
-
27 août 2005 à 16:19
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
30 août 2005 à 02:26
Salut! Est-il possible d'avoir un timer avec une interval de 30 minute?
Svp expliqué moi bien le code.
A++ Merci de vos réponses
Tilois
Messages postés721Date d'inscriptiondimanche 10 juin 2001StatutMembreDernière intervention27 mars 20117 27 août 2005 à 16:37
Le composant timer de windows est relativement limité. Il ne permet pas
de mesurer des laps de temps super élevé. Il doit se limiter au max a
une minute. Donc tu fais un compteur que tu vas incrémenter toutes les
minutes. Et ensuite quand tu arrivera a 30 il te suffira d'éxécuter ton
code qui doit s'éxécuter toutes les 30 minutes et remettre ton compteur
a 0 pour recommencer.
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 27 août 2005 à 16:54
Ce n'est pas le composant de Windows mais de VB, Windows n'a aucun composant mais une API.
Utilise direct API SetTimer et tu règleras sur 30 minutes sans faire de décompte, te suffit de donner une Sub au dernier param de SetTimer que tu passeras avec AddressOf.
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 27 août 2005 à 18:37
partant de ce principe, aucune source n'a lieu d'exister....
toujours est-il que s'il met plus de 30 secondes, la source est dispo pour l'aider à comprendre comment faire selon ses besoins...
PCPT
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 27 août 2005 à 18:43
mal lu, je pensais que tu re-proposais la solution de BruNews (qui cela dit est la bonne pour progresser).
bref...., ouai.
dans ta générosité, peut-être aurais-tu pu donner un extrait de code, genre :
'Timer réglé sur 60000
Private Sub MyTimer_Timer()
Static MyCount as integer
MyCount = MyCount +1
if MyCount = 30 Then
MyTimer.Enabled=False
MyCount = 0
'action des 30 minutes
endif
EndSub
romit
Messages postés160Date d'inscriptionjeudi 28 août 2003StatutMembreDernière intervention30 juin 2011 30 août 2005 à 01:47
Lol bon t'as un timer a une minute d'Interval ok....
Dans l'action a executer tu tape ça
temps = temps + 1
if temps = 30 then
'Ton action
temps = 0
end if
N'oublie pas de délarer au dessus: dim temps as integer
Romit.