中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-09-15 12:07
47,812 主题排行 / 349,917 发帖 / 今日 0 篇 / 48,268 会员排行
DOS批处理 & 脚本技术(批处理室) » 【视觉类】从中间逐渐扩大再变小的方形框框+变色
可打印版本  5,368 / 17
第16楼 523066680 发表于 2008-07-16 09:28
银牌会员 发帖 1,133 积分 2,361
大家看看随机的闪烁速度
::这一版本的编辑---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
第17楼 523066680 发表于 2008-07-25 21:50
银牌会员 发帖 1,133 积分 2,361
不过cpu 占用很大 ……
第18楼 luowei14 发表于 2008-10-02 16:25
初级用户 发帖 98 积分 193
恩,,有创意,,,特别是加入了willsort版主的彩色代码后,更加漂亮了,学习了
上一页  1 2
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023