jueves, 9 de septiembre de 2010

Reloj analogo en Batch

Este es un reloj bien chulo,para los que piensan que es imposible en batch:


@echo off
mode 78,21
SET X=ø
SET X2=Û

FOR /L %%W IN (11,1,21) DO set "S%%W= "
FOR /L %%W IN (11,1,21) DO set "M%%W= "
FOR /L %%W IN (11,1,21) DO set "H%%W= "
call :0 M
call :0 S
call :0 H
:ini1
set H=%time:~0,2%
if %H% Lss 10 set H=%time:~1,1%
set M=%time:~3,2%
if %M% Lss 10 set M=%time:~4,1%
set S=%time:~6,2%
if %S% Lss 10 set S=%time:~7,1%
call:tim
cls
TITLE................:::: %H% HORAS ::::.................................:::: %M% MINUTOS ::::................................:::: %S% SEGUNDOS ::::.....................
echo.
echo. HORA MINUTOS SEGUNDOS
echo.
echo. %X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2% :: %X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2% :: %X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%
echo %X2% 10 12 2 %X2% :: %X2% 10 12 2 %X2% :: %X2% 10 12 2 %X2%
echo. %X2% %H11% %X2% :: %X2% %M11% %X2% :: %X2% %S11% %X2%
echo. %X2% %H12% %X2% :: %X2% %M12% %X2% :: %X2% %S12% %X2%
echo. %X2% %H13% %X2% :: %X2% %M13% %X2% :: %X2% %S13% %X2%
echo. %X2% %H14% %X2% :: %X2% %M14% %X2% :: %X2% %S14% %X2%
echo. %X2% %H15% %X2% :: %X2% %M15% %X2% :: %X2% %S15% %X2%
echo. %X2%9 %H16% 3%X2% :: %X2% %M16% %X2% :: %X2% %S16% %X2%
echo. %X2% %H17% %X2% :: %X2% %M17% %X2% :: %X2% %S17% %X2%
echo. %X2% %H18% %X2% :: %X2% %M18% %X2% :: %X2% %S18% %X2%
echo. %X2% %H19% %X2% :: %X2% %M19% %X2% :: %X2% %S19% %X2%
echo. %X2% %H20% %X2% :: %X2% %M20% %X2% :: %X2% %S20% %X2%
echo. %X2% %H21% %X2% :: %X2% %M21% %X2% :: %X2% %S21% %X2%
echo %X2% 8 6 4 %X2% :: %X2% 8 6 4 %X2% :: %X2% 8 6 4 %X2%
echo. %X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2% :: %X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2% :: %X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%%X2%
ECHO.
echo.
goto:ini1
:tim
ping -n 1 localhost>nul
FOR /L %%W IN (0,5,55) DO if %S%==%%W (call :%%W S)
FOR /L %%W IN (0,5,55) DO if %M%==%%W (call :%%W M)
if %H%==1 (call :5 H )
if %H%==2 (call :10 H )
if %H%==3 (call :15 H )
if %H%==4 (call :20 H )
if %H%==5 (call :25 H )
if %H%==6 (call :30 H )
if %H%==7 (call :35 H )
if %H%==8 (call :40 H )
if %H%==9 (call :45 H )
if %H%==10 (call :50 H )
if %H%==11 (call :55 H )
if %H%==12 (call :0 H )
if %H%==13 (call :5 H )
if %H%==14 (call :10 H )
if %H%==15 (call :15 H )
if %H%==16 (call :20 H )
if %H%==17 (call :25 H )
if %H%==18 (call :30 H )
if %H%==19 (call :35 H )
if %H%==20 (call :40 H )
if %H%==21 (call :45 H )
if %H%==22 (call :50 H )
if %H%==23 (call :55 H )
if %H%==0 (call :0 H )
goto:eof


:0
set "%111= %X% "
set "%112= %X% "
set "%113= %X% "
set "%114= %X% "
set "%115= %X% "
set "%116= © "
set "%117= "
set "%118= "
set "%119= "
set "%120= "
set "%121= "
goto:eof
:5
set "%111= "
set "%112= %X% "
set "%113= "
set "%114= %X% "
set "%115= "
set "%116= © "
set "%117= "
set "%118= "
set "%119= "
set "%120= "
set "%121= "
goto:eof
:10
set "%111= %X%"
set "%112= %X% "
set "%113= %X% "
set "%114= %X% "
set "%115= %X% "
set "%116= © "
set "%117= "
set "%118= "
set "%119= "
set "%120= "
set "%121= "
goto:eof
:15
set "%111= "
set "%112= "
set "%113= "
set "%114= "
set "%115= "
set "%116= ©%X%%X%%X%%X% "
set "%117= "
set "%118= "
set "%119= "
set "%120= "
set "%121= "
goto:eof
:20
set "%111= "
set "%112= "
set "%113= "
set "%114= "
set "%115= "
set "%116= © "
set "%117= %X% "
set "%118= %X% "
set "%119= %X% "
set "%120= %X% "
set "%121= %X%"
goto:eof
:25
set "%111= "
set "%112= "
set "%113= "
set "%114= "
set "%115= "
set "%116= © "
set "%117= "
set "%118= %X% "
set "%119= "
set "%120= %X% "
set "%121= "
goto:eof
:30
set "%111= "
set "%112= "
set "%113= "
set "%114= "
set "%115= "
set "%116= © "
set "%117= %X% "
set "%118= %X% "
set "%119= %X% "
set "%120= %X% "
set "%121= %X% "
goto:eof
:35
set "%111= "
set "%112= "
set "%113= "
set "%114= "
set "%115= "
set "%116= © "
set "%117= "
set "%118= %X% "
set "%119= "
set "%120= %X% "
set "%121= "
goto:eof
:40
set "%111= "
set "%112= "
set "%113= "
set "%114= "
set "%115= "
set "%116= © "
set "%117= %X% "
set "%118= %X% "
set "%119= %X% "
set "%120= %X% "
set "%121=%X% "
goto:eof
:45
set "%111= "
set "%112= "
set "%113= "
set "%114= "
set "%115= "
set "%116= %X%%X%%X%%X%© "
set "%117= "
set "%118= "
set "%119= "
set "%120= "
set "%121= "
goto:eof
:50
set "%111=%X% "
set "%112= %X% "
set "%113= %X% "
set "%114= %X% "
set "%115= %X% "
set "%116= © "
set "%117= "
set "%118= "
set "%119= "
set "%120= "
set "%121= "
goto:eof
:55
set "%111= "
set "%112= %X% "
set "%113= "
set "%114= %X% "
set "%115= "
set "%116= © "
set "%117= "
set "%118= "
set "%119= "
set "%120= "
set "%121= "
goto:eof

goto:eof

Y lo guardan con el nombren que ustedes quieran,seguido de la extensión .bat

0 comentarios: