Programmer un délai avec la fonction timer

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 576 fois - Téléchargée 81 fois

Contenu du snippet

Prnez un nouveau projet, celui-ci contient une feuille nommée Form1 ou Feuille1.
Placez la sous-routine "Pause" dans les déclarations générales de la feuille;

Source / Exemple :


Sub Pause (Byval nSecond As Single)  
     Dim t0 As Single
     'temps de référence
     0 = Timer
     'boucle d'attente
     Do While Timer - t0 < nSecond
           Dim dummy As Integer
           dummy = DoEvents()
           'si on dépasse minuit,il faut
           'retrancher un jour
           If Timer <t0 Then
               t0 = t0 - 24*60*60
           End If
     Loop
End Sub
(Placez le code suivant dans l'événement
Click de la feuille)
Sub Form_Click()
      Print"Bonjour"
      ' délai de 2 secondes
      Call Pause(2)
      Print " tous le monde"
End Sub
Lancez l'application "Bonjour" s'affiche, et 2 secondes après s'affiche " tous le monde"

Conclusion :


Cette petite application vous est offerte par Langlade Informatique Club
http://perso.wanadoo.fr/langlade/

A voir également

Ajouter un commentaire

Commentaires

dinous
Messages postés
57
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
21 juin 2006
-
pas mal ;) mais a quoi sert
Dim dummy As Integer
dummy = DoEvents()
??
ranouf
Messages postés
237
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
31 août 2009
-
Do While Timer - t0 < nSecond
Dim dummy As Integer

tu redeclare ta variable a chaque boucle ... je suis pas sur que ce soit comme ça qu'il faut s'y prendre, les declarations se font toujour au debut de la procedure
sinon l'idée est bonne et ce sera util pour les newb
dionysos6868
Messages postés
310
Date d'inscription
jeudi 4 septembre 2003
Statut
Membre
Dernière intervention
9 juin 2005
-
Merci car je cherchais sans cherche merci de ton aide
Maestro el Diablo
Messages postés
6
Date d'inscription
mardi 8 novembre 2005
Statut
Membre
Dernière intervention
16 novembre 2005
-
Gros inconvénient de l'utilisation d'un Timer de cette manière : ça bouffe le CPU... Donc inutilisable pour un programme qui doit fonctionner en permanence. Mais sinon pour le fun, c'est simple et ça marche.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.