中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]COLOR TIME 彩色时间屏保

« [1] [2] [3] [4] » ›

doscc
中级用户

积分 256
发帖 93
注册 2006-3-26
来自广东
状态离线

『楼主』: [原创]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 ]

此帖被 +46 点积分

点击查看详情

附件 1: a.JPG (2007-1-28 06:09, 19.62 K, 下载附件所需积分 1 点 ,下载次数： 5)

附件 2: COLOR TIME.bat.txt (2007-1-28 06:09, 2.75 K, 下载附件所需积分 1 点 ,下载次数： 42)

2007-1-28 06:09

doscc
中级用户

积分 256
发帖 93
注册 2006-3-26
来自广东
状态离线

『第 2 楼』: a

a

附件 1: b.JPG (2007-1-28 06:10, 24.11 K, 下载附件所需积分 1 点 ,下载次数： 4)

2007-1-28 06:10

ccwan
金牌会员

积分 2725
发帖 1160
注册 2006-9-23
来自河北廊坊
状态离线

『第 3 楼』:

很有意思的东东，支持一下。

三人行，必有吾师焉。学然后知不足，教然后知困，然后能自强也。

2007-1-28 06:19

redtek
金牌会员

积分 2902
发帖 1147
注册 2006-9-21
状态离线

『第 4 楼』:

欣赏～～
动态的时间变化，很有意思的代码～：）
而且还特别像动画屏幕保护，非常可爱！！！

　　　　Redtek，一个永远在网上流浪的人……

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._

2007-1-28 08:38

Eblis
中级用户

积分 251
发帖 108
注册 2007-1-7
来自湖南==>广州
状态离线

『第 5 楼』:

好``

DOS新人.多多指導

2007-1-28 08:58

heicai
中级用户

积分 385
发帖 156
注册 2007-1-19
状态离线

『第 6 楼』:

牛人，玩批处理到如此高深境界！

2007-1-28 09:34

wxjclh
初级用户

积分 65
发帖 32
注册 2007-1-17
状态离线

『第 7 楼』:

高，实在是高！

2007-1-28 10:07

lxmxn
版主

积分 11386
发帖 4938
注册 2006-7-23
状态离线

『第 8 楼』:

　　恩，不错，活像一个屏保… ^_^

2007-1-28 11:25

electronixtar
铂金会员

积分 7493
发帖 2672
注册 2005-9-2
状态离线

『第 9 楼』:

顶啊，加分！

C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"

2007-1-28 11:39

0401
中级用户

带走

积分 435
发帖 88
注册 2005-9-24
状态离线

『第 10 楼』:

有创意，用起来还像屏保，呵呵。

2007-1-28 13:04

doscc
中级用户

积分 256
发帖 93
注册 2006-3-26
来自广东
状态离线

『第 11 楼』:

谢谢大家支持! 这个批处理是跟距 nokia s60 手机屏保想出来的.

2007-1-28 14:50

PPdos
高级用户

积分 783
发帖 268
注册 2006-12-26
状态离线

『第 12 楼』:

支持！但有一疑问还请楼主解答

Quote:

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?

菩提本无树,明镜亦非台,本来无一物,何处惹尘埃.

2007-1-28 21:39

aspirer
初级用户

积分 72
发帖 35
注册 2006-11-13
状态离线

『第 13 楼』:

Quote:

Originally posted by doscc at 2007-1-28 01:50 AM:
谢谢大家支持! 这个批处理是跟距 nokia s60 手机屏保想出来的.

牛啊。牛人都是在深夜的时候出来活动的吗？
能不能稍作注释

Novell 迷http://novell.me

2007-1-29 01:38

redtek
金牌会员

积分 2902
发帖 1147
注册 2006-9-21
状态离线

『第 14 楼』:

一点儿建议～：）

如果兄这精彩的帖子能在标题上标示出含有：批处理彩色时间动画　或是　含有批处理动画　　等标题词汇，这样将来论坛检索时可根据“动画”、“批处理彩色”、“彩色”等关键词快速定位并找到兄的帖子。

（因 COLOR TIME 的标题很难让从没有看过兄帖子内容的网友能够通过论坛检索来找到他想要找的含有“动画”类型与内容的帖子。非常希望兄这么精彩的帖子可以非常快的被需要的网友定位并检索到～：）

（如果 COLOR TIME 标题还是兄非常喜欢的名字或是它代表帖子中代码的特色与主题精神，在帖子中还可以使用类似图书分类检索或是文件主题词的方式让将来有更多的网友能够通过论坛的检索功能快速找到兄的帖子～：）

如：

［主题词：彩色批处理动画时间动画 COLOR TIME 动画屏保屏幕保护动态时间彩色动画］

等相关还可以通过论坛正文内容来快速检索这个帖子的主题词汇表～：）

　　

[ Last edited by redtek on 2007-1-28 at 01:22 PM ]

　　　　Redtek，一个永远在网上流浪的人……

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._

2007-1-29 01:54

redtek
金牌会员

积分 2902
发帖 1147
注册 2006-9-21
状态离线

『第 15 楼』:

根据主题词测试，使用１４楼主题词中的　“彩色动画”　一关键词应用论坛正文检索功能，已经可以检索到兄这么精彩的帖子了～：）

[ Last edited by redtek on 2007-1-28 at 01:07 PM ]

附件 1: 未命名.GIF (2007-1-29 02:05, 8.61 K, 下载附件所需积分 1 点 ,下载次数： 5)

　　　　Redtek，一个永远在网上流浪的人……

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._

2007-1-29 02:05

« [1] [2] [3] [4] » ›

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: