中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-12 09:08

共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行

DOS批处理 & 脚本技术（批处理室） » 动画特效：画圆、弹球、进度条、起落等

可打印版本　8,481 / 30

第16楼　skywhite0	发表于 2009-03-15 12:25
新手上路　发帖 7　积分 8
先学习。。哪天会了，再回来。。。

第17楼　DwD	发表于 2009-03-16 06:24
新手上路　发帖 15　积分 12
我把空格换成了#，set h=!h:####=#####!这句话就是每次加一个#吧，为什么它变化的时候每循环两次后，就加了两个##呢？谁能解释下。 @echo off setlocal enabledelayedexpansion set "kong= " rem set h= o set h=#####o for /l %%a in (1,1,10) do ( ping -n>nul &ping -n>nul rem set h=!h: = ! set h=!h:####=#####! echo !h! ) for /l %%a in (1,1,9) do ( ping -n>nul &ping -n>nul set h=!h:#####=####! echo !h! ) pause 为什么换空格换成后，得出了结果不正常了，谁再能帮解释下。 @echo off setlocal enabledelayedexpansion set "kong= " rem set h= o set h=**o for /l %%a in (1,1,10) do ( ping -n>nul &ping -n>nul rem set h=!h: = ! set h=!h:=*! echo !h! ) for /l %%a in (1,1,9) do ( ping -n>nul &ping -n>nul set h=!h:*=**! echo !h! ) pause

第18楼　logottfb	发表于 2009-03-16 07:01
新手上路　发帖 4　积分 8
本人技术不高随便改个群星乱闪给大家 @echo off setlocal enabledelayedexpansion mode con cols=102 lines=25 :loop for /l %%a in (1,1,100) do (set k= !k!) for /l %%a in (-10,1,10) do (set h%%a=%k%) set la=-11 :la set /a la+=1,lb=la*la,tlb=100-lb set h%la%=!h%la%:~%tlb%!. ping -n 1 127.1>nul cls for /l %%a in (-10,1,10) do echo,!h%%a! if %la% lss 10 goto :la goto loop

第19楼　netbenton	发表于 2009-03-16 20:40
银牌会员　发帖 752　积分 1,916　来自广西
学18楼的，楼主原来的，球靠近后出现拖尾，并且到行尾后有时越界，改善一下。 @echo off &setlocal enabledelayedexpansion title made by hi.baidu.com/523066680 color 17 &mode con cols=60 lines=30 for /l %%a in (1,1,60) do (set space= !space!) set /a La=14,Lb=30,Ca=29,Cb=57,r=5 :loop if %La% lss 29 (set /a La+=2,line=La) else (set /a Lb-=2,line=Lb) if %Lb% leq -1 (set /a La=-1,Lb=30,r=%random%%%3+2) set/a nnn=ca+r if %nnn% lss 59 (set /a Ca+=r,col=Ca) else (set /a Cb-=r,col=Cb) if %Cb% leq 4 (set /a Ca=-1,Cb=59,r=%random%%%3+1) if %line% lss 15 ( for /l %%a in (1,1,29) do echo, for /l %%a in (1,1,%line%) do echo, echo,!space:~0,%col%!● ) for /l %%a in (1,1,%line%) do echo, echo,!space:~0,%col%!● ping -n 1 127.1>nul goto :loop

第20楼　523066680	发表于 2009-03-17 01:44
银牌会员　发帖 1,133　积分 2,362
嘿嘿 ~ 模仿随风的弹球的时候繁衍出来的错误效果，netbenton改的不错撒。另外17楼 set h=!h:####=#####! 如果只有4个则是加一个但是当有8个的时候，这句话会把它分开，每4个加一个也就是加两个了所以。。。。

第21楼　523066680	发表于 2009-05-01 21:40
银牌会员　发帖 1,133　积分 2,362
旋进的曲线哦 @echo off setlocal enabledelayedexpansion set /a a=7,b=-6 for /l %%a in (1,1,80) do (set space= !space!) :loop if %a% gtr -6 (set /a a-=1,k=aa) else (set /a b+=1,k=72-bb) if %b% equ 6 (set /a a=6,b=-6) echo, !space:~0,%k%!* for %%a in (a b) do ping -n 1 127.1>nul goto :loop

第22楼　hjh700913	发表于 2009-05-06 21:04
新手上路　发帖 29　积分 2
先学习。。哪天会了，再回来。。。

第23楼　hjh700913	发表于 2009-05-06 21:05
新手上路　发帖 29　积分 2
先学习。。哪天会了，再回来。。。先学习。。哪天会了，再回来。。。先学习。。哪天会了，再回来。。。先学习。。哪天会了，再回来。。。先学习。。哪天会了，再回来。。。先学习。。哪天会了，再回来。。。先学习。。哪天会了，再回来。。。先学习。。哪天会了，再回来。。。先学习。。哪天会了，再回来。。。先学习。。哪天会了，再回来。。。

第24楼　523066680	发表于 2009-05-16 05:07
银牌会员　发帖 1,133　积分 2,362
彩色蜿蜒曲线 @echo off ::code by 523066680 / if_exist setlocal enabledelayedexpansion for /l %%a in (1,1,80) do (set k= !k!) set /a a=7,b=-6,color=0 set /p= <nul>OO :a set /a color+=1 if %a% gtr -6 (set /a a-=1,x=aa) else (set /a b+=1,x=72-bb) if %b% equ 6 (set /a a=6,b=-6) for %%a in (a b) do ( set /p a=!k:~0,%x%!<nul findstr /a:%color% "OO*" echo, ) ping -n 1 127.1>nul if %color% leq 200 goto :a pause

第25楼　hongzhi14	发表于 2009-06-28 03:26
新手上路　发帖 4　积分 6
很有意思，都收藏了，呵呵

第26楼　jianny	发表于 2009-07-01 14:23
新手上路　发帖 4　积分 4
动画效果很帅！更令人有兴趣学习bat

第27楼　523066680	发表于 2010-01-26 21:47
银牌会员　发帖 1,133　积分 2,362
快过年了偷偷来一个：幽灵出没 @echo off setlocal enabledelayedexpansion title 幽灵:我在这里待很久了，你没发现吗？ rem Author: if_exist / 523066680 for /l %%a in (1,1,80) do (set spc= !spc!) set /a x=1,tmpy=-10 set /a xadd=1,yadd=1,xaddadd=1 :a cls for /l %%a in (1,1,%y%) do (echo,) echo,!spc:~0,%x%!* set /a i=0,x+=xadd,tmpy+=yadd*(%random%%%2+1),y=tmpy+10,xadd+=xaddadd,yadd+=0 if %xadd:-=% gtr 7 (set /a xaddadd=-xaddadd) if %tmpy:-=% gtr 10 (set /a yadd=-yadd) ping -n 1 127.0.0.1>nul goto :a

第28楼　523066680	发表于 2010-01-26 22:45
银牌会员　发帖 1,133　积分 2,362
飞虫 @echo off setlocal enabledelayedexpansion title 幽灵:我在批处理之家待很久了，你没发现吗？ rem Author: if_exist / 523066680 for /l %%a in (1,1,79) do (set spc= !spc!) for /l %%a in (1,1,21) do (set line%%a=%spc%) set /a x=1,tmpy=-10,xb=x+1,a=1 set /a xadd=1,yadd=1,xaddadd=1 :a if defined do (!do!) if defined do ( set line%cuty%=!line%cuty%:~0,%cutx%! !line%cuty%:~%cutxb%! ) set line%y%=!line%y%:~0,%x%!*!line%y%:~%xb%! cls for /l %%a in (1,1,21) do (echo,!line%%a!) set /a i=0,x+=xadd,tmpy+=yadd,y=tmpy+10,xadd+=xaddadd,xb=x+1 set "do=set /a cutx=%x%,cuty=%y%,cutxb=%xb%" if %a% leq 10 (set /a a+=1) else (set /a a=1) if %xadd:-=% gtr 7 (set /a xaddadd=-xaddadd) if %tmpy:-=% gtr 10 (set /a yadd=-yadd) ping -n 1 127.0.0.1>nul goto :a pause

第29楼　acaigg	发表于 2010-12-28 15:35
初级用户　发帖 92　积分 115
好玩呀

第30楼　gudou	发表于 2011-01-04 12:11
初级用户　发帖 29　积分 43
强悍的帖子，强悍的技术，强悍的LZ……PFPF

上一页　 1 2 3 　下一页

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023