中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 运用退格鍵制作小动画示例：

作者:

标题: 运用退格鍵制作小动画示例：

上一主题 | 下一主题

bat-zw
金牌会员

永远的学习者

积分 3105
发帖 1276
注册 2008-3-8
状态离线

『楼主』: 运用退格鍵制作小动画示例：

@echo off&color 1f&mode con cols=45 lines=5&title 黑白小动画
set a=○&set b=●
echo.&echo    this is made by cn-dos:zw19750516
echo.
:1
set /a n+=1
if %n% equ 3 set n=0&goto 2
for /l %%i in (1,1,20) do set /p=%b%<nul&ping /n 127.1>nul
for /l %%i in (1,1,40) do set /p=<nul
for /l %%i in (1,1,20) do set /p=%a%<nul&ping /n 127.1>nul
for /l %%i in (1,1,40) do set /p=<nul
goto 1
:2
set /a n+=1
if %n% equ 3 set n=0&goto 3
for /l %%i in (1,1,10) do set /p=%b%%a%<nul&ping /n 127.1>nul
for /l %%i in (1,1,40) do set /p=<nul
for /l %%i in (1,1,20) do set /p=%a%<nul&ping /n 127.1>nul
for /l %%i in (1,1,40) do set /p=<nul
goto 2
:3
set /a n+=1
if %n% equ 3 set n=0&goto 4
for /l %%i in (1,1,10) do set /p=%b%%a%<nul&ping /n 127.1>nul
for /l %%i in (1,1,40) do set /p=<nul
for /l %%i in (1,1,10) do set /p=%a%%b%<nul&ping /n 127.1>nul
for /l %%i in (1,1,40) do set /p=<nul
goto 3
:4
for /l %%i in (1,1,10) do set /p=%b%<nul&ping /n 127.1>nul
for /l %%i in (1,1,10) do set /p=%a%<nul&ping /n 127.1>nul
for /l %%i in (1,1,40) do set /p=<nul
for /l %%i in (1,1,10) do set /p=%a%<nul&ping /n 127.1>nul
for /l %%i in (1,1,10) do set /p=%b%<nul&ping /n 127.1>nul
for /l %%i in (1,1,40) do set /p=<nul
for /l %%i in (1,1,20) do set /p=%b%<nul&ping /n 127.1>nul
for /l %%i in (1,1,20) do set /p=<nul
for /l %%i in (1,1,10) do set /p=%a%<nul&ping /n 127.1>nul
for /l %%i in (1,1,40) do set /p=<nul
for /l %%i in (1,1,20) do set /p=%a%<nul&ping /n 127.1>nul
for /l %%i in (1,1,20) do set /p=<nul
for /l %%i in (1,1,10) do set /p=%b%<nul&ping /n 127.1>nul
for /l %%i in (1,1,40) do set /p=<nul
goto 1

批处理之家新域名：www.bathome.net

2008-4-23 15:04

查看资料发送邮件发短消息网志 OICQ

(841615149)

编辑帖子回复引用回复

plp626
银牌会员

钻石会员

积分 2278
发帖 1020
注册 2007-11-19
状态离线

『第 2 楼』:

这个就是原理 [quote]this is made by cn-dos:zw19750516 ●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○●○●○

2008-4-23 15:22

查看资料发短消息网志

编辑帖子回复引用回复

plp626
银牌会员

钻石会员

积分 2278
发帖 1020
注册 2007-11-19
状态离线

『第 3 楼』:

这个就是原理

this is made by cn-dos:zw19750516 ●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○●○●

山外有山，人外有人；低调做人，努力做事。 进入网盘(各种工具)~~ 空间~~cmd学习

2008-4-23 15:22

查看资料发短消息网志

编辑帖子回复引用回复

plp626
银牌会员

钻石会员

积分 2278
发帖 1020
注册 2007-11-19
状态离线

『第 4 楼』:

系统有bug，我明明发了一个帖子呀

山外有山，人外有人；低调做人，努力做事。 进入网盘(各种工具)~~ 空间~~cmd学习

2008-4-23 15:23

查看资料发短消息网志

编辑帖子回复引用回复

bat-zw
金牌会员

永远的学习者

积分 3105
发帖 1276
注册 2008-3-8
状态离线

『第 5 楼』:

晕，是的，就是这个理，呵呵

批处理之家新域名：www.bathome.net

2008-4-23 15:24

查看资料发送邮件发短消息网志 OICQ

(841615149)

编辑帖子回复引用回复

BWSkyer
中级用户

我是DOS学者

积分 367
发帖 180
注册 2006-5-14
来自重庆
状态离线

『第 6 楼』:

嘿嘿~~不錯, 为什么做动画大都会用到ping命令呢?

My blog:左铅右椠上善若水 My team: 519创意团队

2008-4-23 15:33

查看资料发送邮件访问主页发短消息网志 OICQ

(309843581)

编辑帖子回复引用回复

bat-zw
金牌会员

永远的学习者

积分 3105
发帖 1276
注册 2008-3-8
状态离线

『第 7 楼』:

你把ping去掉看.................

批处理之家新域名：www.bathome.net

2008-4-23 15:35

查看资料发送邮件发短消息网志 OICQ

(841615149)

编辑帖子回复引用回复

plp626
银牌会员

钻石会员

积分 2278
发帖 1020
注册 2007-11-19
状态离线

『第 8 楼』:

我这里有个colstr函数，你能否做个彩色动画的？ www.cn-dos.net/forum/viewthrea ...

山外有山，人外有人；低调做人，努力做事。 进入网盘(各种工具)~~ 空间~~cmd学习

2008-4-23 15:38

查看资料发短消息网志

编辑帖子回复引用回复

learner0
初级用户

积分 108
发帖 49
注册 2008-2-26
状态离线

『第 9 楼』:

哈哈,利用空格不错的方法...

2008-4-23 15:44

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

bat-zw
金牌会员

永远的学习者

积分 3105
发帖 1276
注册 2008-3-8
状态离线

『第 10 楼』:

Originally posted by learner0 at 2008-4-23 15:44: 哈哈,利用空格不错的方法...

这里没空格，是退格如: echo a,不会显示为 a,而会显示为 a

批处理之家新域名：www.bathome.net

2008-4-23 15:58

查看资料发送邮件发短消息网志 OICQ

(841615149)

编辑帖子回复引用回复

bat-zw
金牌会员

永远的学习者

积分 3105
发帖 1276
注册 2008-3-8
状态离线

『第 11 楼』:

Originally posted by plp626 at 2008-4-23 15:38: 我这里有个colstr函数，你能否做个彩色动画的？ www.cn-dos.net/forum/viewthrea ...

先研究下这个函数，再尽力做一个出来了，汗水。。。

批处理之家新域名：www.bathome.net

2008-4-23 16:00

查看资料发送邮件发短消息网志 OICQ

(841615149)

编辑帖子回复引用回复

terse
银牌会员

积分 2404
发帖 946
注册 2005-9-8
状态离线

『第 12 楼』:

@echo off&mode con cols=45 lines=5&setlocal enabledelayedexpansion for /l %%i in (1 1 10) do set "s=○!s!" for /l %%i in (1 1 20) do set "s1=!s1!" set n=123456789abcde echo. echo **********(DOS联盟)*********** echo. :lp for /l %%i in (0,1,9) do ( set/a n1=%random%%%14 set/p=!s:~%%i,1!<nul&set/p=●<nul ping -n 1 127.1>nul color 0!n:~%n1%,1! set/p=!s1:~-2!<nul if %%i equ 9 ( set/p=!s1!<nul for /l %%i in (9,-1,1) do ( set/p=!s:~-%%i!<nul set/p=●<nul ping -n 1 127.1>nul set/p=%s1%<nul ) ) ) goto lp

简单!简单!再简单!

2008-4-23 16:37

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

plp626
银牌会员

钻石会员

积分 2278
发帖 1020
注册 2007-11-19
状态离线

『第 13 楼』:

这个是qzwqzw的，大家欣赏下，看谁能改成真正的彩色效果： www.cn-dos.net/forum/viewthrea ...

:: qzwqzw@cn-dos.net 2008-01-13 22:30
:: Re youxi01@bbs.bathome.cn 光棍节作品
:: youxi之作似乎不止游戏之作
:: 索性游戏以作以与youxi共勉
@echo off
setlocal enabledelayedexpansion
title 不放弃...
color 0d
echo.
echo.  To you
echo.
set "str1=或许是上天的安排"
set "str2=给了你一个转身的机会"
set "str3=而就在那转身的瞬间你爱上了她..."
set "str4=而就在那转身的瞬间她也爱上了你..."
set "str5=也许是上天的注定"
set "str6=也许是痛苦的开始"
set "str7=但爱了她就不要后悔..."
set "str8=END not END"
for /l %%i in (1 1 8) do call :ShowStr "!str%%i!"
pause>nul

:TimeDelay 次数
for /l %%i in (1 1 %1) do ver>nul
color 0%random:~-1%
goto :eof

:strlen OBJ
set "var=%~1"
set /a strbytes=0,strlen=0
for /l %%i in (0 1 200) do (
   set "var_=!var:~%%i,1!"
   if "!var_!"=="" goto :eof
   if !var_! gtr Z (set /a strbytes+=3) else set /a strbytes+=2
   set /a strlen+=1
)
goto :eof

:ShowStr str
set "str=%~1"
call :strlen "%~1"
set /a strbegin=(78-strbytes)/2
set /p= <nul
for /l %%i in (1 1 78) do set /p=-<nul& call :TimeDelay 50
for /l %%i in (1 1 78) do set /p=<nul
for /l %%i in (1 1 %strbegin%) do set /p=-<nul
for /l %%i in (0 1 %strlen%) do set /p= !str:~%%i,1!<nul& call :TimeDelay 500

for /l %%i in (1 1 78) do set /p=<nul
ping 127.255.255.255 -n 1 -w 1000 >nul

[ Last edited by plp626 on 2008-4-23 at 05:03 PM ]

山外有山，人外有人；低调做人，努力做事。 进入网盘(各种工具)~~ 空间~~cmd学习

2008-4-23 16:44

查看资料发短消息网志

编辑帖子回复引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

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

论坛跳转: