|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『楼 主』:
【算是月贴】我尽量减少闪烁的批处理大时钟
::这一版本编辑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 ]
此帖被 +39 点积分 点击查看详情 评分人:【 bat-zw 】 | 分数: +4 | 时间:2008-7-25 10:42 | 评分人:【 BC 】 | 分数: +2 | 时间:2008-7-25 14:58 | 评分人:【 pusofalse 】 | 分数: +5 | 时间:2008-7-25 19:59 | 评分人:【 220110 】 | 分数: +20 | 时间:2008-7-25 21:32 | 评分人:【 moniuming 】 | 分数: +8 | 时间:2008-7-25 21:50 |
|
|
综合型编程论坛
我的作品索引 |
|
2008-7-25 09:42 |
|
|
BC
中级用户
积分 338
发帖 175
注册 2007-10-21
状态 离线
|
『第
2 楼』:
好像有点问题哦,显示9:51分时会显示成99:51
|
C:\
C:\Del BC |
|
2008-7-25 09:59 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『第
3 楼』:
啥?我看看 看错了吧 那个0跟9很像的
我这边的时钟改了看了一下 没问题啊
[ Last edited by 523066680 on 2008-7-25 at 10:35 AM ]
|
综合型编程论坛
我的作品索引 |
|
2008-7-25 10:33 |
|
|
bat-zw
金牌会员
永远的学习者
积分 3105
发帖 1276
注册 2008-3-8
状态 离线
|
|
2008-7-25 10:42 |
|
|
HAT
版主
积分 9023
发帖 5017
注册 2007-5-31
状态 离线
|
『第
5 楼』:
建议把代码放到code标签里面,方便别人复制。
|
|
|
2008-7-25 11:51 |
|
|
BC
中级用户
积分 338
发帖 175
注册 2007-10-21
状态 离线
|
『第
6 楼』:
提出个小建议,能不能不显示秒,然后减少刷新呢?
我记得坛里以前有个也是时钟,它是每秒变换一下位置,好像这样的感觉更好哦
|
C:\
C:\Del BC |
|
2008-7-25 14:58 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『第
7 楼』:
恩 接受大家的建议!
::编辑 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 ]
|
综合型编程论坛
我的作品索引 |
|
2008-7-25 15:48 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『第
8 楼』:
我觉得要是把秒去掉就没特色了
我记得那个没有秒的,是大虾们做的时间屏保
代码很短哦!我觉得很牛
|
综合型编程论坛
我的作品索引 |
|
2008-7-25 15:55 |
|
|
recallshan
初级用户
积分 31
发帖 14
注册 2007-7-31
状态 离线
|
『第
9 楼』:
不知道楼主是如何在time里获取到秒值的?
|
|
2008-7-25 17:03 |
|
|
radem
高级用户
CMD感染者
积分 691
发帖 383
注册 2008-5-23
状态 离线
|
『第
10 楼』:
稍微修改了一下,好看多了: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 ]
|
|
|
2008-7-25 19:09 |
|
|
pusofalse
银牌会员
积分 1604
发帖 646
注册 2008-4-13
状态 离线
|
『第
11 楼』:
厉害。。。
改成* 不行的原因可能是因为被当成了乘法运算符了吧。
|
心绪平和,眼藏静谧,无比安稳的火... Purification of soul...Just a false...^_^ |
|
2008-7-25 19:58 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『第
12 楼』:
7楼的代码改过了,是因为转行的部分出现了 “断截”
代码被断了
10楼的靓仔有前途!!!效果不是一般的好!
|
综合型编程论坛
我的作品索引 |
|
2008-7-25 20:37 |
|
|
220110
荣誉版主
积分 718
发帖 313
注册 2005-9-26
状态 离线
|
|
2008-7-25 21:35 |
|
|
kidzgy
中级用户
积分 262
发帖 129
注册 2007-7-11
状态 离线
|
『第
14 楼』:
10楼的厉害,太棒了,好漂亮啊~~~美观很多~
|
|
2008-7-27 09:46 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『第
15 楼』:
郁闷……
@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
|
综合型编程论坛
我的作品索引 |
|
2008-7-28 11:21 |
|
|