标题: [推荐]看到不错的代码---实现进度条 [打印本页]
作者: onflypuma 时间: 2007-12-9 22:08 标题: [推荐]看到不错的代码---实现进度条
@echo %dbg% off
mode con cols=113 lines=15 &color 9f
:starthome
cls
set a=^set /p=■%b%^<nul^&ping/n 0 127.1^>nul^&
echo.
echo 程序正在初始化. . .
echo.
echo ┌──────────────────────────────────────┐
set/p= <nul&%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%
echo 100%%
echo └──────────────────────────────────────┘
set b=
set a=■
set /a z=100
:start
cls
set a=%a%■■
set /a b+=5
set /a z-=5
echo.
@echo 剩余进度 %z%%%
@echo ┌──────────────────────────────────────────┐
@echo %a% %b%%%
@echo └──────────────────────────────────────────┘
if %b% geq 100 goto num2
ping /n 0 127.1 >nul
set /a sum =5
goto start
:_exit
set /a sum-=1
set/p=%sum% 秒后退出! <nul
echo.
if %sum% EQU 0 exit
ping /n 2 127.1 >nul
goto _exit
rem 冲到一半再缩，冲到一半再加
:num2
setlocal EnableDelayedexpansion
set sum=
Set z=
set a=■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
set /a z1=52
set /a z2=52
:start2
cls
set sum52=
set /a z2=52
set /a sum+=1
set /a z1-=1
set b=!a:~%sum%!
set c=!a:~-%sum%!
call :_color
echo.
echo.
echo 剩余进度:%z1%%%
echo ┌──────────────────────────────────────────────────────┐
echo %b% %z1%%%
echo └──────────────────────────────────────────────────────┘
echo 当前颜色代码: COLOR 0!numca!
echo.
echo.
echo 当前进度:%sum%%%
echo ┌──────────────────────────────────────────────────────┐
echo %c% %sum%%%
echo └──────────────────────────────────────────────────────┘
echo 当前颜色代码: COLOR 0!numca!
if %sum% geq 52 call :sum52
ping /n 0 127.1 >nul
goto start2
:sum52
cls
set sum=
set /a z1=52
set /a sum52+=1
set /a z2-=1
set c=!a:~%sum52%!
set b=!a:~-%sum52%!
call :_color
echo.
echo.
echo 当前进度:%sum52%%%
echo ┌──────────────────────────────────────────────────────┐
echo %b% %sum52%%%
echo └──────────────────────────────────────────────────────┘
echo 当前颜色代码: COLOR 0!numca!
echo.
echo.
echo 剩余进度:%z2%%%
echo ┌──────────────────────────────────────────────────────┐
echo %c% %z2%%%
echo └──────────────────────────────────────────────────────┘
echo 当前颜色代码: COLOR 0!numca!
if %sum52% geq 52 call :start2
ping /n 0 127.1 >nul
cls
goto sum52
:_color
set _color=1234567890ABCDEF
set /a _random=%random%%%16
set numca=!_color:~%_random%,1!
color 0!numca!
goto :eof
作者: zerocq 时间: 2007-12-10 12:32
不错!!!!!!!!!!!!!!!
作者: bbs4033 时间: 2008-1-6 17:49
太好 了
作者: jia332 时间: 2008-2-1 14:00
这里高人太多了，本人就不敢说话了
作者: slore 时间: 2008-2-1 14:06
代码不能同步……所以进度条也就只能看看罢了。。。
应用不起来。。。
作者: HAT 时间: 2008-2-1 14:33
在本版搜索“进度条”能找到很多方案: )
作者: jamiyang 时间: 2008-2-3 17:40
无法应用呀
作者: awera 时间: 2008-2-11 03:18
强人真多
作者: zncznc 时间: 2008-2-15 05:08
厉害啊。佩服
作者: knoppix7 时间: 2008-2-16 20:44
| Quote: | |
|
之见过在FOR里用的。其他感觉没法用..