中国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 发表于 [url]http://www.cn-dos.net/forum[/url] ，转载请注明.
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="输入高[2-23]: "
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