Faire une attente sous dos (batch)

Le temps d'attente va varier en fonction de la vitesse du processeur.

Un petit souci avec des conversions en octal pour les valeurs 08 et 09 m'a fait modifier cette procédure pour retirer le premier caractère de chaque valeur quand il s'agit d'un 0.
Mais sinon, la procédure semble fonctionner à merveille...

Exemple qui fonctionne avec WIN7:
choice /t 10 /D o "Pause de 10 secondes veuillez patienter.."

version simplifiée de la boucle d'attente fonctionnant sur tous les ordinateurs et sans paramètres spéciaux de comportement ni programme spécifique
@echo off
echo.
echo test de boucle d'attente sous dos
echo appel de la routine pour 6 secondes d'attente

call :attente 6

echo l'attente (6secondes) est finie, le script peut continuer
pause

goto eof

:attente
rem pour appeler cette routine (temps en secondes) call :attente 5
call :calcultemps
set /a t1= %t2% + %1
:boucleattente
call :calcultemps
if "%t2%" LSS "%t1%" goto boucleattente
goto :eof
:calcultemps
set /a h1= %time:~0,2% * 3600 1>nul 2>&1
set /a m1= %time:~3,2% * 60 1>nul 2>&1
set s1=%time:~6,2% 1>nul 2>&1
set /a t2= %h1% + %m1% + %s1% 1>nul 2>&1
goto :eof

version plus complète avec prise en compte du changement de jour , affichage du temps restant, et beep final

@echo off
echo.
echo test de boucle d'attente sous dos

call :attente 12

pause
goto eof

:attente
rem pour appeler cette routine (temps en secondes) call :attente 5
set c2=.
set c3=%1
echo appel de la routine pour %1 secondes d'attente
call :calcultemps
set /a t1a= %t2%
set /a t1= %t2% + %1
rem ajouter éventuellement des 2 espaces après patienter
(Set /P paf= patienter ) <NUL

:boucleattente
call :calcultemps
set /a c1= %t2% - %t1a%
if %c1% LSS 0 (
set /a c1= 0
set /a c3= %t1% - 86400
set /a c2= %t1% - 86400
set /a t1a= 0
set /a t1= %t1% - 86400
)
:efface
rem si fonctionne pas
rem supprimer l'espace qui se met au copier coller en fin de ligne suivante : set c2=%c2:~0,-1%
set c2=%c2:~0,-1%
rem paf= caractère BS effacement arrière obtenu avec alt 008 avec notepad++
(Set /P paf=) <NUL
if not "%c2%"=="" goto efface
set /a c2=%c3% - %c1%
(Set /P paf=%c2%s ) <NUL
if not %c2% leq 0 goto boucleattente

(Set /P paf=) <NUL
echo l'attente de %1s est finie le script continue
rem son via carte mère : caractère : alt 007
echo 
rem son via la carte son
rundll32 user32.dll,MessageBeep
goto :eof

:calcultemps
set /a h1= %time:~0,2% * 3600 1>nul 2>&1
set /a m1= %time:~3,2% * 60 1>nul 2>&1
set s1=%time:~6,2% 2>&1
set /a t2= %h1% + %m1% + %s1% 1>nul 2>&1
goto :eof

La manipulation de date est une bonne idée.
En revanche on reste dans le cadre d'une boucle quasi infinie consommant du CPU.

le probleme c'est que si on veut l'integrer dans un autre programme au lieu de continuer a la fin du temp le programme se ferme

bonjour ; ça fonctionne si ça intéresse ; utilisez worpad.exe pour les accents et + :

=> Avec worpad.exe on peut enregistrer un fichier au format texte ms-dos (oem/ansi).

CRC32: 51E5549F
MD5: F78BD9F46E877C48C5E48DB09CB9F361
SHA-1: 3D1780F8DF5C5ADBD32B70AC573891305416C7D1
SHA-256: A3C85571AD1C080B58B64417D8971FC20E6A02BAEA8C97F7AC85F2C46A2C4B4F

test20120129-22h26.bat

@echo off

setlocal

cls
echo €a commence ...
echo.

set varadd=0
set varnombre=0

rem 0 = 00 to 15 ; 1 = 16 to 255
set vardecihexaright=0
rem 0 = 0x00 to 0x09 ; 1 = 0x10 to 0x0F
set varhexaright=0

rem 0 = 00 to 15 ; 1 = 16 to 255
set vardecihexaleft=0
rem 0 = 0x00 to 0x09 ; 1 = 0x10 to 0xFF
set varhexaleft=0

:astc
set /a varadd=%varnombre%+1
set varnombre=%varadd%
echo %varnombre%

set varnbrighthexa="%varnombre%"
if "%varnombre%" == "10" (set varnbrighthexa="A")
if "%varnombre%" == "11" (set varnbrighthexa="B")
if "%varnombre%" == "12" (set varnbrighthexa="C")
if "%varnombre%" == "13" (set varnbrighthexa="D")
if "%varnombre%" == "14" (set varnbrighthexa="E")
if "%varnombre%" == "15" (set varnbrighthexa="F")

set varnbrlefthexa="%varnombre%"
if "%varnombre%" == "10" (set varnbrlefthexa="A")
if "%varnombre%" == "11" (set varnbrlefthexa="B")
if "%varnombre%" == "12" (set varnbrlefthexa="C")
if "%varnombre%" == "13" (set varnbrlefthexa="D")
if "%varnombre%" == "14" (set varnbrlefthexa="E")
if "%varnombre%" == "15" (set varnbrlefthexa="F")

set stocknbrhexa=%varnbrlefthexa%%varnbrighthexa%
echo %stocknbrhexa%

rem ****
rem temporisation
rem http://support.microsoft.com/kb/460936/
rem http://www.commentcamarche.net/forum/affich-2047032-faire-une-attente-sous-dos-batch

set secondbegin=%time:~6,2%
set /a secondelay=%secondbegin%+1
set secondtest=%secondelay%
if "%secondtest%" == "60" (set secondtest=1)
if "%secondtest%" == "61" (set secondtest=2)
if "%secondtest%" == "62" (set secondtest=3)

:paustmp
rem pause
set secondactueltest=%time:~6,2%
rem echo %secondtest%
rem echo %secondactueltest%
if not %secondactueltest% geq %secondtest% (goto paustmp)
rem ****

if "%varnombre%" equ "15" (goto fin)
goto astc

goto answer%ERRORLEVEL%
:answer0
echo Le programme a retourné le code 0
goto suite
:answer1
echo Le programme a retourné le code 1
:suite
echo.
pause

:fin
endlocal
exit /B

C'est très difficile de trouver certaines erreurs comme un fichier echo qui bloque 'echo.'

à+ ; le but est de faire un compteur hexadécimale et + ...

http://www.ss64.com/nt/
http://www.robvanderwoude.com/choice.html (merci Jeff)

slt re ; j'ai trouvé une astuce mais ce n'est pas du tout parfait ; bien que ça fonctionne :

Comment RE-écrire sur la même ligne sans sauter de ligne (e.g. avec echo) ?

Ça clignotera à fond (encore plus) si timeout n'est pas réglé à 1 seconde ou plus.

Ça clignote trop et la réécriture de plusieurs lignes ralenti le processus global ...

Vous pouvez faire un film ; une animation :*-)) !

@echo off
setlocal

set varadd=0
set varnombre=0

set damier=1

:astc
set /a varadd=%varadd%+(0x01)
set varnombre=%varadd%
mode con:lines=25
:
echo Start test ...
echo.
echo demo pour afficher un compteur sans sauter de lignes avec echo
echo.
echo ce n'est pas du tout parfait (clignotage) mais cela fonctionne
echo.
echo Astuce = mode con:lines=25 (25 peut venir depuis une variable)
echo.
if %damier%==2 (goto damier2)
echo ÜßÜßÜßÜßÜßÜßÜßÜß
echo ÜßÜßÜßÜßÜßÜßÜßÜß
echo ÜßÜßÜßÜßÜßÜßÜßÜß LE DAMIER CHANGE DE FORME 8=))
echo ÜßÜßÜßÜßÜßÜßÜßÜß
echo ÜßÜßÜßÜßÜßÜßÜßÜß
set damier=2
goto findamier1
:damier2
echo ßÜßÜßÜßÜßÜßÜßÜßÜ
echo ßÜßÜßÜßÜßÜßÜßÜßÜ
echo ßÜßÜßÜßÜßÜßÜßÜßÜ LE DAMIER CHANGE DE FORME 8=))
echo ßÜßÜßÜßÜßÜßÜßÜßÜ
echo ßÜßÜßÜßÜßÜßÜßÜßÜ
set damier=1
:findamier1
echo.
:
echo compteur %varnombre%
if /i %varnombre% geq 20 goto eof
echo.
echo Sortie quand le compteur affichera 20
timeout /T 1 > nul
goto astc

:eof
echo.
echo sortie du test
echo.
pause
endlocal
exit

1021 octets (1 021 octets)

