时钟--斜体+毫秒（更新，减少cpu和闪烁） - 中国DOS联盟论坛

太神奇了，，，如果能是正的，就好了

哈，给做成屏保和整体的吧

@echo off
echo exit|%ComSpec% /k prompt e 100 B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 $_g$_q$_|debug>nul
title made by 523066680 2008-08-08
::这一版本由www.cn-dos.net & www.bathome.cn 成员523066680编辑
setlocal enabledelayedexpansion
set n=-1
for %%a in (1 2 3 5 9 a b c d e f) do (set /a n+=1 &set n!n!=%%a)
set 01=●●●●
set 02=●    ●
set 03=●    ●
set 04=●    ●
set 05=●●●●
set 11=   ●   
set 12=   ●   
set 13=   ●   
set 14=   ●   
set 15=   ●   
set 21=●●●●
set 22=      ●
set 23=●●●●
set 24=●      
set 25=●●●●
set 31=●●●●
set 32=      ●
set 33=●●●●
set 34=      ●
set 35=●●●●
set 41=●    ●
set 42=●    ●
set 43=●●●●
set 44=      ●
set 45=      ●
set 51=●●●●
set 52=●      
set 53=●●●●
set 54=      ●
set 55=●●●●
set 61=●●●●
set 62=●      
set 63=●●●●
set 64=●    ●
set 65=●●●●
set 71=●●●●
set 72=      ●
set 73=      ●
set 74=      ●
set 75=      ●
set 81=●●●●
set 82=●    ●
set 83=●●●●
set 84=●    ●
set 85=●●●●
set 91=●●●●
set 92=●    ●
set 93=●●●●
set 94=      ●
set 95=●●●●
:a
for /f %%a in ('time /t') do (set to=%%a &set /a t1=!to:~0,1!,t2=!to:~1,1!)
for /l %%a in (1,1,5) do (
set hang%%a=!%t1%%%a! !%t2%%%a!    !%time:~3,1%%%a! !%time:~4,1%%%a!    !%time:~6,1%%%a! !%time:~7,1%%%a!)
if %random:~-1% leq 6 (set /a n=!random:~-1!*2) else (set n=!random:~-1!)
set k=
for /l %%a in (1,1,%random:~-1%) do (set k=  !k!)
ping -n 1 -w 500 0.0.0.1>nul &cls
color 0!n%random:~-1%!
for /l %%a in (1,1,%n%) do echo,
echo,%k%%hang1%
echo,%k%%hang2%
echo,%k%%hang3%
echo,%k%%hang4%
echo,%k%%hang5%
goto :a

[ Last edited by 523066680 on 2008-8-16 at 10:18 AM ]



@echo off
title Clock
mode con cols=85 lines=14
color 0a
:start
echo.&echo.
banner.exe  " %time:~0,-3%" -c:@
ping 127.1 -n 2 >nul &ping -n>nul
cls
goto start

不错，正好需要，学习了。
改了一个非斜体的。

@echo off
setlocal enabledelayedexpansion
title 时钟
mode con cols=55 lines=7
color 0a
set 01=▉▉▉
set 02=▉ ▉
set 03=▉ ▉
set 04=▉ ▉
set 05=▉▉▉
set 11= ▉　
set 12= ▉　
set 13= ▉　
set 14= ▉　
set 15= ▉　
set 21=▉▉▉
set 22= ▉
set 23=▉▉▉
set 24=▉　　
set 25=▉▉▉
set 31=▉▉▉
set 32= ▉
set 33=▉▉▉
set 34= ▉
set 35=▉▉▉
set 41=▉ ▉
set 42=▉ ▉
set 43=▉▉▉
set 44= ▉
set 45= ▉
set 51=▉▉▉
set 52=▉　　
set 53=▉▉▉
set 54=　　▉
set 55=▉▉▉
set 61=▉▉▉
set 62=▉　　
set 63=▉▉▉
set 64=▉ ▉
set 65=▉▉▉
set 71=▉▉▉
set 72= ▉
set 73= ▉
set 74= ▉
set 75= ▉
set 81=▉▉▉
set 82=▉ ▉
set 83=▉▉▉
set 84=▉ ▉
set 85=▉▉▉
set 91=▉▉▉
set 92=▉ ▉
set 93=▉▉▉
set 94= ▉
set 95=▉▉▉
:a
for /f %%a in ('time /t') do set t0=%%a&set /a t1=!t0:~0,1!,t2=!t0:~1,1!
for /l %%a in (1,1,5) do (set hang%%a=!%t1%%%a! !%t2%%%a! + !%time:~3,1%%%a! !%time:~4,1%%%a! + !%time:~6,1%%%a! !%time:~7,1%%%a!)
choice /c yn /t 1 /d y>nul
cls
echo.
echo %hang1%
echo %hang2%
echo %hang3%
echo %hang4%
echo %hang5%
goto a

很经典的例子，谢谢分享！

厉害啊，不过20楼的代码闪屏太厉害

加分以示支持.........

第16楼　crazysakura	发表于 2008-08-16 01:27
初级用户　发帖 46　积分 82
太神奇了，，，如果能是正的，就好了

第17楼　523066680	发表于 2008-08-16 08:00
银牌会员　发帖 1,133　积分 2,362
哈，给做成屏保和整体的吧 @echo off echo exit\|%ComSpec% /k prompt e 100 B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 $_g$_q$_\|debug>nul title made by 523066680 2008-08-08 ::这一版本由www.cn-dos.net & www.bathome.cn 成员523066680编辑 setlocal enabledelayedexpansion set n=-1 for %%a in (1 2 3 5 9 a b c d e f) do (set /a n+=1 &set n!n!=%%a) set 01=●●●● set 02=● ● set 03=● ● set 04=● ● set 05=●●●● set 11= ● set 12= ● set 13= ● set 14= ● set 15= ● set 21=●●●● set 22= ● set 23=●●●● set 24=● set 25=●●●● set 31=●●●● set 32= ● set 33=●●●● set 34= ● set 35=●●●● set 41=● ● set 42=● ● set 43=●●●● set 44= ● set 45= ● set 51=●●●● set 52=● set 53=●●●● set 54= ● set 55=●●●● set 61=●●●● set 62=● set 63=●●●● set 64=● ● set 65=●●●● set 71=●●●● set 72= ● set 73= ● set 74= ● set 75= ● set 81=●●●● set 82=● ● set 83=●●●● set 84=● ● set 85=●●●● set 91=●●●● set 92=● ● set 93=●●●● set 94= ● set 95=●●●● :a for /f %%a in ('time /t') do (set to=%%a &set /a t1=!to:~0,1!,t2=!to:~1,1!) for /l %%a in (1,1,5) do ( set hang%%a=!%t1%%%a! !%t2%%%a! !%time:~3,1%%%a! !%time:~4,1%%%a! !%time:~6,1%%%a! !%time:~7,1%%%a!) if %random:~-1% leq 6 (set /a n=!random:~-1!2) else (set n=!random:~-1!) set k= for /l %%a in (1,1,%random:~-1%) do (set k= !k!) ping -n 1 -w 500 0.0.0.1>nul &cls color 0!n%random:~-1%! for /l %%a in (1,1,%n%) do echo, echo,%k%%hang1% echo,%k%%hang2% echo,%k%%hang3% echo,%k%%hang4% echo,%k%%hang5% goto :a [ Last edited by 523066680 on 2008-8-16 at 10:18 AM* ]

第18楼　BC	发表于 2008-08-16 19:13
中级用户　发帖 175　积分 338
不错

第19楼　uiopuiop	发表于 2009-05-29 12:41
中级用户　发帖 211　积分 400
我也来个，低CPU消耗 @echo off title Clock mode con cols=85 lines=14 color 0a :start echo.&echo. banner.exe " %time:~0,-3%" -c:@ ping 127.1 -n 2 >nul &ping -n>nul cls goto start 附件 clock.zip (10.74 KiB)

第20楼　tongzj	发表于 2009-05-29 23:50
初级用户　发帖 43　积分 49
不错，正好需要，学习了。改了一个非斜体的。 @echo off setlocal enabledelayedexpansion title 时钟 mode con cols=55 lines=7 color 0a set 01=▉▉▉ set 02=▉ ▉ set 03=▉ ▉ set 04=▉ ▉ set 05=▉▉▉ set 11= ▉　 set 12= ▉　 set 13= ▉　 set 14= ▉　 set 15= ▉　 set 21=▉▉▉ set 22= ▉ set 23=▉▉▉ set 24=▉　　 set 25=▉▉▉ set 31=▉▉▉ set 32= ▉ set 33=▉▉▉ set 34= ▉ set 35=▉▉▉ set 41=▉ ▉ set 42=▉ ▉ set 43=▉▉▉ set 44= ▉ set 45= ▉ set 51=▉▉▉ set 52=▉　　 set 53=▉▉▉ set 54=　　▉ set 55=▉▉▉ set 61=▉▉▉ set 62=▉　　 set 63=▉▉▉ set 64=▉ ▉ set 65=▉▉▉ set 71=▉▉▉ set 72= ▉ set 73= ▉ set 74= ▉ set 75= ▉ set 81=▉▉▉ set 82=▉ ▉ set 83=▉▉▉ set 84=▉ ▉ set 85=▉▉▉ set 91=▉▉▉ set 92=▉ ▉ set 93=▉▉▉ set 94= ▉ set 95=▉▉▉ :a for /f %%a in ('time /t') do set t0=%%a&set /a t1=!t0:~0,1!,t2=!t0:~1,1! for /l %%a in (1,1,5) do (set hang%%a=!%t1%%%a! !%t2%%%a! + !%time:~3,1%%%a! !%time:~4,1%%%a! + !%time:~6,1%%%a! !%time:~7,1%%%a!) choice /c yn /t 1 /d y>nul cls echo. echo %hang1% echo %hang2% echo %hang3% echo %hang4% echo %hang5% goto a

第21楼　yzdocean	发表于 2009-05-30 00:11
新手上路　发帖 3　积分 1
很经典的例子，谢谢分享！

第22楼　gudou	发表于 2011-01-04 12:58
初级用户　发帖 29　积分 43
厉害啊，不过20楼的代码闪屏太厉害

第23楼　acaigg	发表于 2011-01-06 21:48
初级用户　发帖 92　积分 115
加分以示支持.........

第24楼　sdlwsch	发表于 2011-01-07 16:35
初级用户　发帖 15　积分 27
都是牛人！！