(批处理)电子时钟

这个是多年前在网上(记不清具体时间了)收藏的一个批处理电子时钟

可以将下面红色代码保存为后缀名为:“CMD或BAT”的文件即可用双击方式运行!当然下可直接下载附件文件
代码如下红色字符:
@echo off
color 0a
set k01= ■■■ 
set k02= ■ ■ 
set k03= ■ ■ 
set k04= ■ ■ 
set k05= ■■■ 

set k11= ■■  
set k12=  ■  
set k13=  ■  
set k14=  ■  
set k15= ■■■ 

set k21= ■■■ 
set k22=   ■ 
set k23= ■■■ 
set k24= ■   
set k25= ■■■ 

set k31= ■■■ 
set k32=   ■ 
set k33= ■■■ 
set k34=   ■ 
set k35= ■■■ 

set k41= ■ ■ 
set k42= ■ ■ 
set k43= ■■■ 
set k44=   ■ 
set k45=   ■ 

set k51= ■■■ 
set k52= ■   
set k53= ■■■ 
set k54=   ■ 
set k55= ■■■ 

set k61= ■■■ 
set k62= ■   
set k63= ■■■ 
set k64= ■ ■ 
set k65= ■■■ 

set k71= ■■■ 
set k72=   ■ 
set k73=   ■ 
set k74=   ■ 
set k75=   ■ 

set k81= ■■■ 
set k82= ■ ■ 
set k83= ■■■ 
set k84= ■ ■ 
set k85= ■■■ 

set k91= ■■■ 
set k92= ■ ■ 
set k93= ■■■ 
set k94=   ■ 
set k95= ■■■ 

:start
echo TIME:
set p1=%time:~0,8%
set p1=%p1:~7%


set p2=%time:~0,7%
set p2=%p2:~6%

set p3=%time:~0,5%
set p3=%p3:~4%

set p4=%time:~0,4%
set p4=%p4:~3%

set p5=%time:~0,2%
set p5=%p5:~1%

set p6=%time:~0,1%
set p6=%p6:~0%


set p11=k%p1%1
set p12=k%p1%2
set p13=k%p1%3
set p14=k%p1%4
set p15=k%p1%5

set p21=k%p2%1
set p22=k%p2%2
set p23=k%p2%3
set p24=k%p2%4
set p25=k%p2%5

set p31=k%p3%1
set p32=k%p3%2
set p33=k%p3%3
set p34=k%p3%4
set p35=k%p3%5

set p41=k%p4%1
set p42=k%p4%2
set p43=k%p4%3
set p44=k%p4%4
set p45=k%p4%5

set p51=k%p5%1
set p52=k%p5%2
set p53=k%p5%3
set p54=k%p5%4
set p55=k%p5%5

set p61=k%p6%1
set p62=k%p6%2
set p63=k%p6%3
set p64=k%p6%4
set p65=k%p6%5


echo @echo off>clocktemp.bat
echo echo %%%p61%%%%%%p51%%%   %%%p41%%%%%%p31%%%   %%%p21%%%%%%p11%%%>>clocktemp.bat
echo echo %%%p62%%%%%%p52%%% ■ %%%p42%%%%%%p32%%% ■ %%%p22%%%%%%p12%%%>>clocktemp.bat
echo echo %%%p63%%%%%%p53%%%   %%%p43%%%%%%p33%%%   %%%p23%%%%%%p13%%%>>clocktemp.bat
echo echo %%%p64%%%%%%p54%%% ■ %%%p44%%%%%%p34%%% ■ %%%p24%%%%%%p14%%%>>clocktemp.bat
echo echo %%%p65%%%%%%p55%%%   %%%p45%%%%%%p35%%%   %%%p25%%%%%%p15%%%>>clocktemp.bat
call clocktemp.bat
del clocktemp.bat
set s1=%time:~0,8%
set s1=%s1:~7%
:next
set s2=%time:~0,8%
set s2=%s2:~7%
set /a s2=s2-s1
if %s2%==0 goto next

cls
goto start
附件下载链接地址:

附件: 电子时钟.zip (2009-5-29 23:46:20, 715 B)
该附件被下载次数 878



用户系统信息:Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; QQDownload 1.7; TencentTraveler 4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 1.1.4322)
本帖被评分 1 次
最后编辑zgr稳得起 最后编辑于 2009-05-29 23:50:20
“请让我来帮助你,就像帮助我自己......”