[特效代码] 【已解决】批处理动画问题：如何让小方块保持等距离？

myzwd

今天在学习退格符号时遇到过问题，特在此请教大家
下面的程序是一个让小方块向右运动的程序，我希望小方块在向右移动的过程中保持等距离。
希望能给我提供办法？谢谢。

@echo off
cls
set ss=
set bs=
set n=
echo.&echo.&echo.
color 1d
for /l %%i in (1 1 78) do (
call set "ss=%%ss%%0"
)
rem set "ss=%ss:0= %"
set /p=%ss%<NUL
:one
for /l %%1 in (1 1 50) do (call echo %%time%%>nul)
set /a n+=1
set "bs=%bs%"
call set /p=%%bs%%■<NUL
if %n%==15 goto:eof
goto one
echo.
复制代码

[ 本帖最后由 myzwd 于 2009-3-9 15:32 编辑 ]

batman

一、不使用退格，用cls

@echo off
for /l %%a in (1,1,50) do (
    for /l %%b in (1,1,%%a) do set /p= <nul
    set /p=■<nul
    for /l %%c in (1,1,100) do echo>nul
    if %%a equ 50 pause>nul
    cls
)
复制代码

二、使用退格

@echo off
for /l %%a in (1,1,30) do (
    set /p=■<nul
    for /l %%c in (1,1,1000) do echo>nul
    if %%a equ 30 pause>nul
    set /p=  <nul
)
复制代码

[ 本帖最后由 batman 于 2009-3-8 21:15 编辑 ]

wxcute

这个方格是全角字符，占两个字节位。
用挖土机挖两个字母就能把它盖住。

myzwd

谢谢

@echo off
setlocal enabledelayedexpansion&color 1d
for /l %%i in (40 -1 1) do (
for /l %%1 in (%%i ,-1,1) do (
set /p= <NUL
)

set /p=■<NUL
 for /l %%1 in (1 1 50) do (echo.>nul)
cls

)




echo.
::  ■
:: for /l %%1 in (1 1 50) do (echo.>nul)
复制代码

。我好好的学学。我要的是反方向运动的。不是正方向运动的。挖土机这名字太形象了。呵呵、

补充：研究了两位高手的代码，把反向运动做了出来。非常谢谢。

[ 本帖最后由 myzwd 于 2009-3-9 15:32 编辑 ]