【算是月贴】我尽量减少闪烁的批处理大时钟 - 中国DOS联盟论坛

::这一版本编辑if_exist
@echo off &color 0a
mode con cols=100 lines=30
setlocal enabledelayedexpansion
set 01=00000000000000
set 02=00 00
set 03=00 000000 00
set 04=00 000000 00
set 05=00 000000 00
set 06=00 00
set 07=00000000000000

set 11=00000000000000
set 12=0000 000000
set 13=000000 000000
set 14=000000 000000
set 15=000000 000000
set 16=0000 0000
set 17=00000000000000

set 21=00000000000000
set 22=00 00
set 23=0000000000 00
set 24=00 00
set 25=00 0000000000
set 26=00 00
set 27=00000000000000

set 31=00000000000000
set 32=00 00
set 33=0000000000 00
set 34=00 00
set 35=0000000000 00
set 36=00 00
set 37=00000000000000

set 41=00000000000000
set 42=00 0000 0000
set 43=00 0000 0000
set 44=00 00
set 45=00000000 0000
set 46=00000000 0000
set 47=00000000000000

set 51=00000000000000
set 52=00 00
set 53=00 0000000000
set 54=00 00
set 55=0000000000 00
set 56=00 00
set 57=00000000000000

set 61=00000000000000
set 62=00 00
set 63=00 0000000000
set 64=00 00
set 65=00 000000 00
set 66=00 00
set 67=00000000000000

set 71=00000000000000
set 72=00 00
set 73=0000000000 00
set 74=0000000000 00
set 75=0000000000 00
set 76=0000000000 00
set 77=00000000000000

set 81=00000000000000
set 82=00 00
set 83=00 000000 00
set 84=00 00
set 85=00 000000 00
set 86=00 00
set 87=00000000000000

set 91=00000000000000
set 92=00 00
set 93=00 000000 00
set 94=00 00
set 95=0000000000 00
set 96=00 00
set 97=00000000000000
:a
for /l %%a in (1,1,7) do (set hang%%a=)
for /f %%n in ('time /t') do (set t1=%%n &set t1=!t1:~0,1!)
set /a t2=%time:~1,1%,t3=%time:~3,1%,t4=%time:~4,1%
set /a t5=%time:~6,1%,t6=%time:~7,1%,t7=%time:~9,1%,t8=%time:~10,1%
for %%b in (%t1% %t2% %t3% %t4% %t5% %t6%) do (for /l %%a in (1,1,7) do (
set hang%%a=!hang%%a! !%%b%%a!))
for %%a in (1,2,4,6,7) do (
set hang%%a=!hang%%a:~0,30! !hang%%a:~31,30! !hang%%a:~61,30!)
set hang3=%hang3:~0,30% ● %hang3:~31,30% ● %hang3:~61,30%
set hang5=%hang5:~0,30% ● %hang5:~31,30% ● %hang5:~61,30%
ping -n>nul&ping -n>nul&ping -n>nul
cls
echo.&echo.&echo.&echo.
echo %hang1%
echo %hang2%
echo %hang3%
echo %hang4%
echo %hang5%
echo %hang6%
echo %hang7%
echo.&echo.&echo. -------%t7%%t8%
goto :a

[ Last edited by 523066680 on 2008-7-25 at 09:51 AM ]

好像有点问题哦,显示9:51分时会显示成99:51

啥？我看看看错了吧那个0跟9很像的

我这边的时钟改了看了一下没问题啊

[ Last edited by 523066680 on 2008-7-25 at 10:35 AM ]

建议用。或*符号来代替，为了鼓励，加分。

建议把代码放到code标签里面，方便别人复制。

提出个小建议,能不能不显示秒,然后减少刷新呢?
我记得坛里以前有个也是时钟,它是每秒变换一下位置,好像这样的感觉更好哦

恩接受大家的建议！


::编辑 if_exist  hi.baidu.com/523066680
@echo off &color 0a
mode con cols=100 lines=30
setlocal enabledelayedexpansion
set 01=**************
set 02=**          **
set 03=**  ******  **
set 04=**  ******  **
set 05=**  ******  **
set 06=**          **
set 07=**************

set 11=**************
set 12=****    ******
set 13=******  ******
set 14=******  ******
set 15=******  ******
set 16=****      ****
set 17=**************

set 21=**************
set 22=**          **
set 23=**********  **
set 24=**          **
set 25=**  **********
set 26=**          **
set 27=**************

set 31=**************
set 32=**          **
set 33=**********  **
set 34=**          **
set 35=**********  **
set 36=**          **
set 37=**************

set 41=**************
set 42=**  ****  ****
set 43=**  ****  ****
set 44=**          **
set 45=********  ****
set 46=********  ****
set 47=**************

set 51=**************
set 52=**          **
set 53=**  **********
set 54=**          **
set 55=**********  **
set 56=**          **
set 57=**************

set 61=**************
set 62=**          **
set 63=**  **********
set 64=**          **
set 65=** ******   **
set 66=**          **
set 67=**************

set 71=**************
set 72=**          **
set 73=**********  **
set 74=**********  **
set 75=**********  **
set 76=**********  **
set 77=**************

set 81=**************
set 82=**          **
set 83=**  ******  **
set 84=**          **
set 85=**  ******  **
set 86=**          **
set 87=**************

set 91=**************
set 92=**          **
set 93=**  ******  **
set 94=**          **
set 95=**********  **
set 96=**          **
set 97=**************
:a
for /l %%a in (1,1,7) do (set hang%%a=)
for /f %%n in ('time /t') do (set t1=%%n &set t1=!t1:~0,1!)
set /a t2=%time:~1,1%,t3=%time:~3,1%,t4=%time:~4,1%
set /a t5=%time:~6,1%,t6=%time:~7,1%,t7=%time:~9,1%,t8=%time:~10,1%
for %%b in (%t1% %t2% %t3% %t4% %t5% %t6%) do (for /l %%a in (1,1,7) do (
set hang%%a=!hang%%a! !%%b%%a!))
for %%a in (1,2,4,6,7) do (
set hang%%a=!hang%%a:~0,30!    !hang%%a:~31,30!    !hang%%a:~61,30!)
set hang3=%hang3:~0,30% ● %hang3:~31,30% ● %hang3:~61,30%
set hang5=%hang5:~0,30% ● %hang5:~31,30% ● %hang5:~61,30%
for %%a in (1,2,3,4) do (ping -n>nul)
cls
echo.&echo.&echo.&echo.
echo %hang1% 
echo %hang2% 
echo %hang3% 
echo %hang4% 
echo %hang5% 
echo %hang6% 
echo %hang7% 
goto :a

[ Last edited by 523066680 on 2008-7-25 at 08:35 PM ]

我觉得要是把秒去掉就没特色了

我记得那个没有秒的，是大虾们做的时间屏保
代码很短哦！我觉得很牛

不知道楼主是如何在time里获取到秒值的?

稍微修改了一下，好看多了:lol:

另：7楼好象有错

@echo off &color 0a
title 批处理时钟
:: Edit by if_exist/Modified by radem @ www.cn-dos.net
mode con cols=65 lines=20
setlocal enabledelayedexpansion
set 01= 000000 
set 02=00    00
set 03=00    00
set 04=00    00
set 05=00    00
set 06=00    00
set 07= 000000 

set 11=   00   
set 12=  000   
set 13=   00   
set 14=   00   
set 15=   00   
set 16=   00   
set 17=  0000  

set 21= 000000 
set 22=00    00
set 23=      00
set 24= 000000 
set 25=00      
set 26=00      
set 27=0000000 

set 31= 000000 
set 32=00    00
set 33=      00
set 34=  00000 
set 35=      00
set 36=00    00
set 37= 000000 

set 41=  0000  
set 42= 00 00  
set 43=00  00  
set 44=00  00  
set 45=00000000
set 46=    00  
set 47=    00  

set 51=0000000 
set 52=00      
set 53=00      
set 54= 000000 
set 55=      00
set 56=00    00
set 57= 000000 

set 61= 000000 
set 62=00    00
set 63=00      
set 64=0000000 
set 65=00    00
set 66=00    00
set 67= 000000 

set 71= 0000000
set 72=00    00
set 73=     00 
set 74=    00  
set 75=    00  
set 76=    00  
set 77=    00  

set 81= 000000 
set 82=00    00
set 83=00    00
set 84= 000000 
set 85=00    00
set 86=00    00
set 87= 000000 

set 91= 000000 
set 92=00    00
set 93=00    00
set 94= 0000000
set 95=      00
set 96=00    00
set 97= 000000 
:a
for /l %%a in (1,1,7) do (set hang%%a=)
for /f %%n in ('time /t') do (set t1=%%n &set t1=!t1:~0,1!)
set /a t2=%time:~1,1%,t3=%time:~3,1%,t4=%time:~4,1%
set /a t5=%time:~6,1%,t6=%time:~7,1%,t7=%time:~9,1%,t8=%time:~10,1%
for %%b in (%t1% %t2% %t3% %t4% %t5% %t6%) do (for /l %%a in (1,1,7) do (
set hang%%a=!hang%%a! !%%b%%a!))
for %%a in (1,2,4,6,7) do (
set hang%%a=!hang%%a:~0,18!    !hang%%a:~19,18!    !hang%%a:~37,18!)
set hang3=%hang3:~0,18% ● %hang3:~19,18% ● %hang3:~37,18%
set hang5=%hang5:~0,18% ● %hang5:~19,18% ● %hang5:~37,18%
ping -n>nul&ping -n>nul&ping -n>nul
cls
echo.&echo.&echo.&echo.
echo %hang1% 
echo %hang2% 
echo %hang3% 
echo %hang4% 
echo %hang5% 
echo %hang6% 
echo %hang7% 
goto :a

[ Last edited by radem on 2008-7-25 at 07:26 PM ]

厉害。。。
改成* 不行的原因可能是因为被当成了乘法运算符了吧。

7楼的代码改过了，是因为转行的部分出现了 “断截”
代码被断了
10楼的靓仔有前途！！！效果不是一般的好！

10楼的厉害，太棒了，好漂亮啊~~~美观很多~

郁闷……


@echo off
setlocal enabledelayedexpansion
set kong=                                         
mode con cols=100 lines=20
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 /l %%a in (1,1,5) do (
set hang%%a=!%time:~0,1%%%a! !%time:~1,1%%%a!    !%time:~3,1%%%a! !%time:~4,1%%%a!    !%time:~6,1%%%a! !%time:~7,1%%%a!    !%time:~9,1%%%a! !%time:~10,1%%%a!
)
ping -n>nul
cls
echo %hang1%
echo %hang2%
echo %hang3%
echo %hang4%
echo %hang5%
goto :a

刚刚无意写成了斜体的……效果超好啊
http://www.cn-dos.net/forum/viewthread.php?tid=41833&fpage=1

第1楼　523066680	发表于 2008-07-25 09:42
银牌会员　发帖 1,133　积分 2,362
【算是月贴】我尽量减少闪烁的批处理大时钟 ::这一版本编辑if_exist @echo off &color 0a mode con cols=100 lines=30 setlocal enabledelayedexpansion set 01=00000000000000 set 02=00 00 set 03=00 000000 00 set 04=00 000000 00 set 05=00 000000 00 set 06=00 00 set 07=00000000000000 set 11=00000000000000 set 12=0000 000000 set 13=000000 000000 set 14=000000 000000 set 15=000000 000000 set 16=0000 0000 set 17=00000000000000 set 21=00000000000000 set 22=00 00 set 23=0000000000 00 set 24=00 00 set 25=00 0000000000 set 26=00 00 set 27=00000000000000 set 31=00000000000000 set 32=00 00 set 33=0000000000 00 set 34=00 00 set 35=0000000000 00 set 36=00 00 set 37=00000000000000 set 41=00000000000000 set 42=00 0000 0000 set 43=00 0000 0000 set 44=00 00 set 45=00000000 0000 set 46=00000000 0000 set 47=00000000000000 set 51=00000000000000 set 52=00 00 set 53=00 0000000000 set 54=00 00 set 55=0000000000 00 set 56=00 00 set 57=00000000000000 set 61=00000000000000 set 62=00 00 set 63=00 0000000000 set 64=00 00 set 65=00 000000 00 set 66=00 00 set 67=00000000000000 set 71=00000000000000 set 72=00 00 set 73=0000000000 00 set 74=0000000000 00 set 75=0000000000 00 set 76=0000000000 00 set 77=00000000000000 set 81=00000000000000 set 82=00 00 set 83=00 000000 00 set 84=00 00 set 85=00 000000 00 set 86=00 00 set 87=00000000000000 set 91=00000000000000 set 92=00 00 set 93=00 000000 00 set 94=00 00 set 95=0000000000 00 set 96=00 00 set 97=00000000000000 :a for /l %%a in (1,1,7) do (set hang%%a=) for /f %%n in ('time /t') do (set t1=%%n &set t1=!t1:~0,1!) set /a t2=%time:~1,1%,t3=%time:~3,1%,t4=%time:~4,1% set /a t5=%time:~6,1%,t6=%time:~7,1%,t7=%time:~9,1%,t8=%time:~10,1% for %%b in (%t1% %t2% %t3% %t4% %t5% %t6%) do (for /l %%a in (1,1,7) do ( set hang%%a=!hang%%a! !%%b%%a!)) for %%a in (1,2,4,6,7) do ( set hang%%a=!hang%%a:~0,30! !hang%%a:~31,30! !hang%%a:~61,30!) set hang3=%hang3:~0,30% ● %hang3:~31,30% ● %hang3:~61,30% set hang5=%hang5:~0,30% ● %hang5:~31,30% ● %hang5:~61,30% ping -n>nul&ping -n>nul&ping -n>nul cls echo.&echo.&echo.&echo. echo %hang1% echo %hang2% echo %hang3% echo %hang4% echo %hang5% echo %hang6% echo %hang7% echo.&echo.&echo. -------%t7%%t8% goto :a [ Last edited by 523066680 on 2008-7-25 at 09:51 AM ]

第2楼　BC	发表于 2008-07-25 09:59
中级用户　发帖 175　积分 338
好像有点问题哦,显示9:51分时会显示成99:51

第3楼　523066680	发表于 2008-07-25 10:33
银牌会员　发帖 1,133　积分 2,362
啥？我看看看错了吧那个0跟9很像的我这边的时钟改了看了一下没问题啊 [ Last edited by 523066680 on 2008-7-25 at 10:35 AM ]

第4楼　bat-zw	发表于 2008-07-25 10:42
金牌会员　发帖 1,276　积分 3,105
建议用。或*符号来代替，为了鼓励，加分。

第5楼　HAT	发表于 2008-07-25 11:51
版主　发帖 5,017　积分 9,023
建议把代码放到code标签里面，方便别人复制。

第6楼　BC	发表于 2008-07-25 14:58
中级用户　发帖 175　积分 338
提出个小建议,能不能不显示秒,然后减少刷新呢? 我记得坛里以前有个也是时钟,它是每秒变换一下位置,好像这样的感觉更好哦

第7楼　523066680	发表于 2008-07-25 15:48
银牌会员　发帖 1,133　积分 2,362
恩接受大家的建议！ ::编辑 if_exist hi.baidu.com/523066680 @echo off &color 0a mode con cols=100 lines=30 setlocal enabledelayedexpansion set 01=************ set 02= set 03= **** set 04= ** set 05= ** set 06= set 07=************ set 11=********** set 12= ** set 13=** ** set 14=** ** set 15=** ** set 16= set 17=********** set 21=********** set 22= set 23=****** set 24= set 25= ****** set 26= set 27=********** set 31=********** set 32= set 33=****** set 34= set 35=******** set 36= set 37=************ set 41=********** set 42= ** set 43= ** set 44= set 45=**** set 46=**** set 47=********** set 51=********** set 52= set 53= ******** set 54= set 55=****** set 56= set 57=************ set 61=********** set 62= set 63= ******** set 64= set 65= **** set 66= set 67=************ set 71=********** set 72= set 73=****** set 74=******** set 75=******** set 76=******** set 77=************ set 81=********** set 82= set 83= **** set 84= set 85= ** set 86= set 87=************ set 91=********** set 92= set 93= **** set 94= set 95=******** set 96= set 97=************** :a for /l %%a in (1,1,7) do (set hang%%a=) for /f %%n in ('time /t') do (set t1=%%n &set t1=!t1:~0,1!) set /a t2=%time:~1,1%,t3=%time:~3,1%,t4=%time:~4,1% set /a t5=%time:~6,1%,t6=%time:~7,1%,t7=%time:~9,1%,t8=%time:~10,1% for %%b in (%t1% %t2% %t3% %t4% %t5% %t6%) do (for /l %%a in (1,1,7) do ( set hang%%a=!hang%%a! !%%b%%a!)) for %%a in (1,2,4,6,7) do ( set hang%%a=!hang%%a:~0,30! !hang%%a:~31,30! !hang%%a:~61,30!) set hang3=%hang3:~0,30% ● %hang3:~31,30% ● %hang3:~61,30% set hang5=%hang5:~0,30% ● %hang5:~31,30% ● %hang5:~61,30% for %%a in (1,2,3,4) do (ping -n>nul) cls echo.&echo.&echo.&echo. echo %hang1% echo %hang2% echo %hang3% echo %hang4% echo %hang5% echo %hang6% echo %hang7% goto :a [ Last edited by 523066680 on 2008-7-25 at 08:35 PM ]

第8楼　523066680	发表于 2008-07-25 15:55
银牌会员　发帖 1,133　积分 2,362
我觉得要是把秒去掉就没特色了我记得那个没有秒的，是大虾们做的时间屏保代码很短哦！我觉得很牛

第9楼　recallshan	发表于 2008-07-25 17:03
初级用户　发帖 14　积分 31
不知道楼主是如何在time里获取到秒值的?

第10楼　radem	发表于 2008-07-25 19:09
高级用户　发帖 383　积分 691
稍微修改了一下，好看多了:lol: 另：7楼好象有错 @echo off &color 0a title 批处理时钟 :: Edit by if_exist/Modified by radem @ www.cn-dos.net mode con cols=65 lines=20 setlocal enabledelayedexpansion set 01= 000000 set 02=00 00 set 03=00 00 set 04=00 00 set 05=00 00 set 06=00 00 set 07= 000000 set 11= 00 set 12= 000 set 13= 00 set 14= 00 set 15= 00 set 16= 00 set 17= 0000 set 21= 000000 set 22=00 00 set 23= 00 set 24= 000000 set 25=00 set 26=00 set 27=0000000 set 31= 000000 set 32=00 00 set 33= 00 set 34= 00000 set 35= 00 set 36=00 00 set 37= 000000 set 41= 0000 set 42= 00 00 set 43=00 00 set 44=00 00 set 45=00000000 set 46= 00 set 47= 00 set 51=0000000 set 52=00 set 53=00 set 54= 000000 set 55= 00 set 56=00 00 set 57= 000000 set 61= 000000 set 62=00 00 set 63=00 set 64=0000000 set 65=00 00 set 66=00 00 set 67= 000000 set 71= 0000000 set 72=00 00 set 73= 00 set 74= 00 set 75= 00 set 76= 00 set 77= 00 set 81= 000000 set 82=00 00 set 83=00 00 set 84= 000000 set 85=00 00 set 86=00 00 set 87= 000000 set 91= 000000 set 92=00 00 set 93=00 00 set 94= 0000000 set 95= 00 set 96=00 00 set 97= 000000 :a for /l %%a in (1,1,7) do (set hang%%a=) for /f %%n in ('time /t') do (set t1=%%n &set t1=!t1:~0,1!) set /a t2=%time:~1,1%,t3=%time:~3,1%,t4=%time:~4,1% set /a t5=%time:~6,1%,t6=%time:~7,1%,t7=%time:~9,1%,t8=%time:~10,1% for %%b in (%t1% %t2% %t3% %t4% %t5% %t6%) do (for /l %%a in (1,1,7) do ( set hang%%a=!hang%%a! !%%b%%a!)) for %%a in (1,2,4,6,7) do ( set hang%%a=!hang%%a:~0,18! !hang%%a:~19,18! !hang%%a:~37,18!) set hang3=%hang3:~0,18% ● %hang3:~19,18% ● %hang3:~37,18% set hang5=%hang5:~0,18% ● %hang5:~19,18% ● %hang5:~37,18% ping -n>nul&ping -n>nul&ping -n>nul cls echo.&echo.&echo.&echo. echo %hang1% echo %hang2% echo %hang3% echo %hang4% echo %hang5% echo %hang6% echo %hang7% goto :a [ Last edited by radem on 2008-7-25 at 07:26 PM ]

第11楼　pusofalse	发表于 2008-07-25 19:58
银牌会员　发帖 646　积分 1,604
厉害。。。改成* 不行的原因可能是因为被当成了乘法运算符了吧。

第12楼　523066680	发表于 2008-07-25 20:37
银牌会员　发帖 1,133　积分 2,362
7楼的代码改过了，是因为转行的部分出现了 “断截” 代码被断了 10楼的靓仔有前途！！！效果不是一般的好！

第13楼　220110	发表于 2008-07-25 21:35
荣誉版主　发帖 313　积分 718
最喜欢有创新~

第14楼　kidzgy	发表于 2008-07-27 09:46
中级用户　发帖 129　积分 262
10楼的厉害，太棒了，好漂亮啊~~~美观很多~

第15楼　523066680	发表于 2008-07-28 11:21
银牌会员　发帖 1,133　积分 2,362
郁闷…… @echo off setlocal enabledelayedexpansion set kong= mode con cols=100 lines=20 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 /l %%a in (1,1,5) do ( set hang%%a=!%time:~0,1%%%a! !%time:~1,1%%%a! !%time:~3,1%%%a! !%time:~4,1%%%a! !%time:~6,1%%%a! !%time:~7,1%%%a! !%time:~9,1%%%a! !%time:~10,1%%%a! ) ping -n>nul cls echo %hang1% echo %hang2% echo %hang3% echo %hang4% echo %hang5% goto :a 刚刚无意写成了斜体的……效果超好啊 http://www.cn-dos.net/forum/viewthread.php?tid=41833&fpage=1