标题: 【视觉类】从中间逐渐扩大再变小的方形框框+变色 [打印本页]
作者: 523066680 时间: 2008-5-25 13:08 标题: 【视觉类】从中间逐渐扩大再变小的方形框框+变色
：：这一版本的编辑---if exist Q523066680
@echo off&mode con cols=60 lines=30 &color 0a
setlocal enabledelayedexpansion
set omax=oooooooooooooooooooooooooooooooooooooooo
set kmax=%omax:o= %
set n=4
:a
set /a n+=4
set /a upkh=15-%n%/4,kleft=30-%n%/2,zk=%n%-4,zkh=%n%/2-2
set leftk=!kmax:~0,%kleft%!
set zk=oo!kmax:~0,%zk%!oo
set hang=!omax:~0,%n%!
for /l %%a in (1,1,%upkh%) do echo.
echo.%leftk%%hang%
for /l %%a in (1,1,%zkh%) do echo.%leftk%%zk%
echo.%leftk%%hang%
echo.%n%
for /l %%a in (1,1,2) do ping -n>nul
cls
if %n%==40 set /a n=4
goto a
[ Last edited by 523066680 on 2008-7-8 at 10:01 PM ]
作者: 523066680 时间: 2008-5-25 13:10 标题: 改了一下--从小到大 从大到小 只加了两行
@echo off&mode con cols=64 lines=32 &color 0a
setlocal enabledelayedexpansion
set omax=oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
set kmax=%omax:o= %
set /a a=0,b=64
:a
if %a% leq 56 (set /a a+=4,n=%a%) else (set /a b-=4,n=%b%)
if %b% equ 0 (set /a a=4,b=60)
set /a upkh=16-%n%/4,kleft=32-%n%/2,zk=%n%-4,zkh=%n%/2-2
set leftk=!kmax:~0,%kleft%!
set zk=oo!kmax:~0,%zk%!oo
set hang=!omax:~0,%n%!
for /l %%a in (1,1,%upkh%) do echo.
echo.%leftk%%hang%
for /l %%a in (1,1,%zkh%) do echo.%leftk%%zk%
echo.%leftk%%hang%
echo.%n%
ping -n>nul
cls
goto a
[ Last edited by 523066680 on 2008-6-3 at 05:08 PM ]
作者: ThinKing 时间: 2008-5-26 01:19
不错，加分鼓励一下～～
作者: joytuyong1 时间: 2008-5-26 07:07
请问里面的
upkh=15-%n%/4,kleft=30-%n%/2,zk=%n%-4,zkh=%n%/2-2
这些数字的比例是怎么算的
可不可以画个圆形
作者: clian76 时间: 2008-5-26 23:12
厉害
作者: WANKOILZ 时间: 2008-5-28 14:14
好看，效果不错，特别是2楼的。
作者: radem 时间: 2008-5-28 23:03
为什么我看不见效果
作者: HAT 时间: 2008-5-28 23:15
| Quote: | |
|
你的系统版本？
你保存的批处理名称？
有没有报错信息？
[ Last edited by HAT on 2008-5-29 at 12:39 PM ]
作者: vkill 时间: 2008-5-29 18:17
厉害
作者: radem 时间: 2008-5-29 18:25
| Quote: | |
|
1.WIN XPSP2
2.t.bat
3.no!
YYYYY???
作者: c442409110 时间: 2008-5-30 02:04
强人
作者: feixingzt 时间: 2008-6-1 23:32 标题: 顶
顶
作者: 523066680 时间: 2008-6-3 17:16 标题: 我的帖终于有人看了！！高兴！
我2楼的代码重点是在 红色部分 我想让框框放大又变小，又不想让代码增加太多
那两个if 是我想了很久的成果呢！
个人认为如果要做一个圆形放大 应该先尝试做一个显示 二次函数图像的批处理
我会努力的，不过放暑假后才有的上网了 大家也可以多多尝试啊
以上批处理的要点是---确定中心坐标（横32，竖16），
计算上面空行的行数
计算左边空格数
00中间空格数00 以及这种行的个数
作者: 523066680 时间: 2008-6-22 12:34 标题: 看我把它改成彩色版的！（论坛终于开放了！~）
::这一版本的编辑---if exist Q523066680
@echo off&mode con cols=68 lines=34
setlocal enabledelayedexpansion
set omax=oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
set kmax=%omax:o= %
set /a a=0,b=60
set /a num1=0,num=0
for %%C in (1 2 3 4 5 6) do (
set /a num1+=1
set color!num1!=%%C
)
:a
if %num% leq 5 (set /a num+=1) else set num=0
color !color%num%!
if %a% leq 56 (set /a a+=4,n=%a%) else (set /a b-=4,n=%b%)
if %b% equ 0 (set /a a=4,b=60)
set /a upkh=17-%n%/4,kleft=32-%n%/2,zk=%n%-4,zkh=%n%/2-2
set leftk=!kmax:~0,%kleft%!
set zk=oo!kmax:~0,%zk%!oo
set hang=!omax:~0,%n%!
for /l %%a in (1,1,%upkh%) do echo.
echo.%leftk%%hang%
for /l %%a in (1,1,%zkh%) do echo.%leftk%%zk%
echo.%leftk%%hang%
echo.%n%
for /l %%g in (1,1,8000) do rem
cls
goto a
[ Last edited by 523066680 on 2008-7-14 at 07:45 AM ]
作者: driver1998 时间: 2008-6-25 13:31
用P做这些东西就是CPU占用特高，楼上的那个一开CPU占用就到%60！
作者: 523066680 时间: 2008-7-16 09:28 标题: 大家看看随机的闪烁速度
::这一版本的编辑---if exist Q523066680
@echo off&mode con cols=68 lines=34
setlocal enabledelayedexpansion
set omax=oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
set kmax=%omax:o= %
set /a a=0,b=60
set /a num1=0,num=0
for %%C in (1 2 3 4 5 6) do (
set /a num1+=1
set color!num1!=%%C
)
:a
if %num% leq 5 (set /a num+=1) else set num=0
color !color%num%!
if %a% leq 56 (set /a a+=4,n=%a%) else (set /a b-=4,n=%b%)
if %b% equ 0 (set /a a=4,b=60)
set /a upkh=17-%n%/4,kleft=32-%n%/2,zk=%n%-4,zkh=%n%/2-2
set leftk=!kmax:~0,%kleft%!
set zk=oo!kmax:~0,%zk%!oo
set hang=!omax:~0,%n%!
for /l %%a in (1,1,%upkh%) do echo.
echo.%leftk%%hang%
for /l %%a in (1,1,%zkh%) do echo.%leftk%%zk%
echo.%leftk%%hang%
echo.%n%
for /l %%g in (1,1,%time:~9,1%000) do rem
cls
goto a
作者: 523066680 时间: 2008-7-25 21:50
不过cpu 占用很大 ……
作者: luowei14 时间: 2008-10-2 16:25
恩,,有创意,,,特别是加入了willsort版主的彩色代码后,更加漂亮了,学习了