中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 自创小时钟下载
查看 1,028 回复 5
楼 主
自创小时钟下载
发表于 2008-06-22 12:30 · 中国 广东 电信
第 2 楼
我来帮你修正一下
发表于 2008-06-22 12:41 · 中国 广东 揭阳 电信
原来的内容太闪拉 要ping /n 停顿一下 才不会太闪
：：原创---driver1998 修订：523066680
@echo off
title 实用小时钟
color 0f
:1
cls
echo.
echo.
echo 实用小时钟
echo.
echo 现在是 %date% %time:~0,8%
echo. ----%time:~9%
echo.
ping /n>nul
goto 1
：：原创---driver1998 修订：523066680
@echo off
title 实用小时钟
color 0f
:1
cls
echo.
echo.
echo 实用小时钟
echo.
echo 现在是 %date% %time:~0,8%
echo. ----%time:~9%
echo.
ping /n>nul
goto 1
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| driver1998 | +1 | 2008-06-22 17:36 |
第 3 楼
也看看这个
发表于 2008-06-22 12:47 · 中国 广东 揭阳 电信
前面部分是参考别人编的 后面自己想的，这里把cls放在echo 前面 减少了闪烁
还是很闪
@echo off
color 0a
setlocal enabledelayedexpansion
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= )
set t1=%time:~0,1%
set t2=%time:~1,1%
set t3=%time:~3,1%
set t4=%time:~4,1%
set t5=%time:~6,1%
set t6=%time:~7,1%
for %%b in (%t1% %t2% %t3% %t4% %t5% %t6%) do (
for /l %%a in (1,1,5) do (
set hang%%a=!hang%%a! !%%b%%a!
)
)
cls
echo.&echo.&echo.&echo.
echo !hang1!
echo !hang2!
echo !hang3!
echo !hang4!
echo !hang5!
echo.&echo.&echo. --%time:~9%
for /l %%a in (1,1,3000) do rem
goto :a
还是很闪
@echo off
color 0a
setlocal enabledelayedexpansion
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= )
set t1=%time:~0,1%
set t2=%time:~1,1%
set t3=%time:~3,1%
set t4=%time:~4,1%
set t5=%time:~6,1%
set t6=%time:~7,1%
for %%b in (%t1% %t2% %t3% %t4% %t5% %t6%) do (
for /l %%a in (1,1,5) do (
set hang%%a=!hang%%a! !%%b%%a!
)
)
cls
echo.&echo.&echo.&echo.
echo !hang1!
echo !hang2!
echo !hang3!
echo !hang4!
echo !hang5!
echo.&echo.&echo. --%time:~9%
for /l %%a in (1,1,3000) do rem
goto :a
本帖最近评分记录
（共 2 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| knoppix7 | +9 | 2008-06-22 13:54 |
| driver1998 | +1 | 2008-06-22 17:37 |
第 4 楼
发表于 2008-06-22 17:02 · 中国 广东 电信
学习了，谢谢。
第 5 楼
发表于 2008-06-23 20:24 · 中国 广东 深圳 电信
闪得好利害~~小时分钟等之间有个：更好~~这样看起来会好看点~~刚刚一看我还以为是2004年呢~
第 6 楼
发表于 2008-06-24 03:09 · 中国 四川 成都 电信
宋体就是这样，不好看
■
■■
■
■
■
■
■
■■■
■■■
■ ■
■ ■
■
■
■
■
■■■■■
■■■
■ ■
■
■■
■
■
■ ■
■■■
■
■■
■ ■
■ ■
■ ■
■■■■
■
■■
■■■■■
■
■
■■■■
■
■
■ ■
■■■
■■■
■ ■
■
■■■■
■ ■
■ ■
■ ■
■■■
■■■■■
■ ■
■
■
■
■
■
■
■■■
■ ■
■ ■
■■■
■ ■
■ ■
■ ■
■■■
■■■
■ ■
■ ■
■ ■
■■■■
■
■ ■
■■■
■■■
■ ■
■ ■
■ ■
■ ■
■ ■
■ ■
■■■
■
■■
■
■
■
■
■
■■■
■■■
■ ■
■ ■
■
■
■
■
■■■■■
■■■
■ ■
■
■■
■
■
■ ■
■■■
■
■■
■ ■
■ ■
■ ■
■■■■
■
■■
■■■■■
■
■
■■■■
■
■
■ ■
■■■
■■■
■ ■
■
■■■■
■ ■
■ ■
■ ■
■■■
■■■■■
■ ■
■
■
■
■
■
■
■■■
■ ■
■ ■
■■■
■ ■
■ ■
■ ■
■■■
■■■
■ ■
■ ■
■ ■
■■■■
■
■ ■
■■■
■■■
■ ■
■ ■
■ ■
■ ■
■ ■
■ ■
■■■
论坛跳转: