Board logo

标题: [游戏娱乐] 批处理中间渐渐变大的圆 [打印本页]

作者: 523066680    时间: 2008-11-30 09:31     标题: 批处理中间渐渐变大的圆

由于greedsnake被人回了一个不好的帖,很影响心情,现在打算每次发特效帖先做声明了
声明:
    1.本帖发表特效,视觉类的代码.
    2.对特效,视觉类代码有偏见并且说话没水平的,就请不要回影响别人心情的帖.
    3.如果想要发表偏见的,"没有任何实际意义" "不务正业" 等这类肤浅的话,请不要拿来放.
      因为上面已经声明是特效了,偏见者进来还乱说话的扣分!!
  1. @echo off &mode con cols=60 lines=32
  2. title made by hi.baidu.com/523066680
  3. call :setup oo.vbs
  4.    ::开始调用vbs,事实上(3,1,13)原为3,2,13,不过我发现1也不错.
  5.    for /l %%a in (3,1,13) do (cls &cscript oo.vbs //i %%a |more +2)
  6.    pause
  7.    exit
  8. ::说明,以下生成代码为"打包批处理.bat"打包oo.vbs的生成码.(本人是在宣传作品啊~)
  9. :setup
  10. set "act="
  11. for /f "delims= eol=" %%a in (%~nx0) do (
  12.   if "%%a"=="::%* end" (goto :eof)
  13.   if defined act echo,%%a>>"%*"
  14.   if "%%a"=="::%*" errcommand>"%*" 2>nul&set act=act
  15. )
  16. ::oo.vbs
  17. set i=wscript.arguments
  18. wscript.echo Dotx2(i(0))
  19. wscript.sleep 800
  20. function Dotx2(n)
  21.    for y = n to -n step -1
  22.        x=sqr((n^2-y^2))*2
  23.        if x>0 then x=x-1
  24.        Dotx=space(x) & "*" &space(27-x)
  25.        Dotx2=Dotx2 &StrReverse(Dotx) &Dotx & vbcrlf
  26.    next
  27.    Dotx2=space((14-n)*60) & Dotx2
  28. end function
  29. ::oo.vbs end
复制代码
为了方便理解,这里贴上最初画圆的vbs代码
  1. for y = 5 to -5 step -1
  2. x=sqr((25-y^2))*2         '设定公式为 x^2+y^2=25 即半径为5
  3. if x>0 then x=x-1
  4. Dotx=space(x) & "*" &space(10-x)
  5. Dotx2=Dotx2 &StrReverse(Dotx) &Dotx & vbcrlf
  6. next
  7. msgbox Dotx2
复制代码
主要是先以x正轴描点,然后往后边补空格,再倒过来接在前面,就变圆了.
作者: wxcute    时间: 2008-11-30 11:15

一开始画不出来,可能是我机子有毛病了。

现在终于是画出来了,谢谢分享。
作者: tslnyys    时间: 2009-6-3 13:52

我还以为是彩色的呢。。。。。。。。。。。。。。
作者: 523066680    时间: 2009-6-3 15:40

彩色的可以啊,不过现在没心思搞这些了
作者: zljzsmzzx    时间: 2009-6-12 21:50

可以看不懂VBS啊。。。
作者: keen    时间: 2009-6-13 20:25     标题: 回复 5楼 的帖子

看不懂VBS,请到本论坛VBS咨询&谈论版块,咨询讨论!
作者: aaataooo    时间: 2009-6-17 23:16

提示:D:\oo.vbs(2, 11) Microsoft VBScript 编译器错误: 缺少 '='
作者: bugtest    时间: 2009-9-26 15:42

如果 重叠命令 设置时间间隔 是可以出现“烟花效果的吧” 呵呵




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2