begin process at 2008 07 19 08:49:41
1 212 721 membres
60 nouveaux aujourd'hui
14 165 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

FAIRE UNE PAUSE D'UN CERTAIN NOMBRE DE SECONDES


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

Note :
7 / 10 - par 6 personnes
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 
  • signaler à un administrateur
    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.

  • signaler à un administrateur
    Commentaire de yannickt le 12/06/2004 23:14:01

    supermomo, la fonction sleep est innexistante en vb6!

  • signaler à un administrateur
    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)

  • signaler à un administrateur
    Commentaire de AngeliusMefyrx le 05/04/2006 16:26:03

    En tout cas, Sleep semble pas exister en VBA 2002

  • signaler à un administrateur
    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....

  • signaler à un administrateur
    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)

  • signaler à un administrateur
    Commentaire de Renfield le 05/04/2006 18:03:48 administrateur CS

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

  • signaler à un administrateur
    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.

  • signaler à un administrateur
    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

  • signaler à un administrateur
    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"

  • signaler à un administrateur
    Commentaire de PORTE_BLINDEE le 13/07/2007 19:38:59

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

Ajouter un commentaire

Pub



Appels d'offres

Dessins techniques
Budget : 60€
Animation Flash - Doma...
Budget : 370€
Application flash medi...
Budget : 1 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS