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

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2008-12-28 12:54 | 只看该作者

[游戏娱乐] 批处理写大字效果新年贺卡

代码,文/523066680
blog: http://hi.baidu.com/523066680
首发于:http://www.cn-dos.net/forum/viewthread.php?tid=45411&fpage=1
啰嗦下:
    好久没写自己满意的特效了，大家都劝我学点实用的，其实我的应用类作品也
写了一些的，只是感觉没啥特别的，不想发上来罢了。
制作:
    自己写了一个 编辑写大字效果的批处理工具，已经完成的是:
对于直线，输入两端点坐标和附加"参数"，可以直接描出.
因为一些功能还在修改... 所以下次才贴 (过年再说，期末考试x定了！拼小命拉！)
作品:
  1. ::made by 523066680@cn-dos.net   2008-12-25

  2. ::blog: hi.baidu.com/523066680

  3. ::首发于:

  4. @set evern1= 35 4248x+ 53 64 57 66 7179x+ 9397x+ 75f5y+ f4 b3 c2 b7 c8 3e 4d 5c 5bcby+ db ea f9 7b7fx+ 7efey+

  5. @set evern2= 2535y+ 44 5352x- 464dx+ 656cx+ 6595y+ a3adx+ 49g9y+

  6. @set evern3= 62 71 24g4y+ 55 66 77 484ex+ 5e7ey+ 878gx+ 2bbby+ ca d9 e8 f7 cc dd ee ff fg

  7. @set evern4= 2c 3b 4a49x- 5857x- 5655x- 6575y+ 84 93 939fx+ 6ahay+ h9 c6 d5 e4 cd de ef 

  8. @echo off&setLocal enabLedeLayedexpansion

  9. title made by 523066680@cn-dos.net

  10. mode con coLs=40 Lines=22

  11. color 40

  12.   set end= cn-dos 523066680 祝 大 家 

  13.   set "L0=" &set "str=■" &set "num=0123456789abcdefghi"

  14.   for /l %%a in (1,1,18) do (set L=!L!)

  15.   for /l %%a in (0,1,18) do (set n!num:~%%a,1!=%%a)

  16. for /l %%n in (1,1,4) do (

  17.   for /l %%a in (1,1,18) do (set L%%a=%L%)

  18.   for %%a in (!evern%%n!) do (call :a %%a)

  19.   for /l %%a in (1,1,18) do (set "L%%n_%%a=!L%%a!")

  20.   ping -n 2 127.1>nul

  21. )

  22. color 4e

  23. for /l %%a in (0,1,30) do (

  24.    set /p x=!end:~%%a,1!<nul

  25.    for /l %%b in (1,1,5) do (ping -n 1 127.0>nul)

  26. )

  27. mode con cols=75 lines=37

  28. cls,

  29. for /l %%a in (1,1,18) do (echo,!L1_%%a! !L2_%%a!)

  30. for /l %%a in (1,1,18) do (echo,!L3_%%a! !L4_%%a!)

  31. ping -n 5 127.1>nul

  32. exit

  33. :a

  34. set n=%~1

  35. if "%n:~3%"=="" (set "do=::") else (set "do=")

  36.   set /a ya=n%n:~0,1%,xa=n%n:~1,1%,xa2=xa+1

  37.   %do% set /a yb=n%n:~2,1%,xb=n%n:~3,1%,xb2=xb+1

  38.   %do% set "YorX=%n:~4,1%" &set "add=%n:~5,1%"

  39.   :a-1

  40.   set L%ya%=!L%ya%:~0,%xa%!%str%!L%ya%:~%xa2%!

  41.   call :echo call yes

  42.   %do% set /a %YorX%a%add%=1,xa2=xa+1

  43.   %do% if not !%YorX%a! equ !%YorX%b! (goto :a-1)

  44.   %do% set L%ya%=!L%ya%:~0,%xa%!%str%!L%ya%:~%xa2%!

  45. :echo

  46.   if "%2"=="yes" (set for=3) else (set for=5)

  47.   for /l %%a in (1,1,%for%) do (ping -n 1 127.1>nul)

  48.   cLs

  49.   for /l %%a in (0,1,18) do (echo, !L%%a!)

  50.   goto :eof
复制代码
代码内容讨论
[讨论]2次ping1 不等于 1次ping2
http://www.cn-dos.net/forum/viewthread.php?tid=45410&fpage=1
[分享]%var%代替语句执行
http://www.cn-dos.net/forum/view ... hlight=%2B523066680 [/url]
还在忧郁要不要修改的 写大字效果编辑器
[分享][原创]批处理写大字特效编辑器
http://www.cn-dos.net/forum/viewthread.php?tid=45423&fpage=1&highlight=%2B523066680
3

评分人数

