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