随风

批处理画方框
好久没用批处理写动画了，也来一个。。
:

@echo off
for /l %%a in (1 1 39) do call set "k= %%k%%"
set /a m=100
:start
setlocal enabledelayedexpansion
cls&echo.&echo.&echo.
set/p=!k:~0,17!<nul
for /l %%a in (1 1 20) do (
   set/p= .<nul
   set "n%%a=  !k:~2!"
   set "yi=!yi! ."
   call :yc !m!
)
echo.
for /l %%a in (1 1 15) do echo !k:~0,17!!k!.&call :yc !m!
set/p=!k:~0,17!!k!.<nul
for /l %%a in (1 1 19) do set /p= .<nul&call :yc !m!
echo.
for /l %%i in (15 -1 1) do (
  cls&echo.&echo.&echo.
  echo !k:~0,17!!yi!
  set n%%i= .!n%%i:~2!
  for /l %%a in (1 1 15) do echo !k:~0,17!!n%%a!.
  echo !k:~0,17!!yi!
  call :yc !m!
)
echo.&echo.&endlocal&cls&call :yc 800&goto start
:yc
   for /l %%a in (1 1 %~1) do ver>nul
goto :EOF
复制代码

saber

上面代码 很多都看不明呢

523066680

我突然觉得调用函数可能会使代码短一些 果然如此

@echo off &setlocal enabledelayedexpansion
for /l %%a in (1,1,79) do (set k= !k!)
for /l %%a in (1,1,23) do (set h%%a=%k%)
set /p inp="输入高[2-23]: "
set /a c=0,h=1,i2=inp*2,na=40-inp
set stra=!k:~-%na%!
for %%a in ("c + %i2%" "h + %inp%" "c - 1" "h - 1") do (call :func %%~a)
pause>nul &exit
:func
set /a %1 %2 = 1,cf=c-1
set h%h%=!h%h%:~0,%cf%!.!h%h%:~%c%!
ping -n 1 127.1>nul &cls
for /l %%a in (1,1,%inp%) do (echo,%stra%!h%%a:~0,-%na%!)
if !%1! neq %3 goto :func
复制代码

[ 本帖最后由 523066680 于 2009-3-10 17:27 编辑 ]

coolmir2

唉，都是牛人啊，谁肯做我师傅啊

Batcher

教程才是最好的师傅。
遇到具体问题就来发帖提问，很多热心人会帮你的。

骚鸡

好难哦。。。。。。。。。。。。。。。。学习中

523066680

1.上面那位同学的用户名~。。。。。。

师傅嘛~    有一句话，师傅领进门，修行在个人~， 需要一个人引导罢了。



2.Yes!  在这里再次收集到 pusofalse  wxcute  batman  more 的加分了  我没有遗憾了！！！心情舒畅啊~

[ 本帖最后由 523066680 于 2009-3-15 12:04 编辑 ]

terse

原来有这么搞代码了  先前用笨办法写的  到第二边的时候定义  后面用它

@echo off&setlocal enabledelayedexpansion&color a
set/p n=请输入边长(最大37)
set/a n1=n-2,n2=n*2-3,n3=76-n*2
if %n3% leq 0 echo 输入超出范围&pause&exit
mode con cols=80 lines=40
for /l %%i in (1 1 79) do set "f= !f!"
    for /l %%i in (1 1 %n%) do (
        set "c=* !c!"
        set/a t=%%i*2
        call echo !f:~,5!%%c:~,!t!%%
        for /l %%a in (1,1,200) do echo.>nul
        cls
    )
        set str=!f:~,5!!c:~,-1!
        if %n1% gtr 0 (
        for /l %%i in (1 1 %n1%) do (
            set/a x=n-%%i-1
            set b!x!=!f:~,5!!c:~,-1!!var!
            set var=!var!!f!*
            set str=!f:~,5!*!f:~,%n2%!*!f:~,%n3%!!str!
            set a%%i=!str!
            echo !f:~,5!!c:~,-1!!var!!f!
            for /l %%a in (1,1,200) do echo.>nul
            cls      
     ))
         for /l %%i in (1 1 %n%) do (
            cls
            set/a t=%%i*2
            call echo !f:~,5!!c:~,-1!!var!  %%f:~,-!t!%%%%c:~-!t!%%
            for /l %%a in (1,1,200) do echo.>nul
            
     )
         if %n1% gtr 0 (
         for /l %%i in (1 1 %n1%) do (
            cls
            echo !b%%i!
            echo !a%%i!
            for /l %%a in (1,1,200) do echo.>nul
     ))
pause>nul
复制代码

myzwd

我好好学习学习这段代码。看看是怎么编辑的。

523066680

大概以前想到这个的，因为曾经写过
随机游动粒子 http://www.cn-dos.net/forum/viewthread.php?tid=43059
所以对描点的效果，应该算比较熟悉了。

另外，我觉得在特效的流畅方面，可以跟随风取经。
我嘛，作品全在签名的链接里了，感兴趣的话可以看看。

[ 本帖最后由 523066680 于 2009-3-22 14:45 编辑 ]