A voir également:
- Timer sous VB
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Shutdown timer - Télécharger - Personnalisation
- Multi timer - Télécharger - Bureautique
- Task timer - Télécharger - Gestion de projets
6 réponses
guy2mars
Messages postés
204
Date d'inscription
dimanche 18 février 2007
Statut
Membre
Dernière intervention
24 janvier 2013
71
19 janv. 2009 à 23:02
19 janv. 2009 à 23:02
c est comme tu veux..
le timer se declenche quand tu lis la ligne.
le timer lit l'heure en secondes et fractions de secondes
tu declares 3 variables par ex
dim start, fin, duree
duree = 90 'pour 90 secondes
start = timer 'tu demarres
tu peux mettre ca en nombre entier
start = int(start)
tu lances tes machins a faire
do while timer <start+pause
ploum ploum ploum
do events 'pour rattraper le coup
loop
msgbon fin & "secondes","",1
et voila, tu as un compte a rebours :o))
le timer se declenche quand tu lis la ligne.
le timer lit l'heure en secondes et fractions de secondes
tu declares 3 variables par ex
dim start, fin, duree
duree = 90 'pour 90 secondes
start = timer 'tu demarres
tu peux mettre ca en nombre entier
start = int(start)
tu lances tes machins a faire
do while timer <start+pause
ploum ploum ploum
do events 'pour rattraper le coup
loop
msgbon fin & "secondes","",1
et voila, tu as un compte a rebours :o))
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
20 janv. 2009 à 03:32
20 janv. 2009 à 03:32
Bonjour,
Par défaut, un Timer (en VB6) est avec sa propriéré Enabled = False, faut la mettre à True.
Mais j'hésite à savoir si tu est sur Vb ou sur VBA (excel) ?
Si c'est en VBA Voir ici
A+
Par défaut, un Timer (en VB6) est avec sa propriéré Enabled = False, faut la mettre à True.
Mais j'hésite à savoir si tu est sur Vb ou sur VBA (excel) ?
Si c'est en VBA Voir ici
A+
merci pour l'explication!
Il me reste cependant une question: si je veux afficher la durée du timer dans un "msgbox" comment je puis-je faire?
Est ce que timer est une variable que l'on peut afficher? Si oui quel est son type?
Il me reste cependant une question: si je veux afficher la durée du timer dans un "msgbox" comment je puis-je faire?
Est ce que timer est une variable que l'on peut afficher? Si oui quel est son type?
guy2mars
Messages postés
204
Date d'inscription
dimanche 18 février 2007
Statut
Membre
Dernière intervention
24 janvier 2013
71
19 janv. 2009 à 23:20
19 janv. 2009 à 23:20
timer n est pas une variable. c est je pense une fonction prdefinie.
si tu affiches timer, il affichera l'heure traduite en secondes lors de l'affichage
pour la reactualiser, il faudra boucler
tu peux afficher une variable partout, meme dans le titre ou sujet d'un msgbox
dim variable
variable = "texte a afficher selon mes criteres"
msgbox "je peux afficher" & variable & "suite du commentaire","titre de la box",1
si tu affiches timer, il affichera l'heure traduite en secondes lors de l'affichage
pour la reactualiser, il faudra boucler
tu peux afficher une variable partout, meme dans le titre ou sujet d'un msgbox
dim variable
variable = "texte a afficher selon mes criteres"
msgbox "je peux afficher" & variable & "suite du commentaire","titre de la box",1
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
C'est bien ce que j'ai voulu faire, mais le compteur reste bloqué à zéro...
Voici ce que j'ai fait:
Public Class Form1
Dim tps As Integer
Private Sub Button1_Click
Timer1.Interval = 10000
Timer1.Start()
End Sub
Private Sub Timer1_Tick
tps = tps + 1
TextBox1.Text = Str(tps)
End Sub
End Class
Je me demande si je n'ai pas déclaré des choses au mauvais endroit! Ou faut-il indiquer la fréquence du timer?
Voici ce que j'ai fait:
Public Class Form1
Dim tps As Integer
Private Sub Button1_Click
Timer1.Interval = 10000
Timer1.Start()
End Sub
Private Sub Timer1_Tick
tps = tps + 1
TextBox1.Text = Str(tps)
End Sub
End Class
Je me demande si je n'ai pas déclaré des choses au mauvais endroit! Ou faut-il indiquer la fréquence du timer?
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
30 avril 2010 à 08:16
30 avril 2010 à 08:16
1 et 3 mois plus tard ...
ça va bien l'aider ça ^^
Même dans le pseudo y a une faute ... c'est "T" !!! pas "G" ...
;o)
ça va bien l'aider ça ^^
Même dans le pseudo y a une faute ... c'est "T" !!! pas "G" ...
;o)
guy2mars
Messages postés
204
Date d'inscription
dimanche 18 février 2007
Statut
Membre
Dernière intervention
24 janvier 2013
71
19 janv. 2009 à 23:42
19 janv. 2009 à 23:42
Sub Macro1()
Dim Start, Finish, duree, i, reponse, gagne, il_reste
duree = 120 ' durée 2 minutes.
Start = Timer ' top
Finish = Start + duree
Do While Timer < Finish
il_reste = int(Finish - Timer)
MsgBox "Le temps passe", 0, "il reste " & il_reste & " secondes avant la fin"
DoEvents ' Donne le contrôle à d'autres processus.
Loop
End Sub
tu as de ton cote des end sub sans sub, et des timer1 non decrits.
quant a timer1.start(), je connais pas mais ca peut exister
@+
Dim Start, Finish, duree, i, reponse, gagne, il_reste
duree = 120 ' durée 2 minutes.
Start = Timer ' top
Finish = Start + duree
Do While Timer < Finish
il_reste = int(Finish - Timer)
MsgBox "Le temps passe", 0, "il reste " & il_reste & " secondes avant la fin"
DoEvents ' Donne le contrôle à d'autres processus.
Loop
End Sub
tu as de ton cote des end sub sans sub, et des timer1 non decrits.
quant a timer1.start(), je connais pas mais ca peut exister
@+
