中国DOS联盟论坛 - Powered by Discuz! Board

标题: 再来个彩色的小动画[己更新为调用函数] [打印本页]

作者: bat-zw 时间: 2008-4-23 19:20 标题: 再来个彩色的小动画[己更新为调用函数]

未及细做，先发了：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
在六楼已更新至调用函数（最大程度上简化化码）

@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       [made by cn-dos:zw19750516]

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 ]

作者: huahua0919 时间: 2008-4-23 19:26
命令用的好熟悉

作者: bat-zw 时间: 2008-4-23 22:36 标题: 再加一点变化：

@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       [made by cn-dos:zw19750516]

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 ]

作者: plp626 时间: 2008-4-23 22:43
建议兄把代码精简下，这样的代码很重复：
不然那个colstr函数白写了

作者: bat-zw 时间: 2008-4-23 22:46
我不要那个函数，不怎么好用，我还是自己来写个吧。

作者: plp626 时间: 2008-4-23 22:56
哎，

无奈......

作者: bat-zw 时间: 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

if "%m%"=="0" goto begin

call,color 0%%clo:~%m%,1%%

cls&echo.&echo       [made by cn-dos:zw19750516]

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 ]

作者: rootkit 时间: 2008-4-24 18:12 标题: 什么是牛人？

楼上就是！
不过，怎么还在目录下生成一个怪怪的文件--○●

作者: moniuming 时间: 2008-4-25 13:39

Quote:

Originally posted by zw19750516 at 2008-4-24 17:28:
[code]@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 ]

作者: 523066680 时间: 2008-4-25 14:03
超级酷！~

作者: tireless 时间: 2008-4-25 14:10
CPU飙100

作者: tireless 时间: 2008-4-25 15:19
这个。。。是不是会修改什么东西？在运行完这个脚本后，系统里的字体变了，变得更黑、更浑圆，有点像微软雅黑

可能也只是我的显示器或电脑坏了 :(

作者: bat-zw 时间: 2008-4-25 15:33

Quote:

Originally posted by tireless at 2008-4-25 15:19:
这个。。。是不是会修改什么东西？在运行完这个脚本后，系统里的字体变了，变得更黑、更浑圆，有点像微软雅黑

可能也只是我的显示器或电脑坏了 :(

绝对不会，你仔细看下lp函数部分，就是输出显示，你这个问题应该是你系统出了什么毛病。

[ Last edited by zw19750516 on 2008-4-25 at 03:36 PM ]

作者: tireless 时间: 2008-4-25 17:03
咦！好了。离开了会电脑，再回来就好了。。。按照这个思路推理好像就是我的眼睛的问题了 -_-#

作者: jfm034 时间: 2008-4-29 17:43
新手上路。

看着有点头晕。

看来得好好学习。。

作者: 523066680 时间: 2008-5-11 16:12
什么时候弄个彩色版的黑客帝国数码雨吧
期待……各位前辈！辛苦了！

作者: whghsot10 时间: 2008-5-11 20:05
同意11楼,CPU飙升到100 %

作者: fy2008zg 时间: 2008-8-27 17:50
太占cpu资源了 %1 一下到了%35

作者: nfhdw 时间: 2009-8-3 21:54
能解释一下这段语句吗：findstr /a:%c% .* "%a%*"