c00ol
Messages postés40Date d'inscriptiondimanche 22 décembre 2002StatutMembreDernière intervention 9 septembre 2007
-
11 juin 2007 à 19:53
c00ol
Messages postés40Date d'inscriptiondimanche 22 décembre 2002StatutMembreDernière intervention 9 septembre 2007
-
12 juin 2007 à 07:14
Salut à tous,
Je suis en train de coder un petit programme qui récupère à un moment un temps ( càd : 15min,19min,...,45min,...) et j'aimerais savoir si il y a un moyen d'arriver à avoir une interval du genre? Ou un autre moyen c'est quand même important!
Merci d'avance ^^
If Compteur = 15 Then
' Action à faire arrivé à
15 minutes
Compteur = 0
End If
If Compteur2 = 19 Then
' Action à faire arrivé à 19 minutes
Compteur2 = 0
End If
If Compteur3 = 45 Then
' Action à faire arrivé à
45 minutes
Compteur3 = 0
End If
End Sub
~
<small>[code.aspx?ID=39466 Mortalino] ~
Colorisation automatique</small>
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 11 juin 2007 à 20:05
Bonjour,
un petit truc, parmi des centaines d'autres, donc :
Private Sub Form_Activate()
Timer1.Interval = 60 'ou un autre intervalle de ton choix "cohérent"
End Sub
Private Sub Timer1_Timer()
Static deb As Date, duree As Long
duree = 5 'ici la durée que tu veux, exprimée en secondes If deb 0 Then deb Now
If Now > DateAdd("s", duree, deb) Then
MsgBox "oui"
deb = Now
End If
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_nirega
Messages postés58Date d'inscriptiondimanche 17 février 2002StatutMembreDernière intervention14 janvier 2008 11 juin 2007 à 20:06
A vrai dire je ne me suis jamais pencher sur le problème.........mais me semble que je regarderais dans cette direction la !!!........mais comme on dit ....il y a toujours moyen de moyenné.....héhéhé