Minuteur

Résolu
le meruvien -  
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

5 réponses

  1. le meruvien Auteur
    Bonjour, et un grand MERCI!! ça marche!!
    0
    1. le meruvien Auteur
      ben ça marche pas!!
      J'ai mis mon fichier sur ci-joint, tu peut regarder.
      https://www.cjoint.com/c/JAmoybwaIOd
      merci
      0
      1. yg_be Contributeur
        comment le message d'erreur que tu obtiens l'indique, tu as deux lignes avec Option Compare Database, il faut supprimer l'une des deux.
        je vois aussi que tu n'as pas appelé le bouton zero. tu dois soit renommer le bouton, soit adapter la ligne 12 du code.
        0
    2. yg_be Contributeur
      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
      0
      1. le meruvien Auteur
        Merci yg-be, mais ou je met tout ça??
        0
        1. yg_be Contributeur
          peux-tu partager ton fichier, avec, dans le formulaire, les champs pour afficher le minuteur, et un bouton destiné à la remise à zéro?
          0
      3. yg_be Contributeur
        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
        0

        Discussions similaires

        Mise en veille de téléviseur tcl
        Othmane

        17 réponses
        délai OSD
        Utilisateur anonyme

        3 réponses
        probleme minuterie
        josephaurillac

        4 réponses
        qu'est que OSD
        Suzanne903

        3 réponses
        minuterie télévision TCL séries P73
        ljbest

        6 réponses