CRC32: 6909C08A
MD5: 474611FB4C07B8156D0EE0305D98FB06
SHA-1: B8C14C04050299424BD5B4E4C40D06EEB33F97BE
SHA-256: 40DBC0295833B82085A581CAE5B3848599C7CD031E2BD3589315C8778248B5A4

Avec la souris on ne peut pas copier ; la fenêtre se vide quand on clic ;-)) ; cela peut servir.

Idem, par le menu ... ;-)) ; et dans les deux cas, le programme (le compteur) est en pause.

Appuyez sur une touche (focus dans l'invite de commandes) pour continuer :--) !

(( Il devrait être possible de tester, si l'écran est vide + de 1 seconde ou si c'est normal ?
Puis agir selon cela ... ; jeu, test, ... ))

Le compteur hexadécimale ne fonctionne pas comme je le souhaiterais (sauf erreur de code) car le résultat semble n'être disponible qu'au format décimale même si c'est bien de pouvoir ajouter un nombre hexadécimal en l'additionnant (par exemple) à un autre.

à vous lire

slt re ; mon danseur est cool :-D)

Danseur20120201-01h53m00-1610octectsCRC32=948DD4CF.bat

1,57 Ko (1 610 octets)

CRC32: 948DD4CF
MD5: EFA9EB26A850F1A8BB69A247C5A49624
SHA-1: 152879D27142AE6D6318CEB418E624107D6C8686
SHA-256: 1BCA815A2E24D4C87489D8B67EAD1C1A6C3C76794773632671DEB9198897D7C2

(( POC Download avec Hash+Taille => GégènBinaire | CommentCaMarche :
http://www.commentcamarche.net/forum/affich-24282430-poc-download-avec-hash-taille-gegenbinaire ))

@echo off
setlocal

set varadd=0
set varnombre=0

set danse=1
set damier=1

:astc
set /a varadd=%varadd%+(0x01)
set varnombre=%varadd%
mode con:lines=25
:
echo Start test ...
echo.
echo demo pour afficher un compteur sans sauter de lignes avec echo
echo.
echo ce n'est pas du tout parfait (clignotage) mais cela fonctionne
echo.
echo Astuce = mode con:lines=25 (25 peut venir depuis une variable)
echo.
:
if not %danse%==1 goto danse2
echo       o
echo       (\  danse with me 8-D)
echo       /\
set danse=2
goto dansefincycle
:
:danse2
if not %danse%==2 goto danse3
echo         o
echo        =   danse with me 8-D)
echo       /\
set danse=3
goto dansefincycle
:
:danse3
if not %danse%==3 goto danse4
echo        \o/
echo         )  danse with me 8-D)
echo        /\
set danse=4
goto dansefincycle
:
:danse4
if not %danse%==4 goto dansefincycle
echo       o
echo       )=   danse with me 8-D)
echo       /\
set danse=1
:dansefincycle
:
echo.
:
if %damier%==2 (goto damier2)
echo ÜßÜßÜßÜßÜßÜßÜßÜß
echo ÜßÜßÜßÜßÜßÜßÜßÜß
echo ÜßÜßÜßÜßÜßÜßÜßÜß LE DAMIER CHANGE DE FORME 8=))
echo ÜßÜßÜßÜßÜßÜßÜßÜß
echo ÜßÜßÜßÜßÜßÜßÜßÜß
set damier=2
goto findamier1
:damier2
echo ßÜßÜßÜßÜßÜßÜßÜßÜ
echo ßÜßÜßÜßÜßÜßÜßÜßÜ
echo ßÜßÜßÜßÜßÜßÜßÜßÜ LE DAMIER CHANGE DE FORME 8=))
echo ßÜßÜßÜßÜßÜßÜßÜßÜ
echo ßÜßÜßÜßÜßÜßÜßÜßÜ
set damier=1
:findamier1
echo.
:
echo compteur %varnombre%
if /i %varnombre% geq 20 goto eof
echo.
echo Sortie quand le compteur affichera 20
timeout /T 1 > nul
goto astc

:eof
echo.
echo sortie du test
echo.
pause
endlocal
exit

à vous lire :*-))

slt ; version du danseur avec bonus (versions précédentes détruites) :

Danseur20120201-03h31m00-2546octectsCRC32=20725800.bat

2,48 Ko (2 546 octets)

CRC32: 20725800
MD5: 8B91019EBBDE66DAAA4837E721BA4839
SHA-1: 3EA1990AE3DC89927B2C8E709A615B372951807F
SHA-256: AD67D4B2F68D6DB4C4FB187EEFE2401FAA76B6989FA981B79BD544927F4741E0

@echo off
setlocal

set varadd=0
set varnombre=0

set danse=1
set damier=1

:astc
set /a varadd=%varadd%+(0x01)
set varnombre=%varadd%
mode con:lines=25
:
echo Start test ...
echo.
echo demo pour afficher un compteur sans sauter de lignes avec echo
echo.
echo ce n'est pas du tout parfait (clignotage) mais cela fonctionne
echo.
echo Astuce = mode con:lines=25 (25 peut venir depuis une variable)
echo.
:
:danse1
if not %danse%==1 goto danse2
echo       o
echo       (\   danse  with  me  8-D)
echo       /\
set danse=2
goto dansefincycle
:
:danse2
if not %danse%==2 goto danse3
echo         o
echo        =   danse  with  me  8-D)
echo       /\
set danse=3
goto dansefincycle
:
:danse3
if not %danse%==3 goto danse4
echo        \o/
echo         )  danse  with  me  8-D)
echo        /\
set danse=4
goto dansefincycle
:
:danse4
if not %danse%==4 goto danse5
echo       o
echo       )=   danse  with  me  8-D)
echo       /\
set danse=5
goto dansefincycle
:
:danse5
if not %danse%==5 goto danse6
echo       o
echo       (\   danse  with  me 8,-D)
echo       /\
set danse=6
goto dansefincycle
:
:danse6
if not %danse%==6 goto danse7
echo         o
echo        =   danse  with  me 8,-D)
echo       /\
set danse=7
goto dansefincycle
:
:danse7
if not %danse%==7 goto danse8
echo        \o/
echo         )  danse  with  me  8-D)
echo        /\
set danse=8
goto dansefincycle
:
:danse8
if not %danse%==8 goto dansefincycle
echo       o
echo       )=   danse  with  me  8-D)
echo       /\
set danse=1
:dansefincycle
:
echo.
:
if %damier%==2 (goto damier2)
echo ÜßÜßÜßÜßÜßÜßÜßÜß
echo ÜßÜßÜßÜßÜßÜßÜßÜß
if not %danse%==7 goto dansedamier1
echo ÜßÜßÜßÜßÜßÜßÜßÜß LE DAMIER CHANGE DE FORME 8;=D))
:dansedamier1
if %danse%==7 goto finsouriredamier1
echo ÜßÜßÜßÜßÜßÜßÜßÜß LE DAMIER CHANGE DE FORME 8=))
:finsouriredamier1
echo ÜßÜßÜßÜßÜßÜßÜßÜß
echo ÜßÜßÜßÜßÜßÜßÜßÜß
set damier=2
goto findamier1
:damier2
echo ßÜßÜßÜßÜßÜßÜßÜßÜ
echo ßÜßÜßÜßÜßÜßÜßÜßÜ
if not %danse%==7 goto dansedamier2
echo ßÜßÜßÜßÜßÜßÜßÜßÜ LE DAMIER CHANGE DE FORME 8;=D))
:dansedamier2
if %danse%==7 goto finsouriredamier2
echo ßÜßÜßÜßÜßÜßÜßÜßÜ LE DAMIER CHANGE DE FORME 8=))
:finsouriredamier2
echo ßÜßÜßÜßÜßÜßÜßÜßÜ
echo ßÜßÜßÜßÜßÜßÜßÜßÜ
set damier=1
:findamier1
echo.
:
echo compteur %varnombre%
if /i %varnombre% geq 20 goto eof
echo.
echo Sortie quand le compteur affichera 20
timeout /T 1 > nul
goto astc

:eof
echo.
echo sortie du test
echo.
pause
endlocal
exit

Il manque une trappe pour la fin dans le dancefloor et des cris en texte, nnoon ... :-))

à vous lire :*-))

Salut,

Availability
Choice.com was originally supplied on the Windows 95 install CD, however there are some issues with this version under NT - multiple concurrent invocations of CHOICE will clobber each other. CHOICE.com will also burn a lot of CPU's when in a wait state.
The NT and 2000 Resource Kits contain CHOICE.EXE which behaves a lot better.
In Windows 2003 CHOICE became a built-in command so it is no longer in the resource kit.
http://www.ss64.com/nt/choice.html

bonjour
bon script, mais ne fonctionne pas sous dos en paramètres régionaux "france" car dans time le point est remplacé par une virgule.
il faut donc ajouter la ligne suivante pour remplacer cette virgule (si elle est là) par un point
après set t1=N%%i il faut ajouter
set t1=!t1:,=.!
et après set t2=N%%i il faut ajouter
set t2=!t2:,=.!

pause affiche juste "appuyer sur une touche pour continuer..."

Oblige une interaction usager. Ce n'est pas ce qui est demandé.

Ben fallait juste lire ;-))