中国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 ]

11111

你太帅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