中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 【视觉类】从中间逐渐扩大再变小的方形框框+变色
« [1] [2] »
作者:
标题: 【视觉类】从中间逐渐扩大再变小的方形框框+变色 上一主题 | 下一主题
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『楼 主』:  【视觉类】从中间逐渐扩大再变小的方形框框+变色

::这一版本的编辑---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 ]

2008-5-25 13:08
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (523066680)  编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 2 楼』:  改了一下--从小到大 从大到小 只加了两行

@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 ]

   此帖被 +35 点积分        点击查看详情   
评分人:【 ThinKing 分数: +4  时间:2008-5-26 01:19
评分人:【 plp626 分数: +15  时间:2008-5-26 16:47
评分人:【 WANKOILZ 分数: +2  时间:2008-5-28 14:13
评分人:【 pusofalse 分数: +5  时间:2008-5-28 23:52
评分人:【 26933062 分数: +9  时间:2008-5-29 03:26


2008-5-25 13:10
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (523066680)  编辑帖子  回复  引用回复
ThinKing
中级用户





积分 471
发帖 207
注册 2007-5-3
状态 离线
『第 3 楼』:  

不错,加分鼓励一下~~

2008-5-26 01:19
查看资料  发短消息 网志   编辑帖子  回复  引用回复
joytuyong1
初级用户





积分 101
发帖 39
注册 2006-11-21
状态 离线
『第 4 楼』:  

请问里面的
upkh=15-%n%/4,kleft=30-%n%/2,zk=%n%-4,zkh=%n%/2-2
这些数字的比例是怎么算的
可不可以画个圆形

2008-5-26 07:07
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
clian76
中级用户





积分 363
发帖 162
注册 2007-4-22
状态 离线
『第 5 楼』:  

厉害

2008-5-26 23:12
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
WANKOILZ
初级用户





积分 198
发帖 89
注册 2007-9-6
来自 重庆
状态 离线
『第 6 楼』:  

好看,效果不错,特别是2楼的。

2008-5-28 14:14
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
radem
高级用户

CMD感染者


积分 691
发帖 383
注册 2008-5-23
状态 离线
『第 7 楼』:  

为什么我看不见效果

2008-5-28 23:03
查看资料  发短消息 网志   编辑帖子  回复  引用回复
HAT
版主





积分 9023
发帖 5017
注册 2007-5-31
状态 离线
『第 8 楼』:  



  Quote:
Originally posted by radem at 2008-5-28 11:03 PM:
为什么我看不见效果:(

你的系统版本?
你保存的批处理名称?
有没有报错信息?

[ Last edited by HAT on 2008-5-29 at 12:39 PM ]



2008-5-28 23:15
查看资料  发短消息 网志   编辑帖子  回复  引用回复
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 9 楼』:  

厉害

2008-5-29 18:17
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
radem
高级用户

CMD感染者


积分 691
发帖 383
注册 2008-5-23
状态 离线
『第 10 楼』:  



  Quote:
Originally posted by HAT at 2008-5-28 11:15 PM:

你的系统版本?
你保存的批处理名称?
有没有报错信息?

[ Last edited by HAT on 2008-5-29 at 12:39 PM ]

1.WIN XPSP2
2.t.bat
3.no!

YYYYY???

2008-5-29 18:25
查看资料  发短消息 网志   编辑帖子  回复  引用回复
c442409110
初级用户





积分 20
发帖 9
注册 2008-5-30
状态 离线
『第 11 楼』:  

强人

2008-5-30 02:04
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
feixingzt
新手上路





积分 10
发帖 5
注册 2008-3-16
状态 离线
『第 12 楼』:  顶



2008-6-1 23:32
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 13 楼』:  我的帖终于有人看了!!高兴!

我2楼的代码重点是在 红色部分  我想让框框放大又变小,又不想让代码增加太多

那两个if 是我想了很久的成果呢!




个人认为如果要做一个圆形放大  应该先尝试做一个显示  二次函数图像的批处理
我会努力的,不过放暑假后才有的上网了    大家也可以多多尝试啊

以上批处理的要点是---确定中心坐标(横32,竖16),
   计算上面空行的行数
   计算左边空格数
   00中间空格数00  以及这种行的个数

2008-6-3 17:16
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (523066680)  编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 14 楼』:  看我把它改成彩色版的!(论坛终于开放了!~)

::这一版本的编辑---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 ]

2008-6-22 12:34
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (523066680)  编辑帖子  回复  引用回复
driver1998
高级用户




积分 740
发帖 373
注册 2008-5-23
来自 中国,广东
状态 离线
『第 15 楼』:  

用P做这些东西就是CPU占用特高,楼上的那个一开CPU占用就到%60!

2008-6-25 13:31
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
« [1] [2] »
请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: