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

Rank: 7Rank: 7Rank: 7

帖子
675 
积分
4012 
技术
112  
捐助
0  
注册时间
2009-11-25 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2010-6-17 02:38 | 只看该作者

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

本帖最后由 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. 以 # 和 * 显示(适应各种代码页)
  1. @echo off & setlocal enabledelayedexpansion & mode con cols=27 lines=6 & color 0a

  2. set "cc=# "

  3. 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

  4. 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 (

  5.   set "cc=!cc:~-1!!cc:~0,1!"

  6.   for /l %%i in (1,1,%%a) do set "dgts=!dgts!!cc:~-1!"

  7. )

  8. for /l %%z in (0 0 0) do (

  9.   if "!time:~7,1!" neq "!sec!" (

  10.     set "sec=!time:~7,1!" & set "oc="

  11.     for /l %%h in (0,1,4) do (

  12.       for %%d in (0 sp 1 sp : sp 3 sp 4 sp : sp 6 sp 7) do (

  13.         if "%%d"==":" (set /a "tt=%%h&1"&if "!tt!"=="0" (set oc=!oc! ) else set oc=!oc!*) else (

  14.           if "%%d"=="sp" (set oc=!oc! ) else (

  15.             set "timeP=!time: =0!"&set /a s=!timeP:~%%d,1!*15+%%h*3

  16.             for %%o in (!s!) do set "oc=!oc!!dgts:~%%o,3!"

  17. ))))&cls & set /p=!oc!<nul))
复制代码
CODE 3. 以 ■ 和 ● 显示, 仅在 codepage 936 下测试过正常.
  1. @echo off & setlocal enabledelayedexpansion & mode con cols=54 lines=6 & color 0a

  2. chcp 936 & rem Only tested under Chinese Simplified

  3. set "sp=　" & set "cc=■!sp!"

  4. 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

  5. 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 (

  6.   set "cc=!cc:~-1!!cc:~0,1!"

  7.   for /l %%i in (1,1,%%a) do set "dgts=!dgts!!cc:~-1!"

  8. )

  9. for /l %%z in () do (

  10.   if "!time:~7,1!" neq "!sec!" (

  11.     set "sec=!time:~7,1!" & set "oc="

  12.     for /l %%h in (0,1,4) do (

  13.       for %%d in (0 sp 1 sp : sp 3 sp 4 sp : sp 6 sp 7) do (

  14.         if "%%d"==":" (set /a "tt=%%h&1"&if "!tt!"=="0" (set oc=!oc!!sp!) else set oc=!oc!●) else (

  15.           if "%%d"=="sp" (set oc=!oc!!sp!) else (

  16.             set "timeP=!time: =0!"&set /a s=!timeP:~%%d,1!*15+%%h*3

  17.             for %%o in (!s!) do set "oc=!oc!!dgts:~%%o,3!"

  18. ))))&cls & set /p=!oc!<nul))
复制代码
附件: 您需要登录才可以下载或查看附件。没有帐号？注册
3

评分人数

收藏 分享

Zhou.

Rank: 1

帖子
22 
积分
43 
技术
3  
捐助
0  
注册时间
2020-5-12 
35楼
发表于 2020-8-18 17:23 | 只看该作者
start https://www.baidu.com/s?wd=正常

TOP

Zhou.

Rank: 1

帖子
22 
积分
43 
技术
3  
捐助
0  
注册时间
2020-5-12 
34楼
发表于 2020-8-18 17:21 | 只看该作者
Win 10 正常 [img]C:\users\ZLJ\1.bmp[[/img]

TOP

Speed乄Jay

Rank: 1

帖子
34 
积分
57 
技术
0  
捐助
0  
注册时间
2017-9-6 
33楼
发表于 2019-11-19 15:59 | 只看该作者
真牛逼，批处理如此强大

TOP

ai20110304

Rank: 2

帖子
112 
积分
124 
技术
0  
捐助
0  
注册时间
2015-10-10 
32楼
发表于 2018-5-28 10:31 | 只看该作者
回复 1# neorobin


    没看懂第一个循环里的数字意思4  1 2 1，求解释

TOP

I2mcq

Rank: 1

帖子
2 
积分
13 
技术
0  
捐助
0  
注册时间
2018-5-11 
31楼
发表于 2018-5-12 17:15 | 只看该作者
回复 1# neorobin


    不过放大就不行了

TOP

zhangzsky

Rank: 1

帖子
40 
积分
54 
技术
0  
捐助
0  
注册时间
2013-5-21 
30楼
发表于 2018-4-11 23:24 | 只看该作者
不闪屏
  1. @echo off

  2. setlocal enabledelayedexpansion

  3. mode con cols=54 lines=6

  4. color 0a

  5. chcp 936

  6. rem Only tested under Chinese Simplified

  7. set "sp=　"

  8. set "cc=■!sp!"

  9. for %%a in (

  10. 		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

  11. 		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

  12. 	) do (

  13. 		set "cc=!cc:~-1!!cc:~0,1!"

  14. 		for /l %%i in (

  15. 				1,1,%%a

  16. 			) do (

  17. 				set "dgts=!dgts!!cc:~-1!"

  18. 		)

  19. )

  20. 

  21. for /l %%z in () do (

  22. 	if "!time:~7,1!" neq "!sec!" (

  23. 		set "sec=!time:~7,1!"

  24. 		set "oc="

  25. 		for /l %%h in (

  26. 				0,1,4

  27. 			) do (

  28. 				for %%d in (

  29. 						0 sp 1 sp : sp 3 sp 4 sp : sp 6 sp 7

  30. 					) do (

  31. 						if "%%d"==":" (

  32. 								set /a "tt=%%h&1"

  33. 								if "!tt!"=="0" (

  34. 										set oc=!oc!!sp!

  35. 									) else (

  36. 										set oc=!oc!●

  37. 								)

  38. 							) else (

  39. 								if "%%d"=="sp" (

  40. 										set oc=!oc!!sp!

  41. 									) else (

  42. 										set "timeP=!time: =0!"

  43. 										set /a s=!timeP:~%%d,1!*15+%%h*3

  44. 										for %%o in (

  45. 												!s!

  46. 											) do (

  47. 												set "oc=!oc!!dgts:~%%o,3!"

  48. 										)

  49. 								)

  50. 						)

  51. 				)

  52. 		)

  53. 	cls

  54. 	set /p=!oc!<nul

  55. 	)

  56. )
复制代码

TOP

狱渊

Rank: 5Rank: 5

帖子
118 
积分
930 
技术
0  
捐助
0  
注册时间
2013-4-20 
29楼
发表于 2013-4-28 20:45 | 只看该作者
回复 1# neorobin


    还不错哦

TOP

eddf

Rank: 1

帖子
31 
积分
25 
技术
0  
捐助
0  
注册时间
2012-8-26 
28楼
发表于 2012-8-27 10:28 | 只看该作者
怎样用点阵列数字样本显示当前的系统时间，请教高手解答，用批处理实现。以下是点阵列数字样本的批处理文本。


——————————————————————————————————————————————————————————————————————————————————————————



@echo off
cls
echo.
rem  根据黄金分割比，此程序的每个数字的宽乘以高为10×16个点阵列。
color 0E
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██████████
echo.               ██████████
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.               ██████████
echo.               ██████████
echo.
echo.
echo.
echo.
echo.               ████
echo.               ████
echo.               ████
echo.               ████
echo.
echo.
echo.
echo.               ████
echo.               ████
echo.               ████
echo.               ████
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██████████
echo.               ██████████
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██████████
echo.               ██████████
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.               ██
echo.               ██
echo.               ██
echo.               ██
echo.               ██
echo.               ██████████
echo.               ██████████
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██████████
echo.               ██████████
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.               ██
echo.               ██
echo.               ██
echo.               ██
echo.               ██
echo.               ██████████
echo.               ██████████
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.               ██████████
echo.               ██████████
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.               ██    ██
echo.               ██    ██
echo.               ██    ██
echo.               ██    ██
echo.               ██    ██
echo.               ██    ██
echo.               ██    ██
echo.               ██████████
echo.               ██████████
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.               ██████████
echo.               ██████████
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.               ██████████
echo.               ██████████
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.               ██████████
echo.               ██████████
echo.               ██
echo.               ██
echo.               ██
echo.               ██
echo.               ██
echo.               ██████████
echo.               ██████████
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.                       ██
echo.                     ███
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                     ████
echo.                     ████
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██████████
echo.               ██████████
echo.
echo.
echo.
echo.
pause

TOP

fuxing888

Rank: 2

帖子
2 
积分
103 
技术
0  
捐助
0  
注册时间
2009-11-27 
27楼
发表于 2012-8-25 20:06 | 只看该作者
楼主太厉害了，能不能给我做个无敌批处理格式化硬盘的批处理了，自己写了几个都执行到一半就over了！郁闷啊，请楼主给我写个代码！让俺也见识一下

TOP

5566ljlj

Rank: 5Rank: 5

帖子
45 
积分
678 
技术
0  
捐助
0  
注册时间
2009-3-7 
26楼
发表于 2012-7-22 13:54 | 只看该作者
做得很漂亮

TOP

aoki888

Rank: 1

帖子
7 
积分
28 
技术
0  
捐助
0  
注册时间
2012-2-18 
25楼
发表于 2012-6-21 06:52 | 只看该作者
有才啊！！！

TOP

raymai97

Rank: 5Rank: 5

帖子
268 
积分
872 
技术
19  
捐助
0  
注册时间
2010-5-30 
24楼
发表于 2011-7-30 12:45 | 只看该作者
额，没有想到今天我又看到这个帖子了…… 而且不看回复，还以为是新的…… 看来离开这里太久了……
为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html

TOP

y8160000

Rank: 2

帖子
5 
积分
105 
技术
0  
捐助
0  
注册时间
2009-9-25 
23楼
发表于 2011-6-9 20:25 | 只看该作者
我是想都不敢想，有这种批处理。看来我的水平还是入门

TOP

applba

Rank: 6Rank: 6

帖子
551 
积分
2799 
技术
39  
捐助
0  
注册时间
2011-4-22 
22楼
发表于 2011-6-8 03:12 | 只看该作者
效果不错，但是cpu占用相对过高

TOP

123
返回列表