中国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

(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 楼』:

这个就是原理

Quote:

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

(841615149)

BWSkyer
中级用户

我是DOS学者

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

『第 6 楼』:

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

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

2008-4-23 15:33

(309843581)

bat-zw
金牌会员

永远的学习者

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

『第 7 楼』:

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

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

2008-4-23 15:35

(841615149)

plp626
银牌会员

钻石会员

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

『第 8 楼』:

我这里有个colstr函数，你能否做个彩色动画的？
http://www.cn-dos.net/forum/viewthread.php?tid=38940&fpage=1

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

进入网盘(各种工具)~~ 空间~~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 楼』:

Quote:

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

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

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

2008-4-23 15:58

(841615149)

bat-zw
金牌会员

永远的学习者

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

『第 11 楼』:

Quote:

Originally posted by plp626 at 2008-4-23 15:38:
我这里有个colstr函数，你能否做个彩色动画的？
http://www.cn-dos.net/forum/viewthread.php?tid=38940&fpage=1

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

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

2008-4-23 16:00

(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的，大家欣赏下，看谁能改成真正的彩色效果：
http://www.cn-dos.net/forum/viewthread.php?tid=38940&fpage=1

:: 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

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

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

论坛跳转: