中国DOS联盟

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

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

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-06-18 13:04

欢迎新会员 luminwei　 RSS
共 47,998 篇主题 / 350,071 篇帖子 / 今日 0 篇 / 48,211 位会员

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

楼主 运用退格鍵制作小动画示例：发表于 2008-04-23 15:04　·　中国湖南株洲电信

bat-zw

金牌会员

★★★★

永远的学习者

积分 3,105
发帖 1,276
注册 2008-03-08 13:00
UID 112398
性别男

状态离线

@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

第 2 楼发表于 2008-04-23 15:22　·　中国陕西西安电信

plp626

银牌会员

★★★★

钻石会员

积分 2,278
发帖 1,020
注册 2007-11-19 13:34
UID 103127
性别男

状态离线

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

●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○●○●○

第 3 楼发表于 2008-04-23 15:22　·　中国陕西西安电信

plp626

银牌会员

★★★★

钻石会员

积分 2,278
发帖 1,020
注册 2007-11-19 13:34
UID 103127
性别男

状态离线

这个就是原理

this is made by cn-dos:zw19750516

●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●○●○●○●○●○●○●○●○●○●○○●○●○●○●○●○●○●○●○●○●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●●●●●●●●●●●●●●●●●●●●○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○○○○○○○○○○○○○○○○○○○○●○●○●○●○●○●○●○●○●○●○○●○●

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

进入网盘(各种工具)~~ 空间~~cmd学习

第 4 楼发表于 2008-04-23 15:23　·　中国陕西西安电信

plp626

银牌会员

★★★★

钻石会员

积分 2,278
发帖 1,020
注册 2007-11-19 13:34
UID 103127
性别男

状态离线

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

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

进入网盘(各种工具)~~ 空间~~cmd学习

第 5 楼发表于 2008-04-23 15:24　·　中国湖南株洲电信

bat-zw

金牌会员

★★★★

永远的学习者

积分 3,105
发帖 1,276
注册 2008-03-08 13:00
UID 112398
性别男

状态离线

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

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

第 6 楼发表于 2008-04-23 15:33　·　中国上海上海电信科技发展有限公司(中山南路111号)

BWSkyer

中级用户

★★

我是DOS学者

积分 367
发帖 180
注册 2006-05-14 10:53
UID 55507
性别男
来自重庆

状态离线

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

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

第 7 楼发表于 2008-04-23 15:35　·　中国湖南株洲电信

bat-zw

金牌会员

★★★★

永远的学习者

积分 3,105
发帖 1,276
注册 2008-03-08 13:00
UID 112398
性别男

状态离线

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

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

第 8 楼发表于 2008-04-23 15:38　·　中国陕西西安电信

plp626

银牌会员

★★★★

钻石会员

积分 2,278
发帖 1,020
注册 2007-11-19 13:34
UID 103127
性别男

状态离线

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

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

进入网盘(各种工具)~~ 空间~~cmd学习

第 9 楼发表于 2008-04-23 15:44　·　中国湖北武汉电信

learner0

初级用户

★

积分 108
发帖 49
注册 2008-02-26 18:54
UID 111491
性别男

状态离线

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

第 10 楼发表于 2008-04-23 15:58　·　中国湖南株洲电信

bat-zw

金牌会员

★★★★

永远的学习者

积分 3,105
发帖 1,276
注册 2008-03-08 13:00
UID 112398
性别男

状态离线

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

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

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

第 11 楼发表于 2008-04-23 16:00　·　中国湖南株洲电信

bat-zw

金牌会员

★★★★

永远的学习者

积分 3,105
发帖 1,276
注册 2008-03-08 13:00
UID 112398
性别男

状态离线

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

第 12 楼发表于 2008-04-23 16:37　·　中国江苏常州溧阳市电信

terse

银牌会员

★★★

积分 2,404
发帖 946
注册 2005-09-08 13:44
UID 42345

状态离线

@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

简单!简单!再简单!

第 13 楼发表于 2008-04-23 16:44　·　中国陕西西安电信

plp626

银牌会员

★★★★

钻石会员

积分 2,278
发帖 1,020
注册 2007-11-19 13:34
UID 103127
性别男

状态离线

这个是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学习

可打印版本 | 订阅主题 | 收藏主题

论坛跳转: