FAIRE UNE PAUSE D'UN CERTAIN NOMBRE DE SECONDES pause, attente, delai, gettickcount, sleep, Source N°364

Information sur la source

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

Auteur : Mr X

Ecrire un message privé

Note :

7,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (11)

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

Toutes les sources de Mr X

Sources de la même categorie

Toutes les sources de la catégorie API

Sources en rapport avec celle ci

Commentaires

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

Ajouter un commentaire

Discussions en rapport avec ce code source

PAUSE SYSTEM par QuiGonJinn

VB6 : delai , Attente en Millisencondes par smallcop

VBNET pause...sleep...pause...sleep... par bimbo777

Pb avec la pause dans un programme par EvilGost

Boucle n'interagit pas avec l'utilisateur. par Phalalis

Faire référence au thread en cours?? par lucasd

Ecran d'attente par phenX

structure pile et file d'attente par hassni55

pause jusqu'a ce qu'une touche soit touchée par buddy91600

Attente de connection avec Winsock... par Frederic