Bonjour, souhaite compte a rebour

Question

Bonjour je souhaiterais, créer un Compte a rebourd Numérique mais en choisissant le nombre d'heure.

Merci d'avance !

nhervagault · Answer

Salut

Pour les comptes à rebours regardes du coté de l'objet timer de VB6

Sinon le reste de la question je ne comprends pas desolé
.

voila

cs_Jack · Answer

Salut Moot95
Pour les comptes à rebour, il y a ce qu'il faut parmi les sources :
Va dans la case "Recherche" en haut de la page et tape "compte rebour" et tu trouveras des tas d'exemples, à toi de les modifier.

Vala
Jack

cs_rene38 · Answer

Bonjour
Un timer Timer1 et un label Label1 sur la feuille.
Tu veux que le compte à rebours se termine dans 3 heures :

Dim heure As Date

Private Sub Form_Load()
   heure = DateAdd("h", 3, Now)
End Sub

Private Sub Timer1_Timer()
   Label1.Caption = Format(heure - Now, "hh:mm:ss")
End Sub

cs_rene38 · Answer

... avec pour Timer1 :
Enabled = True
Interval = 1000

cs_CanisLupus · Answer

rene38 > dans le timer j'aurais plutôt mis :

If now >= heure then Timer1.Interval=0

Pour arrêter le compte à rebours

Cordialement, CanisLupus

Moot95 · Answer

Rene38 : lorsque je met 
Dim heure As Date

Private Sub Form_Load()
   heure = DateAdd("h", 3, Now)
End Sub

Private Sub Timer1_Timer()
   Label1.Caption = Format(heure - Now, "hh:mm:ss")
Enabled = True
Interval = 1000 
End Sub
 et bien le LABEL 1 rete LABEL1 aucun signe d'heure

Merci d'avance !

cs_rene38 · Answer

Les proptiétés du timer doivent être définies ... en-dehors du timer.
Dim heure As Date

Private Sub Form_Load()
   heure = DateAdd("h", 3, Now) ' durée du compte
   Timer1.Interval = 1000 ' 1 seconde
   Timer1.Enabled = True ' ça démarre
End Sub

Private Sub Timer1_Timer()
   Label1.Caption = Format(heure - Now, "hh:mm:ss")
End Sub
Tu peux aussi ajouter la ligne préconisée par CanisLupus

Bonjour, souhaite compte a rebour

7 réponses

Discussions similaires