进度条问题,想了一晚上搞不定

121044246

自己写了个软件安装工具,搞了个进度条,想让进度条按照按选中的软件数安装程度来走,例如.我选中了8个软件.安装完一个软件,进度条就走到12.5,安装完第二个软件就走到25%

$numinstall = 0 ;$numinstall选中数量
For $i = 1 To 18
        If GUICtrlRead($checkbox[$i]) = $GUI_CHECKED Then $numinstall += 1
Next
$num = 0 ;从1到$numinstall递增
For $i = 1 To 18
        If GUICtrlRead($checkbox[$i]) = $GUI_CHECKED Then
                $num += 1
                ShellExecuteWait(IniRead("config.ini", "Shell" & $i, "Command", ""))
                GUICtrlSetData($Progress1, 100 / $numinstall * $num)
                GUICtrlSetState($checkbox[$i], $GUI_UNCHECKED)
        Else
        EndIf
Next

我是菜鸟,不知道除了上面那样写,还有没有更点单的代码!

kn007

例子：相信看得到变量的意思

        ProgressOn('', '', '', -1, @DesktopHeight - 135, 1)
        For $i = 1 To $Num
            If GUICtrlRead($Listem[$i], 1) = 1 Then
                                $j+=1
                                ProgressSet($j*100/ $Numinstall, '正在安装' & $softname[$i] & '...' & @CRLF & @CRLF & $pro, '')
                                ShellExecuteWait($softpath[$i])
            EndIf
        Next
        Sleep(1000)
        ProgressOff()

$pro是一个无聊的变量，请无视之（其实就是说明）

121044246

谢谢楼上的,搞定了.设置1个变量.为1到选中软件总数

121044246

没人帮我下吗?

karlpopper

为了分顶你一下 走人

fpquenya

神奇~~~~~~~~~~

121044246

代码里面2个FOR TO  NEXT是一样 ，用起来一个是固定，另外一个是递增，不明白怎么回事。。有没有高手指点一下

水木子

问题解决了吗？我这里抽空做了一个，不知道是不是你要的？
时间比较匆忙写得比较乱，也没有检查有没有错误还望见谅，希望能帮上忙！

#include <ComboConstants.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>

$Form1 = GUICreate("进度条", 380, 200)
$Progress1 = GUICtrlCreateProgress(50, 50, 260, 30)
$Button1 = GUICtrlCreateButton("开始", 150, 150, 80, 30, $WS_GROUP)
$Button2 = GUICtrlCreateButton("退出", 240, 150, 80, 30, $WS_GROUP)
$Combo1 = GUICtrlCreateCombo("1", 210, 100, 80, 50)
GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|10|", "1")
$Label1 = GUICtrlCreateLabel("选择安装软件的数量：", 50, 100, 160, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("0%", 320, 53, 50, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case -3,$Button2
                        Exit
                Case $Button1
                        kaishi()
        EndSwitch
WEnd

Func kaishi()
        $a = GUICtrlRead($Combo1)
        $b = Int (100 / $a)
        $z = 1
        For $i = 1 To 100
                GUICtrlSetData($Progress1,$i)
                GUICtrlSetData($Label2,$i&"%")
                $c = GUICtrlRead($Progress1)
                $d = IsInt($c / $b )
                If $d = 1 Then 
                        MsgBox(0,"","已经安装"&$z&"个软件")
                        $z += 1
                EndIf        
        Next        
EndFunc

qiaoyu1393

水木子

楼上的，纯表情可能遭扣分哦！

有啥意见请多指教。

121044246

多谢水木子的帮忙，晚上回去试下。其实我发的代码是可以的，只是不明白2个FOR一样得出的结果却不同

121044246

问题解决了吗？我这里抽空做了一个，不知道是不是你要的？
时间比较匆忙写得比较乱，也没有检查有没有错误还望见谅，希望能帮上忙！#include
#include
#include
#include

$Form1 = GUICreate("进度条",  ...
水木子 发表于 2009-11-12 12:22

很不错.没什么问题了..感谢你百忙之中抽空帮忙.

水木子

呵呵！没什么，问题解决了就好。

wangwen916

没仔细看,想应该不难,不就个1/8么,我的进度条是按下载的字节数递增的...已经成功了...
累积个分.....期望成为VIP

jiushizhu

学习一下！