Programmer un délai avec la fonction timer

Commenter

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

S'inscrire maintenant

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.

Du même auteur (Gilmirsoft)