动画特效：画圆、弹球、进度条、起落等 - 中国DOS联盟论坛

很想研究下能不能做成圆 ……头晕

@echo off
setlocal enabledelayedexpansion
set "kong=                            "
set h=     o
for /l %%a in (1,1,10) do (
ping -n>nul &ping -n>nul
set h=!h:    =     !
echo !h!
)
for /l %%a in (1,1,9) do (
ping -n>nul &ping -n>nul
set h=!h:     =    !
echo !h!
)
pause

─────────────────　版务记录　─────────────────
执行：HAT
操作：在帖子标题中增加搜索关键字；代码加code标签
说明：原标题"玩些小特效"不利于论坛搜索
处罚：原创内容本应予以积分奖励，现免除奖励，并惩罚性扣除2点积分
提示：建议阅读以下帖子
{1415}提问的智慧
{7326}论坛新手必读，所有人的基本行为准则
{22703}请不要做浮躁的人
{32667}那些连标题都写不清楚的人们啊，你们醒醒吧
{32825}本版严厉整顿烂帖
─────────────────　版务记录　─────────────────

[ Last edited by HAT on 2008-12-17 at 22:13 ]

呵呵，想法很好玩呀。试着写了一个。大家看看可以不。
忘记加code了现在补上


@echo off & setlocal EnableDelayedExpansion
	mode con:cols=100 lines=100
echo.
echo 利用批处理绘制圆形，BETA 1.00 版。2008年8月10日编译完成。
echo.
echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
	set "DrawPoint=○"
	set "Radius=19"
	set /a "Square=%Radius%*%Radius%"
	set /a "Diameter=%Radius%*2"
	set "Interval=  "
	set /a "y=%Diameter%"
	set /a "x=0"
	set /a "Area1=%Square%+10"
	set /a "Area2=%Square%-10"
	for /l %%i in (%Diameter%,-1,0) do Call :Draw_Point "%%i"
	goto :End
:Draw_Point _y_
	set "Line=┃"
	for /l %%i in (0,1,%Diameter%) do (
		call :Compute_Deuce_Length "%%i" "%1"
		call :Draw_Line "!CResult!"
		)
	echo %Line%┃
	goto :EOF
:Draw_Line _rst_
	set "res=%~1"
	if '%res% LSS %Area2%' (
		set "Line=%Line%%Interval%"
		goto :EOF
		)
	if '%res% GTR %Area1%' (
		set "Line=%Line%%Interval%"
		goto :EOF
		)
	set "Line=%Line%%DrawPoint%"
	goto :EOF
:Compute_Deuce_Length _x_ _y_
	set "Cx=%~1"
	set "Cy=%~2"
	if "%Cx%" LEQ "%Radius%" (
		set /a "Factor1=%Radius%-%Cx%"
		) else (
		set /a "Factor1=%Cx%-%Radius%"
		)
	if "%Cy%" LEQ "%Radius%" (
		set /a "Factor2=%Radius%-%Cy%"
		) else (
		set /a "Factor2=%Cy%-%Radius%"
		)
	set /a "Factor1=%Factor1%*%Factor1%"
	set /a "Factor2=%Factor2%*%Factor2%"
	set /a "CResult=%Factor1%+%Factor2%"
	goto :EOF
:End
echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
echo.
echo 本演示由 Flyinspace 发表于 http://www.cn-dos.net/forum ，转载请注明.
pause>nul

[ Last edited by flyinspace on 2008-8-10 at 02:15 PM ]

你太帅B啦~~！！！！加分！

这个帖子就用拉发效果好了


@echo off&setlocal enabledelayedexpansion&mode con cols=25 lines=1
title 进度条
set /a a=0
:a
set /a a+=1
for %%a in (▏ ▎ ▍ ▌ ▋ ▊ ▉) do (set /p=%%a<nul &ping -n 1 127.1>nul &ping -n 1 127.1>nul &ping -n 1 127.1>nul &set /p=   <nul)
set /p=█<nul
if %a% lss 10 (goto :a)
set /p= End<nul&pause>nul


@echo off &setlocal enabledelayedexpansion
title made by hi.baidu.com/523066680
color 17 &mode con cols=60 lines=30
for /l %%a in (1,1,60) do (set space= !space!)
set /a La=14,Lb=30,Ca=29,Cb=59,r=5
:loop
 if %La% lss 29 (set /a La+=2,line=La) else (set /a Lb-=2,line=Lb)
 if %Lb% leq -1 (set /a La=-1,Lb=30,r=%random%%%3+2)
 
 if %Ca% lss 58 (set /a Ca+=r,col=Ca) else (set /a Cb-=r,col=Cb)
 if %Cb% leq 4 (set /a Ca=-1,Cb=59,r=%random%%%3+1)
 
    for /l %%a in (1,1,%line%) do echo,
    echo,!space:~0,%col%!●
    ping -n 1 127.1>nul
goto :loop


