批处理写大字效果--新年贺卡 - 中国DOS联盟论坛

题目: 批处理写大字效果--新年贺卡
代码,文/523066680
blog: http://hi.baidu.com/523066680
首发于:http://www.cn-dos.net/forum/viewthread.php?tid=45411&fpage=1

啰嗦下:
好久没写自己满意的特效了，大家都劝我学点实用的，其实我的应用类作品也
写了一些的，只是感觉没啥特别的，不想发上来罢了。

制作:
自己写了一个编辑写大字效果的批处理工具，已经完成的是:
对于直线，输入两端点坐标和附加"参数"，可以直接描出.
因为一些功能还在修改... 所以下次才贴 (过年再说，期末考试x定了！拼小命拉！)

作品:


::made by 523066680@cn-dos.net   2008-12-25
::blog: hi.baidu.com/523066680
::首发于:
@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+
@set evern2= 2535y+ 44 5352x- 464dx+ 656cx+ 6595y+ a3adx+ 49g9y+
@set evern3= 62 71 24g4y+ 55 66 77 484ex+ 5e7ey+ 878gx+ 2bbby+ ca d9 e8 f7 cc dd ee ff fg
@set evern4= 2c 3b 4a49x- 5857x- 5655x- 6575y+ 84 93 939fx+ 6ahay+ h9 c6 d5 e4 cd de ef 

@echo off&setLocal enabLedeLayedexpansion
title made by 523066680@cn-dos.net
mode con coLs=40 Lines=22
color 40
  set end= cn-dos 523066680 祝 大 家 
  set "L0=" &set "str=■" &set "num=0123456789abcdefghi"
  for /l %%a in (1,1,18) do (set L=!L!)
  for /l %%a in (0,1,18) do (set n!num:~%%a,1!=%%a)

for /l %%n in (1,1,4) do (
  for /l %%a in (1,1,18) do (set L%%a=%L%)
  for %%a in (!evern%%n!) do (call :a %%a)
  for /l %%a in (1,1,18) do (set "L%%n_%%a=!L%%a!")
  ping -n 2 127.1>nul
)
color 4e
for /l %%a in (0,1,30) do (
   set /p x=!end:~%%a,1!<nul
   for /l %%b in (1,1,5) do (ping -n 1 127.0>nul)
)
mode con cols=75 lines=37
cls,
for /l %%a in (1,1,18) do (echo,!L1_%%a! !L2_%%a!)
for /l %%a in (1,1,18) do (echo,!L3_%%a! !L4_%%a!)
ping -n 5 127.1>nul
exit
:a
 set n=%~1
 if "%n:~3%"=="" (set "do=::") else (set "do=")
  set /a ya=n%n:~0,1%,xa=n%n:~1,1%,xa2=xa+1
  %do% set /a yb=n%n:~2,1%,xb=n%n:~3,1%,xb2=xb+1
  %do% set "YorX=%n:~4,1%" &set "add=%n:~5,1%"
  :a-1
  set L%ya%=!L%ya%:~0,%xa%!%str%!L%ya%:~%xa2%!
  call :echo call yes
  %do% set /a %YorX%a%add%=1,xa2=xa+1
  %do% if not !%YorX%a! equ !%YorX%b! (goto :a-1)
  %do% set L%ya%=!L%ya%:~0,%xa%!%str%!L%ya%:~%xa2%!
 :echo
  if "%2"=="yes" (set for=3) else (set for=5)
  for /l %%a in (1,1,%for%) do (ping -n 1 127.1>nul)
  cLs
  for /l %%a in (0,1,18) do (echo, !L%%a!)
  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/viewthread.php?tid=45240&fpage=1&highlight=%2B523066680

还在忧郁要不要修改的写大字效果编辑器
批处理写大字特效编辑器
http://www.cn-dos.net/forum/viewthread.php?tid=45423&fpage=1

[ Last edited by 523066680 on 2008-12-28 at 14:18 ]

太神奇了，牛人，学习了！

呵呵，这何止是神奇可以说的过了，很强大，请问lz，那新年快乐，可以自行修改吗？

光看你贴的代码真看不出你是怎么实现的
说说呗

貌似是用点阵来实现的?

