compte à rebours

comment je pourrais faire un compte à rebour de 3 second??

salut
merci de dire bo,nnjour et au revoir.

pour ce qui est de ta question, si tu veux un compte à rebours quelquonque, met un timer avec dans le form load:

Code:

---

1 2	timer1.interval= 3000 timer1.enabled=false

---

lorque tu veut lancer ton compte à rebous, met:

Code:

---

timer1.enabled=true

---

etmet la procédure que tu veux effectuer au bout de ce temps dans le timer_timer.

si tu veut quelque-chose de plus precis, met dans le form load

Code:

---

1 2	timer1.interval=1 timer1.enabled=true

---

Déclare une variable générale dans ta form, par exemple

Code:

---

dim tim1 as string

---

Dans ton timer met

Code:

---

1 2 3

if datediff("s",tim1,time)>=3 then .... 'ici ta procédure end if

---

Et pour lancer ton compte à rebours, tu met:

Code:

---

1 2	tim1=time timer1.enabled=true

---

je pense que ça devrais amplement te suffire.

salut :wink:

bonsoir,
Voici un exemple d'un compte à rebours de 3 secondes, place un Label et un Timer sur ta Form

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Option Explicit Dim cpt As Integer   Private Sub Form_Load() cpt = 3 'Changer ici pour le nombre de secondes. Label1.Caption = cpt Timer1.Interval = 1000 'L'interval est en millisecondes End Sub   Private Sub Timer1_Timer() cpt = cpt - 1 Label1.Caption = cpt If cpt = 0 Then Timer1.Interval = 0 Label1.Caption = "Go" End If End Sub

---

jpleroisse

Salut

Code:

---

Timer1.Enable = False

---

permet d'arrêter le compte à rebours.

Tu as aussi ça :

Code:

---

1 2 3 4 5

Sub lancerTempo() Dim durée Durée = 3 Temporisation(durée) end sub

---

Code:

---

1 2 3 4 5

Sub Temporisation(durée) Dim Tempo Tempo = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + durée) Application.Wait Tempo End Sub

---

Maintenant, si tu veux afficher "3", "2", "1", "Partez !"

Code:

---

AvantQueÇaSauteTasPlusQue = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + durée) - TimeSerial(Hour(Now()), Minute(Now()), Second(Now())

---

A toutes fins utiles

(je ne sais pas si tu as wait en VB...)

A+

whahou ouskel'nor, je savais même pas qu'il existais une commande timeserial...
pour le wait, jamais vu mais ça veut rien dire....

perso, je préfere el datediff.

en tout cas, les secondes timer c'est à prendre avec des pincettes.
je sait par exemple que sous win 98, le timer est 2 à 3 fois plus lent.

en tout cas, y'a de quoi faire un petit article de faq dans ce sujet (3 methodes différentes.)


salut :wink: