acerca de la "Interfaz"
Código (dos) [Seleccionar]
@echo off
mode con cols=52 lines=20
title Date ^& Clock
color 0a
REM Digital Clock v2
REM Coded by :: SmartGenius ::
REM Original Design by MxPower
:RELOJ
CLS
call :RESET
call :TIEMPO
call :FECHA
echo.
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo ÛÛÛSmartÛÛÛÛÛ %UNOHRD% ÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛ %DOSHRD% ÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛ %TREHRD% ÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛ
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo ÛÛÛÛÛÛ %NDAY:~0,3%, %DATE:~-10,2% de %MFP% de %ANO% ÛÛÛÛÛÛÛÛÛÛ
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo ÛÛÛÛÛÛ ÛÛÛÛÛÛ
echo.
pause>nul
GOTO :RELOJ
:RESET
set UNOHRD=
set DOSHRD=
set TREHRD=
GOTO :EOF
:DIGIT-0
set "UNOHRD=%UNOHRD% _ "
set "DOSHRD=%DOSHRD% Û_Û"
set "TREHRD=%TREHRD% Û_Û"
goto :EOF
:DIGIT-1
set "UNOHRD=%UNOHRD% "
set "DOSHRD=%DOSHRD% Û "
set "TREHRD=%TREHRD% Û "
goto :EOF
:DIGIT-2
set "UNOHRD=%UNOHRD% _ "
set "DOSHRD=%DOSHRD% _Û"
set "TREHRD=%TREHRD% Û_ "
goto :EOF
:DIGIT-3
set "UNOHRD=%UNOHRD% _ "
set "DOSHRD=%DOSHRD% _Û"
set "TREHRD=%TREHRD% _Û"
goto :EOF
:DIGIT-4
set "UNOHRD=%UNOHRD% "
set "DOSHRD=%DOSHRD% Û_Û"
set "TREHRD=%TREHRD% Û"
GOTO :EOF
:DIGIT-5
set "UNOHRD=%UNOHRD% _ "
set "DOSHRD=%DOSHRD% Û_ "
set "TREHRD=%TREHRD% _Û"
goto :EOF
:DIGIT-6
set "UNOHRD=%UNOHRD% _ "
set "DOSHRD=%DOSHRD% Û_ "
set "TREHRD=%TREHRD% Û_Û"
goto :EOF
:DIGIT-7
set "UNOHRD=%UNOHRD% _ "
set "DOSHRD=%DOSHRD% Û"
set "TREHRD=%TREHRD% Û"
goto :EOF
:DIGIT-8
set "UNOHRD=%UNOHRD% _ "
set "DOSHRD=%DOSHRD% Û_Û"
set "TREHRD=%TREHRD% Û_Û"
goto :EOF
:DIGIT-9
set "UNOHRD=%UNOHRD% _ "
set "DOSHRD=%DOSHRD% Û-Û"
set "TREHRD=%TREHRD% Û"
goto :EOF
:DIGIT-:
set "UNOHRD=%UNOHRD% "
set "DOSHRD=%DOSHRD% . "
set "TREHRD=%TREHRD% . "
goto :EOF
:DIGIT-SPACE
set "UNOHRD=%UNOHRD% "
set "DOSHRD=%DOSHRD% "
set "TREHRD=%TREHRD% "
goto :EOF
:TIEMPO
set HOUR=%TIME:~0,5%
:TIEMPO2
SET VAR=%HOUR:~0,1%
IF "%VAR%"==" " (CALL :DIGIT-SPACE) ELSE (CALL :DIGIT-%VAR%)
SET HOUR=%HOUR:~1%
IF "%HOUR%"=="" GOTO :EOF
GOTO :TIEMPO2
:FECHA
set /a DIA=(%DATE:~-10,2%*10)/10
set /a MES=(%DATE:~-7,2%*10)/10
set ANO=%DATE:~-4%
call :meses %MES% MFP
REM call Calendar /wday %DIA% %MES% %ANO% NDAY
GOTO :EOF
:MESES
if %1==1 set %2= Enero
if %1==2 set %2= Febrero
if %1==3 set %2= Marzo
if %1==4 set %2= Abril
if %1==5 set %2= Mayo
if %1==6 set %2= Junio
if %1==7 set %2= Julio
if %1==8 set %2= Agosto
if %1==9 set %2=Septiembre
if %1==10 set %2= Octubre
if %1==11 set %2=Noviembre
if %1==12 set %2=Diciembre
GOTO :EOF
Quiero solo RELOJ Digital algo sencillo si me puedan "LIMPIAR EL CODIGO" quitando la "interfaz" (Dibujito)
y que en las etiquetas Tiempo sea mas entendible algo asi necesito.
Por favor si me pudieran "ACHICAR" el codigo y facilitarmelo
Salu2