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

neorobin

测试环境: 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

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

jcy0307

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

raymai97

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

523066680

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

sharpxie

批处理也有这么强大

kbsjfans

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

chenfei

哇，楼主好强大，支持

Skybat

不错！在XP下很稳定~

chinavirus

呵呵 辛苦了  
支持原创！

骚鸡

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

canyuexiaolang

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

漂亮！

raymai97

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

sl543001

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

vsbat

win 7 下是可以正常运行的