中国DOS联盟

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

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

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

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

DOS批处理 & 脚本技术（批处理室） » 再来个彩色的小动画[己更新为调用函数]

可打印版本　4,050 / 18

第1楼　bat-zw	发表于 2008-04-23 19:20
金牌会员　发帖 1,276　积分 3,105
再来个彩色的小动画[己更新为调用函数] 未及细做，先发了：－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－在六楼已更新至调用函数（最大程度上简化化码） @echo off&color 0c&mode con cols=45 lines=5&title 小动画 set a=●&set b=○&set clo=0123456789abcdef set "f1=for /l %%i in (1,1,10) do"&set "f2=for /l %%i in (1,1,20) do" set "f3=for /l %%i in (1,1,40) do" set "f4=for /l %%i in (1,1,5) do" set "sp=set /p= <nul" :begin set /a m=%random%%%16 call,color 0%%clo:~%m%,1%% cls&echo.&call,echo echo. call :lp %f2% %sp%>%a%&findstr /a:%c% .* "%a%" 2>nul %f3% %sp% call :lp %f2% %sp%>%b%&findstr /a:%c% . "%b%" 2>nul %f3% %sp% call :lp %f1% %sp%>%a%&findstr /a:%c% . "%a%" 2>nul call :lp %f1% %sp%>%b%&findstr /a:%c% . "%b%" 2>nul %f3% %sp% call :lp %f1% %sp%>%b%&findstr /a:%c% . "%b%" 2>nul call :lp %f1% %sp%>%a%&findstr /a:%c% . "%a%" 2>nul %f3% %sp% call :lp %f2% %sp%>%b%&findstr /a:%c% . "%b%" 2>nul %f2% %sp% call :lp %f1% %sp%>%a%&findstr /a:%c% . "%a%" 2>nul %f3% %sp% call :lp %f2% %sp%>%a%&findstr /a:%c% . "%a%" 2>nul %f2% %sp% call :lp %f1% %sp%>%b%&findstr /a:%c% . "%b%" 2>nul %f3% %sp% goto begin :lp set /a n=%random%%%16 call,set c=%%clo:~%n%,1%% [ Last edited by zw19750516 on 2008-4-24 at 05:32 PM* ]

第2楼　huahua0919	发表于 2008-04-23 19:26
银牌会员　发帖 780　积分 1,608
命令用的好熟悉

第3楼　bat-zw	发表于 2008-04-23 22:36
金牌会员　发帖 1,276　积分 3,105
再加一点变化： @echo off&color 0c&mode con cols=45 lines=5&title 小动画 set a=●&set b=○&set clo=0123456789abcdef set "f1=for /l %%i in (1,1,10) do"&set "f2=for /l %%i in (1,1,20) do" set "f3=for /l %%i in (1,1,40) do" set "sp=set /p= <nul" :begin set /a m=%random%%%16 call,color 0%%clo:~%m%,1%% cls&echo.&echo echo. call :lp %f2% %sp%>%a%&findstr /a:%c% .* "%a%" 2>nul %f3% %sp% call :lp %f2% %sp%>%b%&findstr /a:%c% . "%b%" 2>nul %f3% %sp% call :lp %f1% %sp%>%a%%b%&findstr /a:%c% . "%a%%b%" 2>nul %f3% %sp% call :lp %f1% %sp%>%b%%a%&findstr /a:%c% . "%b%%a%" 2>nul %f3% %sp% call :lp %f1% %sp%>%a%&findstr /a:%c% . "%a%" 2>nul call :lp %f1% %sp%>%b%&findstr /a:%c% . "%b%" 2>nul %f3% %sp% call :lp %f1% %sp%>%b%&findstr /a:%c% . "%b%" 2>nul call :lp %f1% %sp%>%a%&findstr /a:%c% . "%a%" 2>nul %f3% %sp% call :lp %f2% %sp%>%b%&findstr /a:%c% . "%b%" 2>nul %f2% %sp% call :lp %f1% %sp%>%a%&findstr /a:%c% . "%a%" 2>nul %f3% %sp% call :lp %f2% %sp%>%a%&findstr /a:%c% . "%a%" 2>nul %f2% %sp% call :lp %f1% %sp%>%b%&findstr /a:%c% . "%b%" 2>nul %f3% %sp% goto begin :lp set /a n=%random%%%16 call,set c=%%clo:~%n%,1%% del /q %a% %b% %a%%b% %b%%a% 2>nul [ Last edited by zw19750516 on 2008-4-23 at 10:45 PM* ]

第4楼　plp626	发表于 2008-04-23 22:43
银牌会员　发帖 1,020　积分 2,278
建议兄把代码精简下，这样的代码很重复：不然那个colstr函数白写了

第5楼　bat-zw	发表于 2008-04-23 22:46
金牌会员　发帖 1,276　积分 3,105
我不要那个函数，不怎么好用，我还是自己来写个吧。

第6楼　plp626	发表于 2008-04-23 22:56
银牌会员　发帖 1,020　积分 2,278
哎，无奈......

第7楼　bat-zw	发表于 2008-04-24 17:28
金牌会员　发帖 1,276　积分 3,105
更新至函数： @echo off&color 0c&mode con cols=45 lines=5&title 小动画 set a=●&set b=○&set clo=0123456789abcdef :begin set /a m=%random%%%16 if "%m%"=="0" goto begin call,color 0%%clo:~%m%,1%% cls&echo.&echo echo. call :lp 20 %%a%% 40 call :lp 20 %%b%% 40 call :lp 20 %%a%% 40 call :lp 20 %%b%% 40 call :lp 10 %%a%%%%b%% 40 call :lp 10 %%b%%%%a%% 40 call :lp 10 %%a%%%%b%% 40 call :lp 10 %%b%%%%a%% 40 call :lp 20 %%a%% 20 call :lp 10 %%b%% 40 call :lp 20 %%b%% 20 call :lp 10 %%a%% 40 call :lp 10 %%a%% call :lp 10 %%b%% 40 call :lp 10 %%a%% call :lp 10 %%b%% 40 call :lp 10 %%b%% call :lp 10 %%a%% 40 call :lp 10 %%b%% call :lp 10 %%a%% 40 goto begin :lp set /a m=%random%%%16 if "%m%"=="0" goto lp for /l %%i in (1,1,%1) do set /p= <nul>%2&findstr /a:%m% .* "%2" 2>nul for /l %%i in (1,1,%3) do set /p= <nul del /q %a% %b% %a%%b% %b%%a% 2>nul [ Last edited by zw19750516 on 2008-4-26 at 12:18 PM* ]

第8楼　rootkit	发表于 2008-04-24 18:12
初级用户　发帖 32　积分 63
什么是牛人？楼上就是！不过，怎么还在目录下生成一个怪怪的文件--○●

第9楼　moniuming	发表于 2008-04-25 13:39
银牌会员　发帖 574　积分 1,335　来自广西
Originally posted by zw19750516 at 2008-4-24 17:28: @echo off&color 0c&mode con cols=45 lines=5&title 小动画 set a=●&set b=○&set clo=0123456789abcdef :begin set /a m=%random%%%16 call if "%m%"=="0& ... call if "%m%"=="0" goto begin [ Last edited by moniuming on 2008-4-25 at 01:44 PM ]

第10楼　523066680	发表于 2008-04-25 14:03
银牌会员　发帖 1,133　积分 2,362
超级酷！~

第11楼　tireless	发表于 2008-04-25 14:10
银牌会员　发帖 1,122　积分 2,025
CPU飙100

第12楼　tireless	发表于 2008-04-25 15:19
银牌会员　发帖 1,122　积分 2,025
这个。。。是不是会修改什么东西？在运行完这个脚本后，系统里的字体变了，变得更黑、更浑圆，有点像微软雅黑可能也只是我的显示器或电脑坏了 :(

第13楼　bat-zw	发表于 2008-04-25 15:33
金牌会员　发帖 1,276　积分 3,105
Originally posted by tireless at 2008-4-25 15:19: 这个。。。是不是会修改什么东西？在运行完这个脚本后，系统里的字体变了，变得更黑、更浑圆，有点像微软雅黑可能也只是我的显示器或电脑坏了 :( 绝对不会，你仔细看下lp函数部分，就是输出显示，你这个问题应该是你系统出了什么毛病。 [ Last edited by zw19750516 on 2008-4-25 at 03:36 PM ]

第14楼　tireless	发表于 2008-04-25 17:03
银牌会员　发帖 1,122　积分 2,025
咦！好了。离开了会电脑，再回来就好了。。。按照这个思路推理好像就是我的眼睛的问题了 -_-#

第15楼　jfm034	发表于 2008-04-29 17:43
新手上路　发帖 8　积分 16
新手上路。看着有点头晕。看来得好好学习。。

1 2 　下一页

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