Une vrai pause dans le code (court et simple)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 500 fois - Téléchargée 67 fois

Commenter

Contenu du snippet

Insérer cette fonction dans un module (ou autre) puis appeler la procédure en entrant en paramètre le nombre de secondes pendant lesquelles vous souhaitez que votre prog fasse une pause.

Exemple: Call FaireUnePause(10)

Et voila

Source / Exemple : 


sub FaireUnePause(NbSec as long)
  Dim tempotemp
  tempotemp = Now()
  Do Until (DateDiff("s", tempotemp, Now()) > NbSec)
  Loop
end sub

Conclusion :


jemax@free.fr
http://jemax.free.fr

A voir également

Ajouter un commentaire

Commentaires

Signaler
-
Génial comme code !!! Felicitation.
Signaler
cs_lafleche
Messages postés
1
Date d'inscription
jeudi 28 mars 2002
Statut
Membre
Dernière intervention
28 mars 2002
 -
Mouais, mais faut un peu penser aux petits copains (i.e. les autres tâches ou fonctions en cours)

Je te suggère plutot :

Sub FaireUnePause2LeRetour(NbSec As Long, _
Optional ByVal bBloqueTout As Boolean = True)
Dim HeureLimite As Date
'calcule la limite à atteindre
TimeLimite = DateAdd("s", NbSec, Time)
'boucle d'attente
While Time <= TimeLimite
'le reste du monde fonctionnera quand même
If Not bBloqueTout Then DoEvents
Wend
End Sub

Tu peux comme cela choisir de bloquer le reste de ton appli on non.

Il y aurait une solution encore + efficace pour ne pas trop bloquer la cpu, basée sur un timer, mais bon, j'ai pas trop de temps... :-)

Hop
Signaler
cs_PaTaTe
Messages postés
1878
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
7 janvier 2019
 -
Pensez à écrire du code en Option Explicit, ça évite bien des soucis :)
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.