Sin utilizar ping ni comandos externos
Publicado por Rober (3 intervenciones) el 04/11/2012 20:29:51
El siguiente código hace páusas con resoluciones de centésimas de segundo
sin necesidad de comandos externos como el truco del ping.
Esta probado en Windows XP y Windows7:
El código es muy ingenioso y no tiene desperdicio, aún así es increible las
"verdulerías" que hay que hacer en MSDOS para conseguir cosas simples.
Que os aproveche 8-)
sin necesidad de comandos externos como el truco del ping.
Esta probado en Windows XP y Windows7:
1
2
3
4
5
6
7
8
9
10
for /f "tokens=1,2,3,4 delims=:," %%A in ("%TIME%") do set /a HH=%%A, MM=1%%B-100, SS=1%%C-100, CC=1%%D-100, TBASE=((HH*60+MM)*60+SS)*100+CC
:: Ejemplo pausa de un segundo, cambiar el 100 por otro valor expresado en centésimas de segundo.
set /a TFIN=%TBASE%+100
:ESPERARfor /f "tokens=1,2,3,4 delims=:," %%A in ("%TIME%") do set /a HH=%%A, MM=1%%B-100, SS=1%%C-100, CC=1%%D-100, TACTUAL=((HH*60+MM)*60+SS)*100+CC
if %TACTUAL% lss %TBASE% set /a TACTUAL=%TBASE%+%TACTUAL%
if %TACTUAL% lss %TFIN% goto ESPERAR
El código es muy ingenioso y no tiene desperdicio, aún así es increible las
"verdulerías" que hay que hacer en MSDOS para conseguir cosas simples.
Que os aproveche 8-)
Valora esta pregunta
0