Accueil > > > ATTENDRE UN CERTAINS NOMBRE DE SECONDES/MILLISECONDES SANS "PERDRE LA MAIN"
ATTENDRE UN CERTAINS NOMBRE DE SECONDES/MILLISECONDES SANS "PERDRE LA MAIN"
Information sur la source
Description
Je n'ai pas trouver d'equivalent ici, je la poste donc en esperant ne pas creer de doublons. La fonction sleep fait pareil, mais elle fige le programme, et vous ne pouvez plus faire aucunes actions dessus...contrairement à cette fonction :
Source
- 'dans un module ou dans votre feuille :
-
- Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
- Private Declare Function GetTickCount Lib "kernel32" () As Long
-
-
- Public Sub hbwait(millisecondes As Long)
- Dim attente As Long
- attente = GetTickCount + millisecondes
- Do Until GetTickCount >= attente
- DoEvents
- Sleep 1
- Loop
- End Sub
-
-
-
-
- 'et au moment ou vous voulez la pause :
- hbwait 5000
'dans un module ou dans votre feuille :
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub hbwait(millisecondes As Long)
Dim attente As Long
attente = GetTickCount + millisecondes
Do Until GetTickCount >= attente
DoEvents
Sleep 1
Loop
End Sub
'et au moment ou vous voulez la pause :
hbwait 5000
Conclusion
HB
Historique
- 12 juin 2007 00:59:05 :
- 5 ans plus tard, dechargement du processeur par un sleep de 1sc ^^
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
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
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
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
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 / Wait [ par ymerej ]
Bonjour,quel est l'équivalent en VB des fonctions comme Sleep(5), wait(5) qui permet d'attendre 5 secondes ?Vous allez me dire qu'on peut passer par u
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
cummule de temps [ par monopole ]
bonjour, je n'arrive pas à faire le cummule de temps. sur ma table (pause) j'ai un champ pa_pause de type datetime qui signale le temps de pause pris
calcule de temps [ par monopole ]
bonjour,dans ma table (pause_ta) j'ai un champ [pa_pause] qui enregistre le temps pris par une personne expl --> (00:35:03), sur mon application gesti
attendre l'appuie d'une touche [ par nardelmouk ]
salut, je souhaite faire un petit interpréteur, et je me pose la question, comment faire pour que le programme attende que l'utilisateur donne une rép
Fenetre active [ par tomsower ]
Bonjour, Dans mon programme je fais un shell qui ouvre une fenetre DOS et qui commence un traitement. Ensuite je fais un sleep de 25000 (le temps que
|
Derniers Blogs
ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHEASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi
Tout le monde est unanime pour dire que la programmation multi-thread et asynchrone est en train de devenir un sujet incontournable. Beaucoup de choses sont arrivées avec le framework 4 pour le code parallèle (TPL, PLinq,.) et bientôt, on va avoir l...
Cliquez pour lire la suite de l'article par fathi PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|