COMPTE À REBOUR LE PLUS SIMPLIFIER POSSIBLE
Ben2998
Messages postés
14
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
1 novembre 2007
-
31 mai 2005 à 00:33
thibboss Messages postés 2 Date d'inscription samedi 6 août 2005 Statut Membre Dernière intervention 7 août 2005 - 7 août 2005 à 15:26
thibboss Messages postés 2 Date d'inscription samedi 6 août 2005 Statut Membre Dernière intervention 7 août 2005 - 7 août 2005 à 15:26
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/31721-compte-a-rebour-le-plus-simplifier-possible
https://codes-sources.commentcamarche.net/source/31721-compte-a-rebour-le-plus-simplifier-possible
7 août 2005 à 15:26
9 juin 2005 à 15:58
3 juin 2005 à 10:36
3 juin 2005 à 02:54
Bravo joebarteamv
3 juin 2005 à 02:34
La ce un exemple d'attendre 10secondes:
static Bfirst as boolean
dim t as long
static TopTempoDebut as long
If Not Bfirst Then
Bfirst = True
TopTempoDebut = Timer
End If
While t < 10 '10secondes ce sont ecoulés a la sortie
t = Timer - TopTempoDebut + 0.01
If t < 0 Then
t = t + 86400
TopTempoDebut = TopTempoDebut - 86400
End If
DoEvents
Wend
2 juin 2005 à 02:42
1 juin 2005 à 22:27
1 juin 2005 à 18:45
1 juin 2005 à 18:40
1 juin 2005 à 18:30
1 juin 2005 à 18:29
1 juin 2005 à 17:17
1 juin 2005 à 17:16
1 juin 2005 à 16:50
> sert a créé des thread.... ai je été clair ? :)
1 juin 2005 à 16:29
DoEvent permet de redonner la main à Windows pour qu'il fasse un tour de piste de ses applis (multi-tâches oblige!).
Ceci évite de figer ton prog et le système si tu es dans une boucle de longue durée... Et donc, ça permet également à l'utilisateur de pouvoir les annuler (en lui permettant donc de gérer les événements)...
Mais c'est sur que lorsque Windows est entrain de faire autre chose, ben il bosse pas sur ton prog... Donc, oui, quelque part, ça ralenti ton prog. A n'utiliser donc que pour des opérations longues!
Ai-je été clair ??? :-)
Au faut-il un exemple concret (en VB6) ?
1 juin 2005 à 15:56
1 juin 2005 à 15:36
DoEvents 'Permet à Windows de faire autre
'chose durant un cours instant
pourquoi faut t'il laisser windows faire ses truc pendant un instant? sa ne ralenti pas notre éxécution si on fait sa?
1 juin 2005 à 14:19
Non mais clair que ton code est plus propre... mais j'essayais juste de reprendre (avec bcp de difficultés je dois bien avouer!!! la fatigue?) celui de Till...
Enjoy...
et que le punk soit aussi avec vous ;-)
1 juin 2005 à 06:25
1 juin 2005 à 06:20
Dim Stoptime As Long
Dim Startime As Long
Dim Compte As Integer
Compte = 10 ' Indiqué la duré du timer
Startime = Timer
Stoptime = Startime + Compte
While Stoptime > Timer
'afficher ou le compte est rendu
Texte13.Text = Format(Compte - (Timer - Startime), "00")
DoEvents
Wend
Voila
@++
Que la prog soit avec vous ;-)
1 juin 2005 à 00:59
1 juin 2005 à 00:49
Ma solution, oui, tu peux l'utiliser sans autre dans VBA, celle de Ben, non(et oui à la fois)... En effet, celle de Ben utilise un "Controle" "Timer" (attension à ne pas confondre avec l'instruction Timer que j'utilise!!!). Or, le VBA n'a pas, par défaut, ce controle. Mais les controles, tu peux en ajouter sur ton ordinateur... Le controle ActiveX Timer est livré avec ceux par défaut du Visual BASIC (version complète)... Donc, si tu as déjà un programme VB installé sur ta machine, y'a des chances que tu ais ce controle (qui sont sous la forme de fichier d'extension .OXC). Mais si tu veux utiliser ton code VBA sur d'autres machines que la tienne (portabilité), il faudra aussi livrer le .OCX du Timer (même si, quelque part, vu que tu n'as pas acheté le VB, tu n'en as pas le droit... ;-).
Alors, en effet, un des nombreux avantages du Controle Timer face à l'instruction Timer, c'est que le controle, lui, fonctionne en millisecondes alors que Timer fonctionne en secondes. D'où l'explication que "Timer = Timer + 1" donne bien 1 seconde!!! Donc, tout fonctionne parfaitement, rassure-toi ;-)
En ce qui concerne Label, ben c'est aussi un control qu'il faut placer sur ta feuille... Ensuite, si c'est le premier, ce sera Label1.text... Mais tu peux renommer les controles comme tu veux en affichant la fenêtre des propriétés (c.f. clique droit ou menus...).
En espèrant également t'avoir apporté de nouvelles lumières...
Enjoy
31 mai 2005 à 16:18
31 mai 2005 à 14:27
Pour l'interval, c'est comme un métronome, à chaque x temps il agit, l'intervale sert à définir ce temps. dans un interval, la variable est en miliseconde alors si tu veux faire une seconde il faut l'ajuster à 1000...
J'espère t'avoir aidé ;)
Ben2998
31 mai 2005 à 10:10
Le probleme c'est que je n'arive pas a comprendre ce qu'est un label ( j'arrive pas a le déclarer et je ne sais meme pas a quoi ca sert et idem pour "l'interval" je n'ai jamais réussi a me servir d'interval pour compter en seconde. donc quand je tape ca : Label1.Caption ca me met une erreur.Et derniere petite question ...mon compte a rebour fonctionne mais comme mon interval est de 1 (timer1 = timer + 1 ) mon compte a rebour devré allé très vite alor ke au contraire ce dernier est presque en seconde...
31 mai 2005 à 02:59
Private Sub Commande4_Click()
'Déclare les variables locales
Dim varNombreDeSecondes As Integer 'Secondes du compte à rebours
Dim varTempsDeDepart As Long 'Temps de départ
Dim varTempsDarrivee As Long 'Temps d'arrivée
'Initialise la valeur des variables
varNombreDeSecondes = 10 '10 secondes pour le compte à rebours
varTempsDeDepart Timer 'Timer> Temps actuel en secondes
varTempsDarrivee = varTempsDeDepart + varNombreDeSecondes
'Affiche le résultat pour la 1ère fois
' TempsFinal - Temps Actuel = secondes restantes!
Texte13.Value = varTempsDarrivee - Timer
'Fait Tant que (TempsActuel < varTempsDarrivee)
Do While Timer < varTempsDarrivee
Texte13.Value = varTempsDarrivee - Timer
DoEvents 'Permet à Windows de faire autre
'chose durant un cours instant
Loop 'Retourne à "Do" [Recommance la boucle]
'On ressort donc de la boucle si le temps actuel
' est égale ou supérieur aux temps de fin
' précédemment calculé!
'Affiche le résultat pour la dernière fois
Texte13.Value = varTempsDarrivee - Timer
End Sub
Si t'as d'autres questions, on est à ta disposition!
Bon début, persévère :-)
Enjoy
31 mai 2005 à 00:33
Timer1:
Enabled=False
Interval=1000
Code:
'---------------------
Option Explicit
Dim a As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
a = 10
End Sub
'------------------------------
Private Sub Timer1_Timer()
a = a - 1
Label1.Caption = a
If a = 0 Then
MsgBox "Timer écoulé"
Timer1.Enabled = False
End If
End Sub
'-----------------------------
Je sais pas pour toi mais moi j'aimes cette manière. Si la tienne t'aides et que tu la préfère tant mieux mais moi je suis paresseux... :P:P:P ;)