进度条绘制工具

went

使用方法见帮助信息

显示进度条.

progress -t:string -p1:int -p2:int -pen:hex -penw:int -brush:hex { < -ps:int -pt:string> | <-r1:int -r2:int> } 

  -t      进度条类型           [rect|circle]
  -p1     当前进度             [10进制数]
  -p2     总进度               [10进制数]
  -pen    画笔颜色             [大写16进制数]
  -penw   画笔宽度             [10进制数]
  -brush  填充颜色             [大写16进制数]
  -ps     矩形进度条高(宽)度   [10进制数]
  -pt     矩形进度条显示方式   [hor|ver]
  -r1     圆形进度条外半径     [10进制数]
  -r2     圆形进度条内半径     [10进制数]

  progress -t:rect -p1:40 -p2:100 -pen:FF00 -penw:2 -brush:FF0000 -ps:30 -pt:hor
      进度为40%的蓝色垂直水平进度条,边框为红色

  progress -t:circle  -p1:90 -p2:360 -pen:FF0000 -penw:1 -brush:FF0000 -r1:50 -r2:35
      进度为1/4的蓝色圆环进度条,蓝色边框,外圆半径50,内圆半径35

  progress -t:circle  -p1:45 -p2:360 -pen:0 -penw:1 -brush:FF0000 -r1:50 -r2:0
      进度为1/8的蓝色饼状进度条,无边框,半径为50
复制代码

使用举例:

@echo off & cd /d "%~dp0"
REM color f0
for /l %%i in (0,3,360) do (
	REM echo %%i
	REM 水平进度条
	progress -t:rect    -p1:%%i -p2:360 -pen:FF00 	-penw:2 -brush:FF0000 -ps:10 -pt:hor
	REM 垂直进度条
	progress -t:rect    -p1:%%i -p2:360 -pen:FF00 	-penw:2 -brush:FF0000 -ps:10 -pt:ver
	REM 圆环进度条
	REM progress -t:circle  -p1:%%i -p2:360 -pen:0	   -penw:1 -brush:FF0000 -r1:50 -r2:35
	REM 饼状进度条
	progress -t:circle  -p1:%%i -p2:360 -pen:FF0000      -penw:1 -brush:FF -r1:50 -r2:0
)
pause&exit
复制代码

效率一般,仅当娱乐
exe和源代码这里下载
进度条

went

显示设置为非100%缩放率的电脑上可能出现显示不完整的情况,已修复

peterboy666

回報 Bug:

@echo off & cd /d "%~dp0"

for /l %%i in (0,3,360) do (
        Progress -t:rect    -p1:%%i -p2:360 -pen:FF00         -penw:2 -brush:FF0000 -ps:30 -pt:hor
)

cls
for /l %%i in (0,3,360) do (
        Progress -t:rect    -p1:%%i -p2:360 -pen:FF00         -penw:2 -brush:FF0000 -ps:30 -pt:ver
)

cls 无效

went

回复 3# peterboy666

什么问题http://cdnjson.com/images/2021/08/22/Video_2021-08-22_195025.gif

cmd1152

回复 3# peterboy666


    cls换成color 07

peterboy666

回复  peterboy666

什么问题
went 发表于 2021-8-22 20:20

在 Windows XP/7 测试都一样.

看 视频

https://cowtransfer.com/s/33ce9d49871640

peterboy666

回复  peterboy666


    cls换成color 07
cmd1152 发表于 2021-8-22 20:46

一样没用.

cmd1152

回复 7# peterboy666


    搞错了，是

color70&color07
复制代码

peterboy666

回复  peterboy666


    搞错了，是
cmd1152 发表于 2021-8-22 21:39

有用,
但还是修一下 BUG 比较好.

peterboy666

再反应一个 BUG

Windiws 7 : 正常
Windows XP : 不正常

看 视频
https://cowtransfer.com/s/4ff3704958df49

@echo off & cd /d "%~dp0"

color 70&color 07
for /l %%i in (0,3,360) do (
Progress -t:circle  -p1:%%i -p2:360 -pen:0           -penw:1 -brush:FF0000 -r1:50 -r2:35
)

color 70&color 07
for /l %%i in (0,3,360) do (
Progress -t:circle  -p1:%%i -p2:360 -pen:FF0000      -penw:1 -brush:FF -r1:50 -r2:0
)

went

链接更新了,只测试了win10

peterboy666

链接更新了,只测试了win10
went 发表于 2021-8-23 19:12

Windows 7 测了一下

更新版:
解决一半.
运行后也是不能 CLS 清除,但若拖动窗口就会清除重绘了,
但是拖动窗口会造成画面闪烁.

前一版:
拖动窗口不会造成画面闪烁,比较稳定,
先用 color 70&color 07 顶着用,
就不更新了.

went

回复 12# peterboy666


       你是用来做什么的

peterboy666

回复  peterboy666


       你是用来做什么的
went 发表于 2021-8-23 19:37

    只是测试.

遨游天涯

只是测试，测试测试