VB attendre lors de l'exécution...Résolu

Question

Existe-t-il une fonction toute faite pour attendre pendant "n" sec lors de l'ex&#233;cution (par exemple pour laisser le temps &#224; un fichier d'&#234;tre &#233;crit sur le disque) du genre: wait(n) et donc on attend "n" secondes pendant lesquelles il ne se passe rien... Merci!

cs_DARKSIDIOUS · Accepted Answer

Utilise la fonction de l'API Windows Sleep

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

cs_trabice · Answer

sleep ne stope pas tout le programme?

il ne peut pas s inspirer de ca plutot?
http://www.vbfrance.com/forum.v2.aspx?ID=600214#6

cs_DARKSIDIOUS · Answer

Ben si, sleep fait une pause dans le programme, mais c'est pas ce qu'il demande ?



Si son but, c'est d'attendre qu'un fichier soit copi&#233;, ca peut fonctionner et sera bien plus optimis&#233; qu'une boucle While !



Quand au lien que tu donne, je vois pas le rapport !

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

cs_trabice · Answer

pour moi ca question c'&#233;tait plus l'attente d'une ex&#233;cution d'un traitement dans programme.si c'est le cas,un sleep vas bloquer tout son programme, faux?
dans ce cas, il cache la feuille sur laquelle il &#233;tait avant de lancer son traitement, met un frm vierge avec un label "patientez" et r&#233;affiche sa feuille quand son traitement est termin&#233;.

cs_DARKSIDIOUS · Answer

trabice : si la copie est synchrone (donc bloque le programme tant
qu'elle n'est pas finie), pas besoin de faire un sleep : il se fait
tout seul.

Si la copie est asynchrone, et que tu ne veux rien &#233;x&#233;cuter tant que la
copie n'est pas finie, ta m&#233;thode ne suffit pas : elle ne bloquera pas
l'&#233;x&#233;cution du reste de la macro, elle ne fera qu'afficher une feuille
=> ce n'est pas la solution !



Un sleep reste, je pense, la meilleure solution : tu fait une boucle :



while (fichier non copi&#233;)

Sleep 1000

Wend


Ainsi, tu n'occupe pas 100 % du processeur durant la copie, ce qui est le cas avec une simple boucle

while (fichier non copi&#233;)


DoEvents


Wend



J'utilise ce genre de code depuis des ann&#233;es, et ca marche &#224; merveille !

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

cs_trabice · Answer

j'ai pas dis que tu avais tord :-)
je testerai 
while (fichier non copi&#233;)
Sleep 1000
Wend

:-)

bon ben normalement c'est r&#233;ponse accept&#233;e pour toi ca.

bon prog

CDAlstom · Answer

lol je pensais pas avoir tant de r&#233;ponses! Je testerai demain mais pour &#233;claircir ma question, en gros, ce que je voudrais c'est qu'entre l'instruction i et l'instruction i+1, il se passe un nombre donn&#233;e de secondes que le prog est le temps de faire ceci ou cela (ex comme je le disais &#233;crire dans un fichier parce que l'instruction d'apr&#232;s va lire dans ce fichier)...

Merci &#224; vous! (j'accepte la r&#233;ponse de "Dark" mais merci &#224; vous tous)

crenaud76 · Answer

Une ecriture dans un fichier est synchrone ! Donc si tu écris dans un fichier à l'instruction i, c'est dispo à l'instruction i+1 !!
Du moins si l'écriture se fait bien via des fonctions VB !
Si to "ecriture de fichier" se fait via un Shell() sur une commande redirigé, alors je te conseillerais plutot :
1- Soit d'opter pour une autre méthode que le shell() : API par exemple ?! Tout dépend de ce que tu veux faire au final
2- soit d'opter pour une version synchrone du shell() : voir mes souces.

CR

CDAlstom · Answer

Ouep... J'ai test&#233; ce matin... "Sleep", &#231;a sort d'o&#249;?!? Parce qu'il cro&#238;t que c'est une fonction et donc elle est pas d&#233;finie...
Et pour &#233;claircir encore ma question qui est vraiment simple en fin de compte... Je veux juste faire une temporisation d'une dur&#233;e donn&#233;e &#224; un endroit donn&#233;e...
Ex:
instruction i
'attendre "s" secondes
instruction i+1

Merci d'avance!

CDAlstom · Answer

Je me réponds à moi-même: il faut déclarer cette API au début du code ainsi: Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ... Merci, vous m'avez mis sur le bon chemin!

VB attendre lors de l'exécution...

10 réponses

Discussions similaires