un pequeño reloj en batch

Ver el tema anterior Ver el tema siguiente Ir abajo

un pequeño reloj en batch

Mensaje  [G]host el Vie Dic 17, 2010 12:23 am

@echo off
title The [G]host clock
color a
mode con: cols=85 lines=11
:def
set varu=.
set vard=.
set vart=.
set varc=.
set varci=.
set vars=.
set varsi=.
set varo=.
set varn=.
set vardi=.
set hu=%time:~0,1%
set hu=%hu: =0%
set hd=%time:~1,1%
set mu=%time:~3,1%
set md=%time:~4,1%
set su=%time:~6,1%
set sd=%time:~7,1%
call:pone %hu%
call:pone %hd%
set "varu=%varu% "
set "vard=%vard% ÛÛÛ "
set "vart=%vart% ÛÛÛ "
set "varc=%varc% ÛÛÛ "
set "varci=%varci% "
set "vars=%vars% "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛ "
set "vardi=%vardi% "
call:pone %mu%
call:pone %md%
set "varu=%varu% "
set "vard=%vard% ÛÛÛ "
set "vart=%vart% ÛÛÛ "
set "varc=%varc% ÛÛÛ "
set "varci=%varci% "
set "vars=%vars% "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛ "
set "vardi=%vardi% "
call:pone %su%
call:pone %sd%
ping -n 1 localhost>nul
cls
echo %varu:~1%
echo %vard:~1%
echo %vart:~1%
echo %varc:~1%
echo %varci:~1%
echo %vars:~1%
echo %varsi:~1%
echo %varo:~1%
echo %varn:~1%
echo %vardi:~1%
goto:def

:pone
set n=%1
if %n%==0 (
set "varu=%varu% ÛÛÛÛÛÛÛÛÛ "
set "vard=%vard% ÛÛÛÛÛÛÛÛÛ "
set "vart=%vart% ÛÛÛ ÛÛÛ "
set "varc=%varc% ÛÛÛ ÛÛÛ "
set "varci=%varci% ÛÛÛ ÛÛÛ "
set "vars=%vars% ÛÛÛ ÛÛÛ "
set "varsi=%varsi% ÛÛÛ ÛÛÛ "
set "varo=%varo% ÛÛÛ ÛÛÛ "
set "varn=%varn% ÛÛÛÛÛÛÛÛÛ "
set "vardi=%vardi% ÛÛÛÛÛÛÛÛÛ "
)

if %n%==1 (
set "varu=%varu% ÛÛÛ "
set "vard=%vard% ÛÛÛ "
set "vart=%vart% ÛÛÛ "
set "varc=%varc% ÛÛÛ "
set "varci=%varci% ÛÛÛ "
set "vars=%vars% ÛÛÛ "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛ "
set "vardi=%vardi% ÛÛÛ "
)

if %n%==2 (
set "varu=%varu% ÛÛÛÛÛÛÛÛÛ "
set "vard=%vard% ÛÛÛÛÛÛÛÛÛ "
set "vart=%vart% ÛÛÛ "
set "varc=%varc% ÛÛÛ "
set "varci=%varci% ÛÛÛÛÛÛÛÛÛ "
set "vars=%vars% ÛÛÛÛÛÛÛÛÛ "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛÛÛÛÛÛÛ "
set "vardi=%vardi% ÛÛÛÛÛÛÛÛÛ "
)

if %n%==3 (
set "varu=%varu% ÛÛÛÛÛÛÛÛÛ "
set "vard=%vard% ÛÛÛÛÛÛÛÛÛ "
set "vart=%vart% ÛÛÛ "
set "varc=%varc% ÛÛÛ "
set "varci=%varci% ÛÛÛÛÛÛÛÛÛ "
set "vars=%vars% ÛÛÛÛÛÛÛÛÛ "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛÛÛÛÛÛÛ "
set "vardi=%vardi% ÛÛÛÛÛÛÛÛÛ "
)

if %n%==4 (
set "varu=%varu% ÛÛÛ ÛÛÛ "
set "vard=%vard% ÛÛÛ ÛÛÛ "
set "vart=%vart% ÛÛÛ ÛÛÛ "
set "varc=%varc% ÛÛÛ ÛÛÛ "
set "varci=%varci% ÛÛÛÛÛÛÛÛÛ "
set "vars=%vars% ÛÛÛÛÛÛÛÛÛ "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛ "
set "vardi=%vardi% ÛÛÛ "
)

if %n%==5 (
set "varu=%varu% ÛÛÛÛÛÛÛÛÛ "
set "vard=%vard% ÛÛÛÛÛÛÛÛÛ "
set "vart=%vart% ÛÛÛ "
set "varc=%varc% ÛÛÛ "
set "varci=%varci% ÛÛÛÛÛÛÛÛÛ "
set "vars=%vars% ÛÛÛÛÛÛÛÛÛ "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛÛÛÛÛÛÛ "
set "vardi=%vardi% ÛÛÛÛÛÛÛÛÛ "
)

if %n%==6 (
set "varu=%varu% ÛÛÛÛÛÛÛÛÛ "
set "vard=%vard% ÛÛÛÛÛÛÛÛÛ "
set "vart=%vart% ÛÛÛ "
set "varc=%varc% ÛÛÛ "
set "varci=%varci% ÛÛÛÛÛÛÛÛÛ "
set "vars=%vars% ÛÛÛÛÛÛÛÛÛ "
set "varsi=%varsi% ÛÛÛ ÛÛÛ "
set "varo=%varo% ÛÛÛ ÛÛÛ "
set "varn=%varn% ÛÛÛÛÛÛÛÛÛ "
set "vardi=%vardi% ÛÛÛÛÛÛÛÛÛ "
)

if %n%==7 (
set "varu=%varu% ÛÛÛÛÛÛÛÛÛ "
set "vard=%vard% ÛÛÛÛÛÛÛÛÛ "
set "vart=%vart% ÛÛÛ ÛÛÛ "
set "varc=%varc% ÛÛÛ ÛÛÛ "
set "varci=%varci% ÛÛÛ "
set "vars=%vars% ÛÛÛ "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛ "
set "vardi=%vardi% ÛÛÛ "
)

if %n%==8 (
set "varu=%varu% ÛÛÛÛÛÛÛÛÛ "
set "vard=%vard% ÛÛÛÛÛÛÛÛÛ "
set "vart=%vart% ÛÛÛ ÛÛÛ "
set "varc=%varc% ÛÛÛ ÛÛÛ "
set "varci=%varci% ÛÛÛÛÛÛÛÛÛ "
set "vars=%vars% ÛÛÛÛÛÛÛÛÛ "
set "varsi=%varsi% ÛÛÛ ÛÛÛ "
set "varo=%varo% ÛÛÛ ÛÛÛ "
set "varn=%varn% ÛÛÛÛÛÛÛÛÛ "
set "vardi=%vardi% ÛÛÛÛÛÛÛÛÛ "
)

if %n%==9 (
set "varu=%varu% ÛÛÛÛÛÛÛÛÛ "
set "vard=%vard% ÛÛÛÛÛÛÛÛÛ "
set "vart=%vart% ÛÛÛ ÛÛÛ "
set "varc=%varc% ÛÛÛ ÛÛÛ "
set "varci=%varci% ÛÛÛÛÛÛÛÛÛ "
set "vars=%vars% ÛÛÛÛÛÛÛÛÛ "
set "varsi=%varsi% ÛÛÛ "
set "varo=%varo% ÛÛÛ "
set "varn=%varn% ÛÛÛÛÛÛÛÛÛ "
set "vardi=%vardi% ÛÛÛÛÛÛÛÛÛ "
)
goto:eof
avatar
[G]host
Admin

Mensajes : 67
Puntos : 204
Reputación : 0
Fecha de inscripción : 24/10/2010
Edad : 26

Ver perfil de usuario http://ghost.activo.mx

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.