中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 再来个彩色的小动画[己更新为调用函数]
« [1] [2] » ›
作者:
标题: 再来个彩色的小动画[己更新为调用函数] 上一主题 | 下一主题
bat-zw
金牌会员

永远的学习者


积分 3105
发帖 1276
注册 2008-3-8
状态 离线
『楼 主』:  再来个彩色的小动画[己更新为调用函数]

未及细做，先发了：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
在六楼已更新至调用函数（最大程度上简化化码）
@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 ]

   此帖被 +12 点积分       点击查看详情   
评分人：【 huahua0919 】分数： +4  时间：2008-4-23 19:26
评分人：【 523066680 】分数： +8  时间：2008-7-30 11:54




批处理之家新域名：www.bathome.net
2008-4-23 19:20
查看资料  发送邮件  发短消息 网志  OICQ (841615149)  编辑帖子  回复  引用回复
huahua0919
银牌会员




积分 1608
发帖 780
注册 2007-10-7
状态 离线
『第 2 楼』:  

命令用的好熟悉

2008-4-23 19:26
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
bat-zw
金牌会员

永远的学习者


积分 3105
发帖 1276
注册 2008-3-8
状态 离线
『第 3 楼』:  再加一点变化：


@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 ]



批处理之家新域名：www.bathome.net
2008-4-23 22:36
查看资料  发送邮件  发短消息 网志  OICQ (841615149)  编辑帖子  回复  引用回复
plp626
银牌会员

钻石会员


积分 2278
发帖 1020
注册 2007-11-19
状态 离线
『第 4 楼』:  

建议兄把代码精简下，这样的代码很重复：
不然那个colstr函数白写了



山外有山，人外有人；低调做人，努力做事。

进入网盘(各种工具)~~ 空间~~cmd学习
2008-4-23 22:43
查看资料  发短消息 网志   编辑帖子  回复  引用回复
bat-zw
金牌会员

永远的学习者


积分 3105
发帖 1276
注册 2008-3-8
状态 离线
『第 5 楼』:  

我不要那个函数，不怎么好用，我还是自己来写个吧。



批处理之家新域名：www.bathome.net
2008-4-23 22:46
查看资料  发送邮件  发短消息 网志  OICQ (841615149)  编辑帖子  回复  引用回复
plp626
银牌会员

钻石会员


积分 2278
发帖 1020
注册 2007-11-19
状态 离线
『第 6 楼』:  

哎，无奈......



山外有山，人外有人；低调做人，努力做事。

进入网盘(各种工具)~~ 空间~~cmd学习
2008-4-23 22:56
查看资料  发短消息 网志   编辑帖子  回复  引用回复
bat-zw
金牌会员

永远的学习者


积分 3105
发帖 1276
注册 2008-3-8
状态 离线
『第 7 楼』:  更新至函数：


@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 ]



批处理之家新域名：www.bathome.net
2008-4-24 17:28
查看资料  发送邮件  发短消息 网志  OICQ (841615149)  编辑帖子  回复  引用回复
rootkit
初级用户





积分 63
发帖 32
注册 2007-12-21
状态 离线
『第 8 楼』:  什么是牛人？

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

2008-4-24 18:12
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
moniuming
银牌会员

永远的菜鸟



积分 1335
发帖 574
注册 2007-11-27
来自 广西
状态 离线
『第 9 楼』:  



  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 ]

2008-4-25 13:39
查看资料  发短消息 网志   编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 10 楼』:  

超级酷！~

2008-4-25 14:03
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (523066680)  编辑帖子  回复  引用回复
tireless
银牌会员





积分 2025
发帖 1122
注册 2007-9-5
状态 离线
『第 11 楼』:  

CPU飙100

2008-4-25 14:10
查看资料  发短消息 网志   编辑帖子  回复  引用回复
tireless
银牌会员





积分 2025
发帖 1122
注册 2007-9-5
状态 离线
『第 12 楼』:  

这个。。。是不是会修改什么东西？在运行完这个脚本后，系统里的字体变了，变得更黑、更浑圆，有点像微软雅黑

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

2008-4-25 15:19
查看资料  发短消息 网志   编辑帖子  回复  引用回复
bat-zw
金牌会员

永远的学习者


积分 3105
发帖 1276
注册 2008-3-8
状态 离线
『第 13 楼』:  



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

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

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

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



批处理之家新域名：www.bathome.net
2008-4-25 15:33
查看资料  发送邮件  发短消息 网志  OICQ (841615149)  编辑帖子  回复  引用回复
tireless
银牌会员





积分 2025
发帖 1122
注册 2007-9-5
状态 离线
『第 14 楼』:  

咦！好了。离开了会电脑，再回来就好了。。。按照这个思路推理好像就是我的眼睛的问题了 -_-#

2008-4-25 17:03
查看资料  发短消息 网志   编辑帖子  回复  引用回复
jfm034
新手上路





积分 16
发帖 8
注册 2006-12-7
状态 离线
『第 15 楼』:  

新手上路。

看着有点头晕。

看来得好好学习。。

2008-4-29 17:43
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
« [1] [2] » ›
请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023