Ms-Dos - Sin utilizar ping ni comandos externos

   
Vista:

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:

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
 
:ESPERAR
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, 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Ms-Dos
- Cursos de Ms-Dos
- Temas de Ms-Dos
información
Cursos y Temas de Ms-Dos
- Tutorial Sobre el Mouse
- MS-DOS knowledge base articles
- Tutorial de comandos para MS-DOS