[已解决]如何设置一个进度条或者可输入数字项用于调节延时操作?

virgo091 · 发表于 2019-1-13 10:59:55

本帖最后由 virgo091 于 2019-1-15 19:36 编辑

大神们,求赐教
重点是外部可调节延时

yuban · 发表于 2019-1-14 09:08:33

路过攒金币！

chzj589 · 发表于 2019-1-14 14:25:46

帖上你的进度条代码，我修改一下

229989799 · 发表于 2019-1-14 17:10:08

本帖最后由 229989799 于 2019-1-14 17:12 编辑


Example()

Func Example()
    ; 显示一个进度条窗口.
    ProgressOn("进度计算", "每秒增量", "0%")

    ; 更新进度条窗口的每秒进度值.
    For $i = 0 To 100 Step 10 ;例子是从0%开始到100%结束，每秒进10%
        Sleep(1000)
        ProgressSet($i, $i & "%")
    Next

    ; 设置进度条窗口 "子文本" 与 "主文本".
    ProgressSet(100, "完成", "进度状态:")
    Sleep(2000)

    ; 关闭进度窗口.
    ProgressOff()
EndFunc   ;==>Example

chzj589 · 发表于 2019-1-14 17:50:08


#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
Global $iWait, $Input1
Example()
Func Example()
        GUICreate("进度条控件 GUI", 270, 100, -1, 200)
        Local $idButton = GUICtrlCreateButton("启动", 75, 70, 70, 20)
        $Label = GUICtrlCreateLabel('选择延时', 10, 12, 50, 22)
        $Input1 = GUICtrlCreateInput("200", 65, 10, 70, 17)
        GUISetState(@SW_SHOW)
        While 1
                $nMsg = GUIGetMsg()
                Switch $nMsg
                        Case -3
                                Exit
                        Case $idButton
                                Examplea()
                EndSwitch
        WEnd
EndFunc   ;==>Example
Func Examplea()
        $iWait = GUICtrlRead($Input1)
        ; 显示一个进度条窗口.
        ProgressOn("进度计算", "每秒增量", "0%", -1, -1)
        ; 更新进度条窗口的每秒进度值.
        For $i = 0 To 100 Step 10 ;例子是从0%开始到100%结束，每秒进10%
                Sleep($iWait)
                ProgressSet($i, $i & "%")
        Next
        ; 设置进度条窗口 "子文本" 与 "主文本".
        ProgressSet(100, "完成", "进度状态:")
        Sleep($iWait)
        ; 关闭进度窗口.
        ProgressOff()
EndFunc   ;==>Examplea

hualong1009 · 发表于 2019-1-15 10:20:28

看看，学习下

virgo091 · 发表于 2019-1-15 19:26:28

229989799 发表于 2019-1-14 17:10
[au3]
Example()

谢谢指点!学习了

virgo091 · 发表于 2019-1-15 19:32:44

chzj589 发表于 2019-1-14 17:50
[au3]
#include
#include

多谢大神指导
其实在这例子中主要是对$nMsg = GUIGetMsg()的不理解
看到你的例子重新了解了一下跟 #include <GUIConstantsEx.au3> 相关,不知是否正确
如果是这样GUIConstantsEx.au3里面相关的内容在哪里能找到?

chzj589 · 发表于 2019-1-15 21:01:19

virgo091 发表于 2019-1-15 19:32
多谢大神指导
其实在这例子中主要是对$nMsg = GUIGetMsg()的不理解
看到你的例子重新了解了一下跟 #inc ...

循环模式：#include <GUIConstantsEx.au3>
$Button = GUICtrlCreateButton('关闭', 161, 9, 30, 15)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case 　$Button
EndSwitch
WEnd
事件模式：
#include <GUIConstantsEx.au3>
Opt('GUIOnEventMode', 1)

While 1
Sleep(1000)
WEnd

$Button = GUICtrlCreateButton('关闭', 161, 9, 30, 15)
GUICtrlSetOnEvent($Button, "_Button")

与#include <GUIConstantsEx.au3> 无关
打开D:\AutoIt3\Include文件夹，就能查看：GUIConstantsEx.au3

chzj589 · 发表于 2019-1-15 21:14:49

chzj589 发表于 2019-1-15 21:01
循环模式：#include
$Button = GUICtrlCreateButton('关闭', 161, 9, 30, 15)
While 1

代码事件模式：
;-----------------------------------------------------------------


#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
Opt("GUIOnEventMode", 1)
Global $iWait, $Input1
Example()
While 1
        Sleep(10)
WEnd
Func Example()
GUICreate("进度条控件 GUI", 270, 100, -1, 200)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
Local $idButton = GUICtrlCreateButton("启动", 55, 70, 70, 20)
GUICtrlSetOnEvent(-1, "Examplea")
Local $idButton1 = GUICtrlCreateButton("关闭", 155, 70, 70, 20)
GUICtrlSetOnEvent(-1, "_Off")
$Label = GUICtrlCreateLabel('选择延时', 10, 12, 50, 22)
$Input1 = GUICtrlCreateInput("100", 65, 10, 70, 17)
GUISetState(@SW_SHOW)
#cs
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case -3
                        Exit
                Case $idButton
                        Examplea()
                Case $idButton1
                        ProgressOff()
        EndSwitch
WEnd
#ce
EndFunc   ;==>Example
Func Examplea()
        $iWait = GUICtrlRead($Input1)
        ; 显示一个进度条窗口.
        ProgressOn("进度计算", "每秒增量", "0%", 870, 200, 16)
        ; 更新进度条窗口的每秒进度值.
        For $i = 0 To 105 Step 1 ;例子是从0%开始到100%结束，每秒进10%
                Sleep($iWait)
                ProgressSet($i, $i & "%")
        Next
        ; 设置进度条窗口 "子文本" 与 "主文本".
        ProgressSet(100, "完成", "进度状态:")
        Sleep($iWait)
        ; 关闭进度窗口.
        ;ProgressOff()
EndFunc   ;==>Examplea
Func _Off()
        ProgressOff()
EndFunc   ;==>Examplea
Func _Exit()
        Exit
EndFunc   ;==>QUIT

传说中的暗暗 · 发表于 2019-1-17 13:35:38

路过学习一下 1

virgo091 · 发表于 2019-2-4 10:12:34

chzj589 发表于 2019-1-15 21:14
代码事件模式：
;-----------------------------------------------------------------

学习了,谢谢指导

		自动登录	找回密码
密码			加入

[网络通信] [已解决]如何设置一个进度条或者可输入数字项用于调节延时操作?