中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-07 12:15
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [推荐]看到不错的代码---实现进度条 查看 1,163 回复 9
楼 主 [推荐]看到不错的代码---实现进度条 发表于 2007-12-09 22:08 ·  新加坡
新手上路
积分 16
发帖 7
注册 2007-12-04 06:23
18年会员
UID 104601
性别 男
状态 离线
@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
2 发表于 2007-12-10 12:32 ·  中国 浙江 温州 电信
中级用户
★★
积分 458
发帖 196
注册 2006-10-05 12:04
19年会员
UID 64614
状态 离线
不错!!!!!!!!!!!!!!!
3 发表于 2008-01-06 17:49 ·  中国 天津 电信
初级用户
积分 22
发帖 10
注册 2008-01-01 17:31
18年会员
UID 107408
性别 男
状态 离线
太好 了
4 发表于 2008-02-01 14:00 ·  中国 上海 嘉定区 电信
初级用户
★★
积分 160
发帖 81
注册 2006-07-27 17:52
20年会员
UID 59377
性别 男
状态 离线
这里高人太多了,本人就不敢说话了
5 发表于 2008-02-01 14:06 ·  中国 陕西 西安 电信
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
代码不能同步……所以进度条也就只能看看罢了。。。
应用不起来。。。
6 发表于 2008-02-01 14:33 ·  中国 上海 联通
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
在本版搜索“进度条”能找到很多方案: )
7 发表于 2008-02-03 17:40 ·  中国 福建 福州 电信
初级用户
积分 26
发帖 12
注册 2007-12-31 22:57
18年会员
UID 107345
性别 男
状态 离线
无法应用呀
8 发表于 2008-02-11 03:18 ·  中国 陕西 西安 电信
初级用户
积分 94
发帖 36
注册 2005-09-19 01:08
20年会员
UID 42619
状态 离线
强人真多
9 发表于 2008-02-15 05:08 ·  中国 江西 九江 电信
新手上路
积分 16
发帖 8
注册 2008-02-15 04:19
18年会员
UID 110679
性别 男
状态 离线
厉害啊。佩服
10 发表于 2008-02-16 20:44 ·  中国 北京 海淀区 联通
银牌会员
★★★
积分 1,287
发帖 634
注册 2007-05-02 15:06
19年会员
UID 87277
性别 男
来自 cmd.exe
状态 离线
Originally posted by slore at 2008-2-1 02:06 PM:
代码不能同步……所以进度条也就只能看看罢了。。。
应用不起来。。。



之见过在FOR里用的。其他感觉没法用..
论坛跳转: