Programmer un délai avec la fonction timer

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 656 fois - Téléchargée 71 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

Commenter la réponse de dinous

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.