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

@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

@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

@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