COLOR TIME 彩色时间屏保 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

好久没来了，好久没玩批处理了。发个最近写的批处理给大家!

xp 试验成功!


29 日修改
改后代码 
@echo off & setlocal EnableDelayedExpansion 
mode con cols=100 lines=40
title COLOR TIME
call :tnb
set font=█★●◆□◎◇¤⊙〓

:new
rem 主函数。
call :rdline
call :gt %time:~0,1% n
call :gt %time:~1,1% m
call :gt %time:~3,1% z
call :gt %time:~4,1% y

color 0%RANDOM:~-1%
set rdfont=!font:~%RANDOM:~-1%,1!

echo %nk%                  %date%
echo %nk% !%n%1:█=%rdfont%! !%m%1:█=%rdfont%!     !%z%1:█=%rdfont%! !%y%1:█=%rdfont%!
echo %nk% !%n%2:█=%rdfont%! !%m%2:█=%rdfont%!     !%z%2:█=%rdfont%! !%y%2:█=%rdfont%!
echo %nk% !%n%3:█=%rdfont%! !%m%3:█=%rdfont%!  · !%z%3:█=%rdfont%! !%y%3:█=%rdfont%!
echo %nk% !%n%4:█=%rdfont%! !%m%4:█=%rdfont%!     !%z%4:█=%rdfont%! !%y%4:█=%rdfont%!
echo %nk% !%n%5:█=%rdfont%! !%m%5:█=%rdfont%!  · !%z%5:█=%rdfont%! !%y%5:█=%rdfont%!
echo %nk%             www.cn-dos.net DOSCC WINBY.
ping 127.1 -n 3 >NUL
cls
set nk=
goto :new


:rdline
rem 随机改变行数 左右位置。
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% * 2
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% + %RANDOM:~-1%
for /L %%a in (%rdnb% -1 1) do echo.
set rdnb=0
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% * 2
set /A rdnb=%rdnb% + %RANDOM:~-1%
for /L %%a in (1 1 %rdnb%) do  set nk=!nk! 
set rdnb=0
goto :EOF

:gt
rem 得到时间 并替换成 数字模样。
if "%1"=="n" call :gt 0 n
if "%1"=="0" call set %2=a
if "%1"=="1" call set %2=b
if "%1"=="2" call set %2=c
if "%1"=="3" call set %2=d
if "%1"=="4" call set %2=e
if "%1"=="5" call set %2=f
if "%1"=="6" call set %2=g
if "%1"=="7" call set %2=h
if "%1"=="8" call set %2=i
if "%1"=="9" call set %2=j
goto :EOF



:tnb
rem 0-9 数字模样。
set a1=█████
set a2=█      █
set a3=█      █
set a4=█      █
set a5=█████

set b1=  ██    
set b2=    █    
set b3=    █    
set b4=    █    
set b5=    █    

set c1=    ███
set c2=        █
set c3=█████
set c4=█        
set c5=█████

set d1=    ███
set d2=        █
set d3=█████
set d4=        █
set d5=█████

set e1=█        
set e2=█      █
set e3=█████
set e4=        █
set e5=        █

set f1=███    
set f2=█        
set f3=█████
set f4=        █
set f5=█████

set g1=███    
set g2=█        
set g3=█████
set g4=█      █
set g5=█████

set h1=█████
set h2=█      █
set h3=        █
set h4=        █
set h5=        █

set i1=█████
set i2=█      █
set i3=█████
set i4=█      █
set i5=█████

set j1=█████
set j2=█      █
set j3=█████
set j4=        █
set j5=  ████
goto :EOF


原代码
@echo off & setlocal EnableDelayedExpansion 
mode con cols=100 lines=40
title COLOR TIME
call :tnb
set font=█★●◆□◎◇¤⊙〓

:new
rem 主函数。
call :rdline
call :gt %time:~0,1% n
call :gt %time:~1,1% m
call :gt %time:~3,1% z
call :gt %time:~4,1% y

color 0%RANDOM:~-1%
set rdfont=!font:~%RANDOM:~-1%,1!

echo %nk%                  %date%
echo %nk% !%n%1:█=%rdfont%! !%m%1:█=%rdfont%!     !%z%1:█=%rdfont%! !%y%1:█=%rdfont%!
echo %nk% !%n%2:█=%rdfont%! !%m%2:█=%rdfont%!     !%z%2:█=%rdfont%! !%y%2:█=%rdfont%!
echo %nk% !%n%3:█=%rdfont%! !%m%3:█=%rdfont%!  · !%z%3:█=%rdfont%! !%y%3:█=%rdfont%!
echo %nk% !%n%4:█=%rdfont%! !%m%4:█=%rdfont%!     !%z%4:█=%rdfont%! !%y%4:█=%rdfont%!
echo %nk% !%n%5:█=%rdfont%! !%m%5:█=%rdfont%!  · !%z%5:█=%rdfont%! !%y%5:█=%rdfont%!
echo %nk%             www.cn-dos.net DOSCC WINBY.
ping 127.1 -n 3 >NUL
cls
set nk=
goto :new


:rdline
rem 随机改变行数 左右位置。
call set /A rdnb=%rdnb% + %RANDOM:~-1%
call set /A rdnb=%rdnb% * 2
call set /A rdnb=%rdnb% + %RANDOM:~-1%
call set /A rdnb=%rdnb% + %RANDOM:~-1%
for /L %%a in (%rdnb% -1 1) do echo.
set rdnb=0
call set /A rdnb=%rdnb% + %RANDOM:~-1%
call set /A rdnb=%rdnb% + %RANDOM:~-1%
call set /A rdnb=%rdnb% * 2
call set /A rdnb=%rdnb% + %RANDOM:~-1%
for /L %%a in (1 1 %rdnb%) do  set nk=!nk! 
set rdnb=0
goto :EOF

:gt
rem 得到时间 并替换成 数字模样。
set t1=%1
set t2=%2
if "%t1%"=="n" (set t1=0) && set t2=n
if "%t1%"=="0" call set %t2%=a
if "%t1%"=="1" call set %t2%=b
if "%t1%"=="2" call set %t2%=c
if "%t1%"=="3" call set %t2%=d
if "%t1%"=="4" call set %t2%=e
if "%t1%"=="5" call set %t2%=f
if "%t1%"=="6" call set %t2%=g
if "%t1%"=="7" call set %t2%=h
if "%t1%"=="8" call set %t2%=i
if "%t1%"=="9" call set %t2%=j
goto :EOF



:tnb
rem 0-9 数字模样。
set a1=█████
set a2=█      █
set a3=█      █
set a4=█      █
set a5=█████

set b1=  ██    
set b2=    █    
set b3=    █    
set b4=    █    
set b5=    █    

set c1=    ███
set c2=        █
set c3=█████
set c4=█        
set c5=█████

set d1=    ███
set d2=        █
set d3=█████
set d4=        █
set d5=█████

set e1=█        
set e2=█      █
set e3=█████
set e4=        █
set e5=        █

set f1=███    
set f2=█        
set f3=█████
set f4=        █
set f5=█████

set g1=███    
set g2=█        
set g3=█████
set g4=█      █
set g5=█████

set h1=█████
set h2=█      █
set h3=        █
set h4=        █
set h5=        █

set i1=█████
set i2=█      █
set i3=█████
set i4=█      █
set i5=█████

set j1=█████
set j2=█      █
set j3=█████
set j4=        █
set j5=  ████
goto :EOF

[ Last edited by doscc on 2007-1-29 at 02:20 PM ]