话说是如何用搞一个大字出来,然后得到坐标?

即将发布写打字效果的制作批处理 wait....

哦哦，太棒了，期待中！

新年快乐,顶起来!

很强大。顶一下。

赞一个，颜色搭配可以改进一下。

过新年啦！绝对要自己顶一个！

■■
■■■■■■■■
■■■■
■■■
■■■■■■■■■■■■■■
■■■
■■■■■■■
■■■
■■■■■
■■■■■
■■■
■■■
■■■■




■
■
■■■■■■■■■
■■■
■■■■■■■■
■■
■■
■■
■■■■■■■■■■■
■
■
■
■
■
■



■■
■■
■■■■■■■■
■■■■
■■■■■
■■■■■
■■■■■■■■■■■
■■
■■
■■
■■■
■■■
■■■
■■■■
■



■
■
■■
■■■■
■■
■■
■■
■■■■■■■■■■■■
■
■
■■■
■■■
■■■
■
■
■■

[ Last edited by 523066680 on 2009-1-25 at 22:31 ]

Originally posted by 523066680 at 2008-12-28 13:43:
即将发布写打字效果的制作批处理 wait....

时间就这么过去了
你的文章却不见发表

扣的分太少了，呆会再扣

牛人，学习了！

出现的有些慢啊，在XP中……

第1楼　523066680	发表于 2008-12-27 17:31
银牌会员　发帖 1,133　积分 2,362
[原创]批处理写大字效果--新年贺卡题目: 批处理写大字效果--新年贺卡代码,文/523066680 blog: http://hi.baidu.com/523066680 首发于:http://www.cn-dos.net/forum/viewthread.php?tid=45411&fpage=1 啰嗦下: 好久没写自己满意的特效了，大家都劝我学点实用的，其实我的应用类作品也写了一些的，只是感觉没啥特别的，不想发上来罢了。制作: 自己写了一个编辑写大字效果的批处理工具，已经完成的是: 对于直线，输入两端点坐标和附加"参数"，可以直接描出. 因为一些功能还在修改... 所以下次才贴 (过年再说，期末考试x定了！拼小命拉！) 作品: ::made by 523066680@cn-dos.net 2008-12-25 ::blog: hi.baidu.com/523066680 ::首发于: @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+ @set evern2= 2535y+ 44 5352x- 464dx+ 656cx+ 6595y+ a3adx+ 49g9y+ @set evern3= 62 71 24g4y+ 55 66 77 484ex+ 5e7ey+ 878gx+ 2bbby+ ca d9 e8 f7 cc dd ee ff fg @set evern4= 2c 3b 4a49x- 5857x- 5655x- 6575y+ 84 93 939fx+ 6ahay+ h9 c6 d5 e4 cd de ef @echo off&setLocal enabLedeLayedexpansion title made by 523066680@cn-dos.net mode con coLs=40 Lines=22 color 40 set end= cn-dos 523066680 祝大家 set "L0=" &set "str=■" &set "num=0123456789abcdefghi" for /l %%a in (1,1,18) do (set L=!L!) for /l %%a in (0,1,18) do (set n!num:~%%a,1!=%%a) for /l %%n in (1,1,4) do ( for /l %%a in (1,1,18) do (set L%%a=%L%) for %%a in (!evern%%n!) do (call :a %%a) for /l %%a in (1,1,18) do (set "L%%n_%%a=!L%%a!") ping -n 2 127.1>nul ) color 4e for /l %%a in (0,1,30) do ( set /p x=!end:~%%a,1!<nul for /l %%b in (1,1,5) do (ping -n 1 127.0>nul) ) mode con cols=75 lines=37 cls, for /l %%a in (1,1,18) do (echo,!L1_%%a! !L2_%%a!) for /l %%a in (1,1,18) do (echo,!L3_%%a! !L4_%%a!) ping -n 5 127.1>nul exit :a set n=%~1 if "%n:~3%"=="" (set "do=::") else (set "do=") set /a ya=n%n:~0,1%,xa=n%n:~1,1%,xa2=xa+1 %do% set /a yb=n%n:~2,1%,xb=n%n:~3,1%,xb2=xb+1 %do% set "YorX=%n:~4,1%" &set "add=%n:~5,1%" :a-1 set L%ya%=!L%ya%:~0,%xa%!%str%!L%ya%:~%xa2%! call :echo call yes %do% set /a %YorX%a%add%=1,xa2=xa+1 %do% if not !%YorX%a! equ !%YorX%b! (goto :a-1) %do% set L%ya%=!L%ya%:~0,%xa%!%str%!L%ya%:~%xa2%! :echo if "%2"=="yes" (set for=3) else (set for=5) for /l %%a in (1,1,%for%) do (ping -n 1 127.1>nul) cLs for /l %%a in (0,1,18) do (echo, !L%%a!) 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/viewthread.php?tid=45240&fpage=1&highlight=%2B523066680 还在忧郁要不要修改的写大字效果编辑器批处理写大字特效编辑器 http://www.cn-dos.net/forum/viewthread.php?tid=45423&fpage=1 [ Last edited by 523066680 on 2008-12-28 at 14:18 ]

第2楼　kaikai163	发表于 2008-12-27 18:21
初级用户　发帖 60　积分 107
太神奇了，牛人，学习了！

第3楼　itljl	发表于 2008-12-27 19:36
新手上路　发帖 7　积分 13
很好，学习。

第4楼　holucan	发表于 2008-12-27 23:40
初级用户　发帖 25　积分 26
呵呵，这何止是神奇可以说的过了，很强大，请问lz，那新年快乐，可以自行修改吗？

第5楼　yishanju	发表于 2008-12-28 04:06
银牌会员　发帖 1,357　积分 1,488
光看你贴的代码真看不出你是怎么实现的说说呗

第6楼　BC	发表于 2008-12-28 09:55
中级用户　发帖 175　积分 338
貌似是用点阵来实现的? 话说是如何用搞一个大字出来,然后得到坐标?

第7楼　523066680	发表于 2008-12-28 13:43
银牌会员　发帖 1,133　积分 2,362
即将发布写打字效果的制作批处理 wait....

第8楼　holucan	发表于 2008-12-28 13:54
初级用户　发帖 25　积分 26
哦哦，太棒了，期待中！

第9楼　523066680	发表于 2009-01-01 10:57
银牌会员　发帖 1,133　积分 2,362
新年快乐,顶起来!

第10楼　caobei	发表于 2009-01-01 13:42
新手上路　发帖 8　积分 14
很强大。顶一下。

第11楼　winxos	发表于 2009-01-01 15:35
新手上路　发帖 3　积分 3
写的很传神赞一个，颜色搭配可以改进一下。

第12楼　523066680	发表于 2009-01-25 22:28
银牌会员　发帖 1,133　积分 2,362
过新年啦！绝对要自己顶一个！  ■■ ■■■■■■■■ ■■■■ ■■■ ■■■■■■■■■■■■■■ ■■■ ■■■■■■■ ■■■ ■■■■■ ■■■■■ ■■■ ■■■ ■■■■     ■ ■ ■■■■■■■■■ ■■■ ■■■■■■■■ ■■ ■■ ■■ ■■■■■■■■■■■ ■ ■ ■ ■ ■ ■    ■■ ■■ ■■■■■■■■ ■■■■ ■■■■■ ■■■■■ ■■■■■■■■■■■ ■■ ■■ ■■ ■■■ ■■■ ■■■ ■■■■ ■    ■ ■ ■■ ■■■■ ■■ ■■ ■■ ■■■■■■■■■■■■ ■ ■ ■■■ ■■■ ■■■ ■ ■ ■■ [ Last edited by 523066680 on 2009-1-25 at 22:31 ]

第13楼　yishanju	发表于 2009-01-26 01:15
银牌会员　发帖 1,357　积分 1,488
Originally posted by 523066680 at 2008-12-28 13:43: 即将发布写打字效果的制作批处理 wait.... 时间就这么过去了你的文章却不见发表扣的分太少了，呆会再扣

第14楼　m72131	发表于 2009-01-27 14:25
新手上路　发帖 7　积分 10
牛人，学习了！

第15楼　gudou	发表于 2011-01-04 12:05
初级用户　发帖 29　积分 43
出现的有些慢啊，在XP中……