1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Une vrai pause dans le code (court et simple)

Une vrai pause dans le code (court et simple)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 615 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
Messages postés
2107
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
19 février 2021
 2
Pensez à écrire du code en Option Explicit, ça évite bien des soucis :)
Signaler
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

Génial comme code !!! Felicitation.
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.