也做个批处理数字钟

neorobin · 发表于 2010-6-17 02:38:12

本帖最后由 neorobin 于 2012-5-23 23:26 编辑

测试环境: XP 32 位, WIN7 32 位

图 1. 以 ASCII-219 和 ASCII-4 显示的效果(代码在 codepage 437 下正常, codepage 936 不正常显示)

图 2. 以 # 和 * 显示的效果(适应各种代码页)

CODE 1. 以 ASCII-219 和 ASCII-4 显示, 为避免代码受损, 上传为附件

CODE 2. 以 # 和 * 显示(适应各种代码页)

@echo off & setlocal enabledelayedexpansion & mode con cols=27 lines=6 & color 0a
set "cc=# "
for %%a in (4 1 2 1 2 1 4 2 1 2 1 2 1 2 1 2 4 2 5 2 6 2 4 2 5 1 2
1 4 2 1 2 5 2 3 2 8 2 4 1 7 2 1 2 1 2 1 2 5 1 5 1 8 1 4 2 4) do (
set "cc=!cc:~-1!!cc:~0,1!"
for /l %%i in (1,1,%%a) do set "dgts=!dgts!!cc:~-1!"
)
for /l %%z in (0 0 0) do (
if "!time:~7,1!" neq "!sec!" (
set "sec=!time:~7,1!" & set "oc="
for /l %%h in (0,1,4) do (
for %%d in (0 sp 1 sp : sp 3 sp 4 sp : sp 6 sp 7) do (
if "%%d"==":" (set /a "tt=%%h&1"&if "!tt!"=="0" (set oc=!oc! ) else set oc=!oc!*) else (
if "%%d"=="sp" (set oc=!oc! ) else (
set "timeP=!time: =0!"&set /a s=!timeP:~%%d,1!*15+%%h*3
for %%o in (!s!) do set "oc=!oc!!dgts:~%%o,3!"
))))&cls & set /p=!oc!<nul))

复制代码

CODE 3. 以 ■ 和 ● 显示, 仅在 codepage 936 下测试过正常.

@echo off & setlocal enabledelayedexpansion & mode con cols=54 lines=6 & color 0a
chcp 936 & rem Only tested under Chinese Simplified
set "sp=　" & set "cc=■!sp!"
for %%a in (4 1 2 1 2 1 4 2 1 2 1 2 1 2 1 2 4 2 5 2 6 2 4 2 5 1 2
1 4 2 1 2 5 2 3 2 8 2 4 1 7 2 1 2 1 2 1 2 5 1 5 1 8 1 4 2 4) do (
set "cc=!cc:~-1!!cc:~0,1!"
for /l %%i in (1,1,%%a) do set "dgts=!dgts!!cc:~-1!"
)
for /l %%z in () do (
if "!time:~7,1!" neq "!sec!" (
set "sec=!time:~7,1!" & set "oc="
for /l %%h in (0,1,4) do (
for %%d in (0 sp 1 sp : sp 3 sp 4 sp : sp 6 sp 7) do (
if "%%d"==":" (set /a "tt=%%h&1"&if "!tt!"=="0" (set oc=!oc!!sp!) else set oc=!oc!●) else (
if "%%d"=="sp" (set oc=!oc!!sp!) else (
set "timeP=!time: =0!"&set /a s=!timeP:~%%d,1!*15+%%h*3
for %%o in (!s!) do set "oc=!oc!!dgts:~%%o,3!"
))))&cls & set /p=!oc!<nul))

复制代码

Seter · 发表于 2010-6-17 06:44:44

这个好象不错...嘿嘿看看

jcy0307 · 发表于 2010-6-17 22:14:36

牛，我今天总算知道人才是啥意思了，用来形容楼主再合适不过！

raymai97 · 发表于 2010-6-18 02:34:22

太厉害了！不过在WINDOWS7下有点BUG。

523066680 · 发表于 2010-6-18 09:03:26

我还能说在dos下无法实现呢……
robin标上执行环境吧。最郁闷那些说别的版本说不能运行的。

sharpxie · 发表于 2010-6-18 09:54:44

批处理也有这么强大

kbsjfans · 发表于 2010-6-26 14:31:28

呵呵，创意无限哈，这的确也体现了批处理的强大性，基础命令是魅力无穷！

chenfei · 发表于 2010-6-29 05:19:07

哇，楼主好强大，支持

Skybat · 发表于 2010-7-1 14:34:15

不错！在XP下很稳定~

chinavirus · 发表于 2010-7-2 10:20:05

呵呵辛苦了
支持原创！

骚鸡 · 发表于 2010-7-3 08:40:02

非常不错~！学习下~！。。。

canyuexiaolang · 发表于 2010-7-3 15:11:06

批处理的动画效果，只要敢想，有技术，那就。。

漂亮！

raymai97 · 发表于 2010-7-8 01:37:28

http://bathome.net/thread-8480-1-1.html
搞定后windows vista也能执行得很稳定！

sl543001 · 发表于 2010-7-9 17:43:38

看看俺的代码,彩色版的漂亮些

vsbat · 发表于 2010-7-9 18:56:32

win 7 下是可以正常运行的

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[游戏娱乐] 也做个批处理数字钟

本帖子中包含更多资源

评分

本帖子中包含更多资源

强

本帖子中包含更多资源

浏览过的版块