第1楼　doscc	发表于 2007-01-28 06:09
中级用户　发帖 93　积分 256　来自广东
[原创]COLOR TIME 彩色时间屏保好久没来了，好久没玩批处理了。发个最近写的批处理给大家! xp 试验成功! 29 日修改改后代码 @echo off & setlocal EnableDelayedExpansion mode con cols=100 lines=40 title COLOR TIME call :tnb set font=█★●◆□◎◇¤⊙〓 :new rem 主函数。 call :rdline call :gt %time:~0,1% n call :gt %time:~1,1% m call :gt %time:~3,1% z call :gt %time:~4,1% y color 0%RANDOM:~-1% set rdfont=!font:~%RANDOM:~-1%,1! echo %nk% %date% echo %nk% !%n%1:█=%rdfont%! !%m%1:█=%rdfont%! !%z%1:█=%rdfont%! !%y%1:█=%rdfont%! echo %nk% !%n%2:█=%rdfont%! !%m%2:█=%rdfont%! !%z%2:█=%rdfont%! !%y%2:█=%rdfont%! echo %nk% !%n%3:█=%rdfont%! !%m%3:█=%rdfont%! · !%z%3:█=%rdfont%! !%y%3:█=%rdfont%! echo %nk% !%n%4:█=%rdfont%! !%m%4:█=%rdfont%! !%z%4:█=%rdfont%! !%y%4:█=%rdfont%! echo %nk% !%n%5:█=%rdfont%! !%m%5:█=%rdfont%! · !%z%5:█=%rdfont%! !%y%5:█=%rdfont%! echo %nk% www.cn-dos.net DOSCC WINBY. ping 127.1 -n 3 >NUL cls set nk= goto :new :rdline rem 随机改变行数左右位置。 set /A rdnb=%rdnb% + %RANDOM:~-1% set /A rdnb=%rdnb% * 2 set /A rdnb=%rdnb% + %RANDOM:~-1% set /A rdnb=%rdnb% + %RANDOM:~-1% for /L %%a in (%rdnb% -1 1) do echo. set rdnb=0 set /A rdnb=%rdnb% + %RANDOM:~-1% set /A rdnb=%rdnb% + %RANDOM:~-1% set /A rdnb=%rdnb% * 2 set /A rdnb=%rdnb% + %RANDOM:~-1% for /L %%a in (1 1 %rdnb%) do set nk=!nk! set rdnb=0 goto :EOF :gt rem 得到时间并替换成数字模样。 if "%1"=="n" call :gt 0 n if "%1"=="0" call set %2=a if "%1"=="1" call set %2=b if "%1"=="2" call set %2=c if "%1"=="3" call set %2=d if "%1"=="4" call set %2=e if "%1"=="5" call set %2=f if "%1"=="6" call set %2=g if "%1"=="7" call set %2=h if "%1"=="8" call set %2=i if "%1"=="9" call set %2=j goto :EOF :tnb rem 0-9 数字模样。 set a1=█████ set a2=█ █ set a3=█ █ set a4=█ █ set a5=█████ set b1= ██ set b2= █ set b3= █ set b4= █ set b5= █ set c1= ███ set c2= █ set c3=█████ set c4=█ set c5=█████ set d1= ███ set d2= █ set d3=█████ set d4= █ set d5=█████ set e1=█ set e2=█ █ set e3=█████ set e4= █ set e5= █ set f1=███ set f2=█ set f3=█████ set f4= █ set f5=█████ set g1=███ set g2=█ set g3=█████ set g4=█ █ set g5=█████ set h1=█████ set h2=█ █ set h3= █ set h4= █ set h5= █ set i1=█████ set i2=█ █ set i3=█████ set i4=█ █ set i5=█████ set j1=█████ set j2=█ █ set j3=█████ set j4= █ set j5= ████ goto :EOF 原代码 @echo off & setlocal EnableDelayedExpansion mode con cols=100 lines=40 title COLOR TIME call :tnb set font=█★●◆□◎◇¤⊙〓 :new rem 主函数。 call :rdline call :gt %time:~0,1% n call :gt %time:~1,1% m call :gt %time:~3,1% z call :gt %time:~4,1% y color 0%RANDOM:~-1% set rdfont=!font:~%RANDOM:~-1%,1! echo %nk% %date% echo %nk% !%n%1:█=%rdfont%! !%m%1:█=%rdfont%! !%z%1:█=%rdfont%! !%y%1:█=%rdfont%! echo %nk% !%n%2:█=%rdfont%! !%m%2:█=%rdfont%! !%z%2:█=%rdfont%! !%y%2:█=%rdfont%! echo %nk% !%n%3:█=%rdfont%! !%m%3:█=%rdfont%! · !%z%3:█=%rdfont%! !%y%3:█=%rdfont%! echo %nk% !%n%4:█=%rdfont%! !%m%4:█=%rdfont%! !%z%4:█=%rdfont%! !%y%4:█=%rdfont%! echo %nk% !%n%5:█=%rdfont%! !%m%5:█=%rdfont%! · !%z%5:█=%rdfont%! !%y%5:█=%rdfont%! echo %nk% www.cn-dos.net DOSCC WINBY. ping 127.1 -n 3 >NUL cls set nk= goto :new :rdline rem 随机改变行数左右位置。 call set /A rdnb=%rdnb% + %RANDOM:~-1% call set /A rdnb=%rdnb% * 2 call set /A rdnb=%rdnb% + %RANDOM:~-1% call set /A rdnb=%rdnb% + %RANDOM:~-1% for /L %%a in (%rdnb% -1 1) do echo. set rdnb=0 call set /A rdnb=%rdnb% + %RANDOM:~-1% call set /A rdnb=%rdnb% + %RANDOM:~-1% call set /A rdnb=%rdnb% * 2 call set /A rdnb=%rdnb% + %RANDOM:~-1% for /L %%a in (1 1 %rdnb%) do set nk=!nk! set rdnb=0 goto :EOF :gt rem 得到时间并替换成数字模样。 set t1=%1 set t2=%2 if "%t1%"=="n" (set t1=0) && set t2=n if "%t1%"=="0" call set %t2%=a if "%t1%"=="1" call set %t2%=b if "%t1%"=="2" call set %t2%=c if "%t1%"=="3" call set %t2%=d if "%t1%"=="4" call set %t2%=e if "%t1%"=="5" call set %t2%=f if "%t1%"=="6" call set %t2%=g if "%t1%"=="7" call set %t2%=h if "%t1%"=="8" call set %t2%=i if "%t1%"=="9" call set %t2%=j goto :EOF :tnb rem 0-9 数字模样。 set a1=█████ set a2=█ █ set a3=█ █ set a4=█ █ set a5=█████ set b1= ██ set b2= █ set b3= █ set b4= █ set b5= █ set c1= ███ set c2= █ set c3=█████ set c4=█ set c5=█████ set d1= ███ set d2= █ set d3=█████ set d4= █ set d5=█████ set e1=█ set e2=█ █ set e3=█████ set e4= █ set e5= █ set f1=███ set f2=█ set f3=█████ set f4= █ set f5=█████ set g1=███ set g2=█ set g3=█████ set g4=█ █ set g5=█████ set h1=█████ set h2=█ █ set h3= █ set h4= █ set h5= █ set i1=█████ set i2=█ █ set i3=█████ set i4=█ █ set i5=█████ set j1=█████ set j2=█ █ set j3=█████ set j4= █ set j5= ████ goto :EOF [ Last edited by doscc on 2007-1-29 at 02:20 PM ] 附件 a.JPG (19.62 KiB) COLOR TIME.bat.txt (2.75 KiB)

第2楼　doscc	发表于 2007-01-28 06:10
中级用户　发帖 93　积分 256　来自广东
a a 附件 b.JPG (24.11 KiB)

第3楼　ccwan	发表于 2007-01-28 06:19
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
很有意思的东东，支持一下。

第4楼　redtek	发表于 2007-01-28 08:38
金牌会员　发帖 1,147　积分 2,902
欣赏～～动态的时间变化，很有意思的代码～：）而且还特别像动画屏幕保护，非常可爱！！！

第5楼　Eblis	发表于 2007-01-28 08:58
中级用户　发帖 108　积分 251　来自湖南==>广州
好``

第6楼　heicai	发表于 2007-01-28 09:34
中级用户　发帖 156　积分 385
牛人，玩批处理到如此高深境界！

第7楼　wxjclh	发表于 2007-01-28 10:07
初级用户　发帖 32　积分 65
高，实在是高！

第8楼　lxmxn	发表于 2007-01-28 11:25
版主　发帖 4,938　积分 11,386
恩，不错，活像一个屏保… ^_^

第9楼　electronixtar	发表于 2007-01-28 11:39
铂金会员　发帖 2,672　积分 7,493
顶啊，加分！

第10楼　0401	发表于 2007-01-28 13:04
中级用户　发帖 88　积分 435
有创意，用起来还像屏保，呵呵。

第11楼　doscc	发表于 2007-01-28 14:50
中级用户　发帖 93　积分 256　来自广东
谢谢大家支持! 这个批处理是跟距 nokia s60 手机屏保想出来的.

第12楼　PPdos	发表于 2007-01-28 21:39
高级用户　发帖 268　积分 783
支持！但有一疑问还请楼主解答 call set /A rdnb=%rdnb% + %RANDOM:~-1% call set /A rdnb=%rdnb% * 2 call set /A rdnb=%rdnb% + %RANDOM:~-1% call set /A rdnb=%rdnb% + %RANDOM:~-1% for /L %%a in (%rdnb% -1 1) do echo. set rdnb=0 call set /A rdnb=%rdnb% + %RANDOM:~-1% call set /A rdnb=%rdnb% + %RANDOM:~-1% call set /A rdnb=%rdnb% * 2 call set /A rdnb=%rdnb% + %RANDOM:~-1% 此处为何要call?

第13楼　aspirer	发表于 2007-01-29 01:38
初级用户　发帖 35　积分 72
Originally posted by doscc at 2007-1-28 01:50 AM: 谢谢大家支持! 这个批处理是跟距 nokia s60 手机屏保想出来的. 牛啊。牛人都是在深夜的时候出来活动的吗？能不能稍作注释

第14楼　redtek	发表于 2007-01-29 01:54
金牌会员　发帖 1,147　积分 2,902
一点儿建议～：）如果兄这精彩的帖子能在标题上标示出含有：批处理彩色时间动画　或是　含有批处理动画　　等标题词汇，这样将来论坛检索时可根据“动画”、“批处理彩色”、“彩色”等关键词快速定位并找到兄的帖子。（因 COLOR TIME 的标题很难让从没有看过兄帖子内容的网友能够通过论坛检索来找到他想要找的含有“动画”类型与内容的帖子。非常希望兄这么精彩的帖子可以非常快的被需要的网友定位并检索到～：）（如果 COLOR TIME 标题还是兄非常喜欢的名字或是它代表帖子中代码的特色与主题精神，在帖子中还可以使用类似图书分类检索或是文件主题词的方式让将来有更多的网友能够通过论坛的检索功能快速找到兄的帖子～：）如：［主题词：彩色批处理动画时间动画 COLOR TIME 动画屏保屏幕保护动态时间彩色动画］等相关还可以通过论坛正文内容来快速检索这个帖子的主题词汇表～：）　　 [ Last edited by redtek on 2007-1-28 at 01:22 PM ]

第15楼　redtek	发表于 2007-01-29 02:05
金牌会员　发帖 1,147　积分 2,902
根据主题词测试，使用１４楼主题词中的　“彩色动画”　一关键词应用论坛正文检索功能，已经可以检索到兄这么精彩的帖子了～：） [ Last edited by redtek on 2007-1-28 at 01:07 PM ] 附件未命名.GIF (8.61 KiB)