收藏 分享
FuniCode 编程论坛

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
8楼
发表于 2010-2-9 22:23 | 只看该作者
我还发现我以前捏的代码根麻花似的……
FuniCode 编程论坛

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
7楼
发表于 2010-2-9 22:15 | 只看该作者
我N年前在装葱啊，还说不知道点阵？

终究是体力活，那么就直接体力的上一段~
  1.  

  2. @echo off

  3. mode con cols=38 lines=20

  4. title Happy new year

  5. color 4e

  6. set "act="

  7. echo,= = = = = = = = =

  8. echo,=               =

  9. echo,=  请稍等...    =

  10. echo,=               =

  11. echo,= = = = = = = = =

  12. ping -n 2 127.1>nul

  13. cls

  14. set "act="

  15. for /f "tokens=*" %%a in (%~snx0) do (

  16.     if defined act (

  17.        if "%%a"=="x" (ping -n 3 127.1>nul &cls &echo, &echo,) else (echo,%%a)

  18.     )

  19.     if "%%a"==":yes" (set act=yes)

  20. )

  21. echo,

  22. echo, 

  23. echo,   恭喜发财，红包拿来

  24. echo, 

  25. echo,

  26. echo, 

  27. set str=  Press any key to exit . . .

  28. for /l %%a in (1,1,30) do (ping -n 1 127.1>nul &ping -n 1 127.1>nul &call set /p a=%%str:~%%a,1%%<nul)

  29. pause>nul

  30. exit

  31.  

  32. :yes

  33. 

  34. ■■

  35. ■■■■■■■■

  36. ■■■■

  37. ■■■

  38. ■■■■■■■■■■■■■■

  39. ■■■

  40. ■■■■■■■

  41. ■■■

  42. ■■■■■

  43. ■■■■■

  44. ■■■

  45. ■■■

  46. ■■■■

  47. x

  48. ■

  49. ■

  50. ■■■■■■■■■

  51. ■■■

  52. ■■■■■■■■

  53. ■■

  54. ■■

  55. ■■

  56. ■■■■■■■■■■■

  57. ■

  58. ■

  59. ■

  60. ■

  61. ■

  62. ■

  63. x

  64. ■■

  65. ■■

  66. ■■■■■■■■

  67. ■■■■

  68. ■■■■■

  69. ■■■■■

  70. ■■■■■■■■■■■

  71. ■■

  72. ■■

  73. ■■

  74. ■■■

  75. ■■■

  76. ■■■

  77. ■■■■

  78. ■

  79. x

  80. ■

  81. ■

  82. ■■

  83. ■■■■

  84. ■■

  85. ■■

  86. ■■

  87. ■■■■■■■■■■■■

  88. ■

  89. ■

  90. ■■■

  91. ■■■

  92. ■■■

  93. ■

  94. ■

  95. ■■

  96. x
复制代码

[ 本帖最后由 523066680 于 2010-2-9 22:17 编辑 ]
FuniCode 编程论坛

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
6楼
发表于 2009-1-25 22:00 | 只看该作者
毛见过……   对点阵的认识:
        好像是那个组成大符号的 小符号 对应位置的编号 或者坐标
FuniCode 编程论坛

TOP

defanive

Rank: 7Rank: 7Rank: 7

帖子
957 
积分
4938 
技术
72  
捐助
0  
注册时间
2008-10-31 
5楼
发表于 2009-1-25 21:45 | 只看该作者
力气活，不做评论。。。
不过那个字看起来有点别扭。。。
参考点阵字来弄可能效果好点。。。

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3151 
积分
6455 
技术
317  
捐助
70  
注册时间
2008-8-3 
4楼
发表于 2009-1-25 21:17 | 只看该作者
过新年啦！  绝对要自己顶一个！  happy 牛 year!

■■
■■■■■■■■
■■■■
■■■
■■■■■■■■■■■■■■
■■■
■■■■■■■
■■■
■■■■■
■■■■■
■■■
■■■
■■■■




■
■
■■■■■■■■■
■■■
■■■■■■■■
■■
■■
■■
■■■■■■■■■■■
■
■
■
■
■
■



■■
■■
■■■■■■■■
■■■■
■■■■■
■■■■■
■■■■■■■■■■■
■■
■■
■■
■■■
■■■
■■■
■■■■
■



■
■
■■
■■■■
■■
■■
■■
■■■■■■■■■■■■
■
■
■■■
■■■
■■■
■
■
■■
FuniCode 编程论坛

TOP

zuiwangqiuyue

Rank: 2

帖子
2 
积分
171 
技术
0  
捐助
0  
注册时间
2008-12-20 
3楼
发表于 2008-12-31 16:46 | 只看该作者
LZ，你太 强大了····

TOP

wxcute

Rank: 8Rank: 8

帖子
618 
积分
6100 
技术
9  
捐助
0  
注册时间
2008-8-10 
2楼
发表于 2008-12-28 13:55 | 只看该作者
元旦时正好欣赏一下。

TOP

返回列表