minuteur Résolu

Question

Bonjour, 
Je voudrais faire un formulaire simple avec un champ  "minute" et "seconde" qui démarrerait à zéro  dés l'ouverture du formulaire.( et un bouton de remise à zéro)
merci



Configuration: Windows / Chrome 79.0.3945.117

yg_be · Answer

bonjour,
cela peut se faire en utilisant la propriété TimerInterval du formulaire, et l’événement Timer du formulaire.
Private Sub Form_Load()
Me.TimerInterval = 1000 'déclenche toutes les secondes
End Sub
Private Sub Form_Timer()
' modifie l'affichage du minuteur
End Sub

le meruvien · Answer

Merci yg-be, mais ou je met tout ça??

yg_be · Answer

voici un exemple de code, à mettre dans le code du formulaire, avec un bouton qui s'appelle zero et une etiquette qui s'appelle minuteur.
Option Compare Database
Option Explicit
Dim debut As Date
Private Sub Form_Load()
debut = Now()
affiche_minuteur
Me.TimerInterval = 1000
End Sub
Private Sub form_timer()
affiche_minuteur
End Sub
Private Sub zero_Click()
debut = Now()
affiche_minuteur
End Sub
Private Sub affiche_minuteur()
Dim delai As Date, minutes As Long, secondes As Integer
delai = Now() - debut
minutes = Int(delai * 24 * 60)
secondes = (delai * 24 * 60 - minutes) * 60
Me.minuteur.Caption = CStr(minutes) + "min " + CStr(secondes) + "sec"
End Sub

le meruvien · Answer

ben ça marche pas!!
J'ai mis mon fichier sur ci-joint, tu peut regarder.
https://www.cjoint.com/c/JAmoybwaIOd
merci

le meruvien · Answer

Bonjour, et un grand MERCI!! ça marche!!

Minuteur

5 réponses

Votre réponse

Discussions similaires