begin process at 2012 02 16 14:27:09
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

API

 > FAIRE UNE PAUSE D'UN CERTAIN NOMBRE DE SECONDES

FAIRE UNE PAUSE D'UN CERTAIN NOMBRE DE SECONDES


 Information sur la source

Note :
7 / 10 - par 6 personnes
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :API Classé sous :pause, attente, delai, gettickcount, sleep Niveau :Débutant Date de création :23/08/2000 Vu :9 374

Auteur : Mr X

Ecrire un message privé
Commentaire sur cette source (12)
Ajouter un commentaire et/ou une note

 Description

Fait une pause de X secondes sans bloquer les autres applications ou fonctions.

Source

  • Private Declare Function GetTickCount Lib "kernel32" () As Long
  • '********************************************************************************************
  • ' Name : xWait
  • ' Purpose : Wait for the time requested without
  • ' stopping the execution of other functions
  • ' Syntax : xWait(MilsecToWait)
  • ' Parameters : MilsecToWait : Time to wait in millisecond
  • ' Return : /
  • '********************************************************************************************
  • Public Sub xWait(ByVal MilsecToWait As Long)
  • Dim lngEndingTime As Long
  • lngEndingTime = GetTickCount() + (MilsecToWait)
  • Do While GetTickCount() < lngEndingTime
  • DoEvents
  • Loop
  • End Sub
Private Declare Function GetTickCount Lib "kernel32" () As Long


'********************************************************************************************
' Name       : xWait
' Purpose    : Wait for the time requested without
'              stopping the execution of other functions
' Syntax     : xWait(MilsecToWait)
' Parameters : MilsecToWait : Time to wait in millisecond
' Return     : /
'********************************************************************************************
Public Sub xWait(ByVal MilsecToWait As Long)
    Dim lngEndingTime As Long
  
    lngEndingTime = GetTickCount() + (MilsecToWait)
    Do While GetTickCount() < lngEndingTime
        DoEvents
    Loop
End Sub 



 Sources du même auteur

Source avec Zip TESTER SI UN LECTEUR (RESEAU OU NON) EST ACCESSIBLE ET/OU EX...
DETERMINE LE NOMBRE DE JOURS DANS UN MOIS
SAVOIR SI UNE FENETRE EST CHARGEE
SAVOIR SI UN NOMBRE EST PAIR OU IMPAIR
CONVERTION D'UN NOMBRE EN UNE FRACTION

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) .NET DEPENDENCY VIEWER : ARBRE DES DÉPENDANCES D'UN ASSEMBLY... par ShareVB
Source avec Zip Source .NET (Dotnet) UTILITAIRE SKYDRIVE par MasterShadows
Source avec Zip ROTATION RAPIDE D'IMAGE par trex70
Source avec Zip Source avec une capture ENUMERATION DES PORTS TCP ET IDENTIFCATION DU PROCESS (PID) ... par Renfield
Source avec Zip Source avec une capture MOUSE SPEED AND WEIGHT : RETOUR DE FORCE VIRTUEL ! par ScSami

 Sources en rapport avec celle ci

Source .NET (Dotnet) ATTENDRE UN CERTAINS TEMPS (PAUSE) SANS "PERDRE LA MAIN" EN ... par hvb
ATTENDRE UN CERTAINS NOMBRE DE SECONDES/MILLISECONDES SANS "... par hvb
PAUSE DANS LE CODE: LA FONCTION SLEEP par Warning
Source avec Zip SOURCE POUR "PAUSE DE X SECONDES" par WebMagique
Source avec Zip STOPPER TOUTES ACTIVITES DE VOTRE APPLI par Nix

Commentaires et avis

Commentaire de Figaro214 le 31/03/2002 00:17:27

D'autant plus génial qu'il supporte le passage à minuit, contrairement aux exemples d'utilisation de "Timer" proposée dans le help de VB.

Commentaire de yannickt le 12/06/2004 23:14:01

supermomo, la fonction sleep est innexistante en vb6!

Commentaire de Renfield le 08/02/2006 18:35:29 administrateur CS

sleep, inexistente ?  allons donc, c'est nouveau, ça !

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Commentaire de AngeliusMefyrx le 05/04/2006 16:26:03

En tout cas, Sleep semble pas exister en VBA 2002

Commentaire de Renfield le 05/04/2006 16:34:08 administrateur CS

si, bien sur qu'elle existe...
il suffit de la déclarer, voilà tout....

Commentaire de AngeliusMefyrx le 05/04/2006 17:22:58

Hehe merci, j'ai du le faire dans un module
J'ai pris la réponse dans une autre question qui avait été posée

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Commentaire de Renfield le 05/04/2006 18:03:48 administrateur CS

(elle est écrite trois lignes plus haut....)

Commentaire de timotep le 18/01/2007 15:51:01

super ton source, mais... le temps processeur est de 100% pendant l'exécution de la fonction... très embêtant. Je cherche une fonction qui mettrait en attente, mais qui ne prendrait que très peu de temps process.

Commentaire de Renfield le 18/01/2007 16:35:49 administrateur CS

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)


Sleep 4

Commentaire de PORTE_BLINDEE le 13/07/2007 19:32:21

Personnelement sleep me genere des exceptions chez moi (visual pro 2005) comme quoi "...::Sleep' a déséquilibré la pile"

Commentaire de PORTE_BLINDEE le 13/07/2007 19:38:59

System.Threading.Thread.Sleep(1000) en Dot Net pour infos

Commentaire de keversgabriel le 17/09/2008 15:12:53

OK, mais le xSleep de MR. x n'est pas bloquant (thread parent), parcontre le sleep du Kernel oui.

Gabriel KEVERS

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

PAUSE SYSTEM [ par QuiGonJinn ] Bonjour, JE souhaiterai que mon appli fasse son traitement, puis dorme pendant X secondes... La OK un sleep et puis l'affaire est réglée... Ma VB6 : delai , Attente en Millisencondes [ par smallcop ] Bonjour à tousJe dois envoyé des octets sur RS-232, entre chaque envoi d'octet doit s'écoulé un delai en milliseconde. Comment inserer un délai en m VBNET pause...sleep...pause...sleep... [ par bimbo777 ] Bonjour,J'ai un petit soucis en vbnet...je suis en train de cr&#233;er une appli qui traite des taches...mon soucis c'est que toutes les taches s'ench Effectuer une pause [ par desalib ] Bonjours, à tous et bonne journée! Bon je suis sur les nerfs car les incultes n'arrêtent pas de me proposer le system.threading.thread.sleep pour mon Pb avec la pause dans un programme [ par EvilGost ] Bonjour &#224; toute la communaut&#233; de d&#233;veloppeurs :)J'ai un petit probl&#232;me avec une fonction de pause que j'ai pris sur VBfrance, la v Faire une pause dans un programme [ par Tweet75 ] Bonsoir, j'aimerais connaitre les différents moyen de faire une pause dans un programme. Je m'explique. L'utilisateur saisie une donnée dans une text Sleep VB qui plante [ par lokomass ] Bonjour a tous, J'utilise la fonction Sleep suivante sous VB : [code=vb]Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)[/co Excel interop - pause dans thread [ par etniqs ] Salutations, Je controle des calculs dans excel à partie d'une appli externe (excel.interop). Pensez-vous qu'il est possible de faire une 'pause' da timer [ par fad7 ] comment faire pour mettre un delai sur un formulaire de de saisie de mot de passe? un delai de 30 seconde toute personne ayant un eventuel code source MédiaPlayer Pause automatique [ par nameles ] Ja voudrais visualiser une vidéo sur médiaPlayer et que celui-ci fasse une pause automatique au bout d'un laps de temps fixe. Or je n'y arrive pas car


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,590 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales