Pb timer
juju
-
23 juil. 2000 à 20:45
cs_sabinou Messages postés 1 Date d'inscription mardi 23 juillet 2002 Statut Membre Dernière intervention 23 juillet 2002 - 23 juil. 2002 à 14:08
cs_sabinou Messages postés 1 Date d'inscription mardi 23 juillet 2002 Statut Membre Dernière intervention 23 juillet 2002 - 23 juil. 2002 à 14:08
2 réponses
-------------------------------
Réponse au message :
-------------------------------
Les timers sont limités à tout au plus 1 minute (environ), existe t'il une astuce pour gérer le déclenchement d'un évenement toutes les 2 heures?
Merci d'avance
-------------------------------
Réponse au message :
-------------------------------
Les timers sont limités à tout au plus 1 minute (environ), existe t'il une astuce pour gérer le déclenchement d'un évenement toutes les 2 heures?
Merci d'avance
-------------------------------
cs_sabinou
Messages postés
1
Date d'inscription
mardi 23 juillet 2002
Statut
Membre
Dernière intervention
23 juillet 2002
23 juil. 2002 à 14:08
23 juil. 2002 à 14:08
J'ai été confrontée au même problème mais j'ai trouvé un moyen simple et efficace pour le contourner.
Tu fais une constante qui contient le temps en minutes pour ton timer.
Au premier lancement du timer tu calcules la date et l'heure à laquelle tu veux que ton action se déclanche:
dateHeure = DateAdd("n", constante, Now)
et dans le code du timer tu compares la date et heure actuelle avec la date et heure calculée. Si l'heure est dépassée, tu exécutes ton action (procédure action dans le bout de code) et tu recalcules la prochaine date:
Private Sub Timer1_Timer()
If Now >= dateHeure Then
Call Action
dateHeure = DateAdd("n", constante, Now)
End If
End Sub
Tu règles ton timer sur une minute (interval=60000), ça fonctionne impec...
Tu fais une constante qui contient le temps en minutes pour ton timer.
Au premier lancement du timer tu calcules la date et l'heure à laquelle tu veux que ton action se déclanche:
dateHeure = DateAdd("n", constante, Now)
et dans le code du timer tu compares la date et heure actuelle avec la date et heure calculée. Si l'heure est dépassée, tu exécutes ton action (procédure action dans le bout de code) et tu recalcules la prochaine date:
Private Sub Timer1_Timer()
If Now >= dateHeure Then
Call Action
dateHeure = DateAdd("n", constante, Now)
End If
End Sub
Tu règles ton timer sur une minute (interval=60000), ça fonctionne impec...