Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 23:51:00

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : BUFFERING par pingouin84k

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par Renfield

RE : PROBLEME DANS BASE DE DONNéES par PCPT

RE : PROBLEME DANS BASE DE DONNéES par Tursiop60

RE : PROBLEME DANS BASE DE DONNéES par PCPT

+ de logiciels à télécharger

1 464 925 membres
415 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 030 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

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 : 7 718

Auteur : Mr X

Ecrire un message privé

Note :

7,00 / 10

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

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

Toutes les sources de Mr X

Sources de la même categorie

IP_PUBLIQUE_INTERNETGETCONNECTEDSTATE par marco62118

TOUTES LES RÉSOLUTIONS D'ÉCRAN ET TAILLE MAXI DE LA FORM AUD... par marco62118

UTILISER L'API DE GOOGLE (CALENDRIER) par Any_Problem_Have_Solution

WIFI MANAGÉ (WLANAPI) EN VB.NET par fadelovesky

GÉNÉRER UN DOCUMENT RTF EN VBA/VB AMÉLIORÉ par Triboutmatthieu

Toutes les sources de la catégorie API

Sources en rapport avec celle ci

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 POUR "PAUSE DE X SECONDES" par WebMagique

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éer une appli qui traite des taches...mon soucis c'est que toutes les taches s'ench Pb avec la pause dans un programme [ par EvilGost ] Bonjour à toute la communauté de développeurs :)J'ai un petit problème avec une fonction de pause que j'ai pris sur VBfrance, la v Boucle n'interagit pas avec l'utilisateur. [ par Phalalis ] Bon il est vrai que le sujet n'est peut etre pas parlant, mais je vais vous expliquer.Je suis actuellement sous vba access.J'ai mon formulaire, conten Faire référence au thread en cours?? [ par lucasd ] j'ai 2thread dans mon program principal. Le problème est que quand je fais thread.sleep(1000); dans un des 2 threads, c'est tt le programme qui fais Ecran d'attente [ par phenX ] bonjour,je voudrais savoir comment réaliser un fomulaire d'attente de fin d'opération, genre: Opération en cour..."merci structure pile et file d'attente [ par hassni55 ] slt, les mec, cava bien !!!   j'ai un petit pribléme est le suivant :j'ai déclaré une structure comme suit ;   pause jusqu'a ce qu'une touche soit touchée [ par buddy91600 ] Je cherche à stopper ( faire une pause) à une boucle de mon application jusqu'a ce que le user appuie sur une touche. cela doit être to Attente de connection avec Winsock... [ par Frederic ] Salut, Je me crée actuellement une application du type client/serveur [VB6/ contrôle Winsock]. Lorsqu'un système nous "demande" une connection, l'évén