@echo off
setlocal enabledelayedexpansion
mode con cols=60 lines=30
for /l %%a in (1,1,60) do (set space= !space!)
for /l %%a in (1,1,15) do (set ls=%space%!ls!)
set String=%ls:~31%O

:loop
set /a a=0,b=0
:a
set /a a+=1
set String=!String:%space%O=O!
echo %String%
ping -n 1 127.0>nul
ping -n 1 127.0>nul
if %a% lss 20 goto :a

:b
set /a a-=1
set String=!String:O=%space%O!
echo %String%
ping -n 1 127.0>nul
ping -n 1 127.0>nul
if %a% gtr 0 goto :b
goto :loop

楼主真有创意。

这些小特效来的，不适合发一个新帖，所以用追老帖的形式发

特效我是不会写，只能特前来欣赏一下。^_^

可以做一个批处理等效合集的电子书了

呵呵，楼主太帅啦


@echo off
setlocal enabledelayedexpansion
mode con cols=102 lines=25
for /l %%a in (1,1,100) do (set k= !k!)
for /l %%a in (-10,1,10) do (set h%%a=%k%)
set la=-11
:la
set /a la+=1,lb=la*la,tlb=100-lb
set h%la%=!h%la%:~%tlb%!.
ping -n 1 127.1>nul
cls
for /l %%a in (-10,1,10) do echo,!h%%a!
if %la% lss 10 goto :la
pause

[ Last edited by 523066680 on 2009-3-15 at 01:16 ]

汗，我现在在命令行下阅读这个贴子，正在测试下。呵呵
不知道怎么看，现在就用EDIT这个命令来回复主题。

哇也想试试 cmd 下看帖的感觉.等下去看看

---------------------------正题----------------------------
http://bbs.bathome.cn/viewthread.php?tid=3537
18楼


@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="输入高: "
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

第1楼　523066680	发表于 2008-08-10 10:58
银牌会员　发帖 1,133　积分 2,362
动画特效：画圆、弹球、进度条、起落等很想研究下能不能做成圆 ……头晕 @echo off setlocal enabledelayedexpansion set "kong= " set h= o for /l %%a in (1,1,10) do ( ping -n>nul &ping -n>nul set h=!h: = ! echo !h! ) for /l %%a in (1,1,9) do ( ping -n>nul &ping -n>nul set h=!h: = ! echo !h! ) pause ─────────────────　版务记录　───────────────── 执行：HAT 操作：在帖子标题中增加搜索关键字；代码加code标签说明：原标题"玩些小特效"不利于论坛搜索处罚：原创内容本应予以积分奖励，现免除奖励，并惩罚性扣除2点积分提示：建议阅读以下帖子 {1415}提问的智慧 {7326}论坛新手必读，所有人的基本行为准则 {22703}请不要做浮躁的人 {32667}那些连标题都写不清楚的人们啊，你们醒醒吧 {32825}本版严厉整顿烂帖 ─────────────────　版务记录　───────────────── [ Last edited by HAT on 2008-12-17 at 22:13 ]

第2楼　flyinspace	发表于 2008-08-10 13:49
银牌会员　发帖 517　积分 1,206
呵呵，想法很好玩呀。试着写了一个。大家看看可以不。忘记加code了现在补上 @echo off & setlocal EnableDelayedExpansion mode con:cols=100 lines=100 echo. echo 利用批处理绘制圆形，BETA 1.00 版。2008年8月10日编译完成。 echo. echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓ set "DrawPoint=○" set "Radius=19" set /a "Square=%Radius%%Radius%" set /a "Diameter=%Radius%2" set "Interval= " set /a "y=%Diameter%" set /a "x=0" set /a "Area1=%Square%+10" set /a "Area2=%Square%-10" for /l %%i in (%Diameter%,-1,0) do Call :Draw_Point "%%i" goto :End :Draw_Point _y_ set "Line=┃" for /l %%i in (0,1,%Diameter%) do ( call :Compute_Deuce_Length "%%i" "%1" call :Draw_Line "!CResult!" ) echo %Line%┃ goto :EOF :Draw_Line _rst_ set "res=%~1" if '%res% LSS %Area2%' ( set "Line=%Line%%Interval%" goto :EOF ) if '%res% GTR %Area1%' ( set "Line=%Line%%Interval%" goto :EOF ) set "Line=%Line%%DrawPoint%" goto :EOF :Compute_Deuce_Length _x_ _y_ set "Cx=%~1" set "Cy=%~2" if "%Cx%" LEQ "%Radius%" ( set /a "Factor1=%Radius%-%Cx%" ) else ( set /a "Factor1=%Cx%-%Radius%" ) if "%Cy%" LEQ "%Radius%" ( set /a "Factor2=%Radius%-%Cy%" ) else ( set /a "Factor2=%Cy%-%Radius%" ) set /a "Factor1=%Factor1%%Factor1%" set /a "Factor2=%Factor2%%Factor2%" set /a "CResult=%Factor1%+%Factor2%" goto :EOF :End echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛ echo. echo 本演示由 Flyinspace 发表于 http://www.cn-dos.net/forum ，转载请注明. pause>nul [ Last edited by flyinspace on 2008-8-10 at 02:15 PM ]

第3楼　flyinspace	发表于 2008-08-10 13:52
银牌会员　发帖 517　积分 1,206
最后效果如图 11111 附件 1.JPG (50.22 KiB)

第4楼　523066680	发表于 2008-08-10 16:22
银牌会员　发帖 1,133　积分 2,362
你太帅B啦~~！！！！加分！

第5楼　523066680	发表于 2008-12-13 11:30
银牌会员　发帖 1,133　积分 2,362
详细版的进度条这个帖子就用拉发效果好了 @echo off&setlocal enabledelayedexpansion&mode con cols=25 lines=1 title 进度条 set /a a=0 :a set /a a+=1 for %%a in (▏ ▎ ▍ ▌ ▋ ▊ ▉) do (set /p=%%a<nul &ping -n 1 127.1>nul &ping -n 1 127.1>nul &ping -n 1 127.1>nul &set /p= <nul) set /p=█<nul if %a% lss 10 (goto :a) set /p= End<nul&pause>nul

第6楼　523066680	发表于 2008-12-13 11:31
银牌会员　发帖 1,133　积分 2,362
做弹球意料之外的效果 @echo off &setlocal enabledelayedexpansion title made by hi.baidu.com/523066680 color 17 &mode con cols=60 lines=30 for /l %%a in (1,1,60) do (set space= !space!) set /a La=14,Lb=30,Ca=29,Cb=59,r=5 :loop if %La% lss 29 (set /a La+=2,line=La) else (set /a Lb-=2,line=Lb) if %Lb% leq -1 (set /a La=-1,Lb=30,r=%random%%%3+2) if %Ca% lss 58 (set /a Ca+=r,col=Ca) else (set /a Cb-=r,col=Cb) if %Cb% leq 4 (set /a Ca=-1,Cb=59,r=%random%%%3+1) for /l %%a in (1,1,%line%) do echo, echo,!space:~0,%col%!● ping -n 1 127.1>nul goto :loop

第7楼　523066680	发表于 2008-12-13 11:32
银牌会员　发帖 1,133　积分 2,362
起和落 @echo off setlocal enabledelayedexpansion mode con cols=60 lines=30 for /l %%a in (1,1,60) do (set space= !space!) for /l %%a in (1,1,15) do (set ls=%space%!ls!) set String=%ls:~31%O :loop set /a a=0,b=0 :a set /a a+=1 set String=!String:%space%O=O! echo %String% ping -n 1 127.0>nul ping -n 1 127.0>nul if %a% lss 20 goto :a :b set /a a-=1 set String=!String:O=%space%O! echo %String% ping -n 1 127.0>nul ping -n 1 127.0>nul if %a% gtr 0 goto :b goto :loop

第8楼　winxos	发表于 2008-12-17 22:02
新手上路　发帖 3　积分 3
太帅气了楼主真有创意。

第9楼　523066680	发表于 2008-12-18 10:41
银牌会员　发帖 1,133　积分 2,362
这些小特效来的，不适合发一个新帖，所以用追老帖的形式发

第10楼　wxcute	发表于 2008-12-18 11:58
中级用户　发帖 211　积分 458
特效我是不会写，只能特前来欣赏一下。^_^

第11楼　yishanju	发表于 2008-12-18 12:52
银牌会员　发帖 1,357　积分 1,488
可以做一个批处理等效合集的电子书了

第12楼　stldzx	发表于 2009-01-26 20:06
新手上路　发帖 3　积分 5
呵呵，楼主太帅啦

第13楼　523066680	发表于 2009-03-08 04:06
银牌会员　发帖 1,133　积分 2,362
*cols=lineslines 曲线** @echo off setlocal enabledelayedexpansion mode con cols=102 lines=25 for /l %%a in (1,1,100) do (set k= !k!) for /l %%a in (-10,1,10) do (set h%%a=%k%) set la=-11 :la set /a la+=1,lb=lala,tlb=100-lb set h%la%=!h%la%:~%tlb%!. ping -n 1 127.1>nul cls for /l %%a in (-10,1,10) do echo,!h%%a! if %la% lss 10 goto :la pause [ Last edited by 523066680 on 2009-3-15 at 01:16* ]

第14楼　rootkit	发表于 2009-03-08 04:59
初级用户　发帖 32　积分 63
cmd promt of exploring this topic 汗，我现在在命令行下阅读这个贴子，正在测试下。呵呵不知道怎么看，现在就用EDIT这个命令来回复主题。

第15楼　523066680	发表于 2009-03-15 01:15
银牌会员　发帖 1,133　积分 2,362
顺时针画框哇也想试试 cmd 下看帖的感觉.等下去看看 ---------------------------正题---------------------------- http://bbs.bathome.cn/viewthread.php?tid=3537 18楼 @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="输入高: " 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