comment je pourrais faire un compte à rebour de 3 second??
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:lorque tu veut lancer ton compte à rebous, met:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 timer1.interval= 3000 timer1.enabled=falseetmet la procédure que tu veux effectuer au bout de ce temps dans le timer_timer.
Code : Sélectionner tout - Visualiser dans une fenêtre à part timer1.enabled=true
si tu veut quelque-chose de plus precis, met dans le form loadDéclare une variable générale dans ta form, par exemple
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 timer1.interval=1 timer1.enabled=trueDans ton timer met
Code : Sélectionner tout - Visualiser dans une fenêtre à part dim tim1 as string
Et pour lancer ton compte à rebours, tu met:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 if datediff("s",tim1,time)>=3 then .... 'ici ta procédure end ifje pense que ça devrais amplement te suffire.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2tim1=time timer1.enabled=true
salut![]()
bonsoir,
Voici un exemple d'un compte à rebours de 3 secondes, place un Label et un Timer sur ta Form
jpleroisse
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Salut
permet d'arrêter le compte à rebours.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Timer1.Enable = False
Tu as aussi ça :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Sub lancerTempo() Dim durée Durée = 3 Temporisation(durée) end subMaintenant, si tu veux afficher "3", "2", "1", "Partez !"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
A toutes fins utiles
Code : Sélectionner tout - Visualiser dans une fenêtre à part AvantQueÇaSauteTasPlusQue = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + durée) - TimeSerial(Hour(Now()), Minute(Now()), Second(Now())
(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![]()
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager