c un ti timer que vous pourez regler jusqu'a +ieurs années
Source / Exemple :
Private Sub go_Click()
Label.Caption = ""
Timer.Enabled = True 'on active le timer
Label3.Caption = Time 'on va faire passer la variable time de l'instant t a la procedure timer_timer par l'intermediaire d'un label
End Sub
Private Sub Timer_Timer()
Dim diff As String 'la variable que l'on va contrôler avec le temps voulu !
Dim min As String '-|->ici on recuper l'heure a l'aquelle on a cliker sur le bouton (l'instant t) ...
min = Label3.Caption '-|
diff = DateDiff("s", min, Time) 'c la que l'on recupere la difference entre l'instant t et l'instant t+n s
Dim saisie As String
saisie = seconde.Text 'c la que commence la verification
If diff = saisie Then 'et saisie est le temps voulu en seconde
Beep
Label.Caption = seconde.Text + " s"
Timer.Enabled = False
Exit Sub
End If
End Sub
'petit rapel de la fonction DateDiff
'vous pouvez changer le "s" pour seconde, en "n" pour minute, ou "h" pour heure
'"ww" pour semaine, "d" pour jours, en "m" pour mois, en "q" pour trimestre
'et en "yyyy" pour années
'mais il est evident que des que l'on parle de jours il faudra recuperé la date et non l'heure !!!
Conclusion :
tous est ds le zip c + sympa ;)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.