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
Méphistophélès
Si la solution ne résout pas votre problème, changez le problème...
Cours et tutoriels C++ - FAQ C++ - Forum C++.
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
- Pour les nouveaux : Mode d'emploi et aide aux nouveaux
- et impérativement les règles du forum. Histoire de garder une ambiance amicale.
- Noubliez pas les balises de Code pour vos listings : bouton # de l'éditeur. Et n'oubliez pas non plus de bouton
- Cours Excel - FAQ Excel - Forum Excel - Cours VBA - Cours complet VBA Excel
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
Méphistophélès
Si la solution ne résout pas votre problème, changez le problème...
Cours et tutoriels C++ - FAQ C++ - Forum C++.
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