帮我实现这个功能，计时功能

riverboat2

当我按下“开始”按钮时，
循环执行一个自定义函数，而就在按下“开始”按钮的同时，开始计时，当按下“停止”按钮时，自定义函数停止，
时间计时也停止，而显示运行了多久！

循环的函数不是跟时间一样，一秒循环一次的，循环时间可能10秒一次循环

liufenglg

开始 执行 timerinit
停止 执行 timerdiff

menfan1

计时功能楼上正解。。。

riverboat2

回复 2# liufenglg


    我还是举个例子吧，这个例子里，时间是按我循环的时间跳的，并不是我想要的每秒计时
例子有点傻

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <Date.au3>

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\Administrator\桌面\例子.au3
$Form1 = GUICreate("例子",160,100)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$Label1 = GUICtrlCreateLabel("已经运行0次",8,10,90,25)
GUICtrlSetColor(-1,0xFF0000)
$Label2 = GUICtrlCreateLabel("运行时间：    00时00分00秒",8,50,90,50)
$Button1 = GUICtrlCreateButton("开始",100,10,50,25)
GUICtrlSetOnEvent(-1,"Button1Click")
$Button2 = GUICtrlCreateButton("停止",100,50,50,25)
GUICtrlSetOnEvent(-1,"Button2Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Local $Hour, $Mins, $Secs , $timer , $t = 0 ,$Time

While 1
        Sleep(500)
WEnd



Func Button1Click()
        
        $timer = TimerInit()
        AdlibRegister("Timer",50)
        AdlibRegister("set",50)
EndFunc

Func Button2Click()
        AdlibUnRegister("set")
EndFunc

Func set()
        $t += 1
                Sleep(5000) ;之所以这里加上延时，是因为我需要的那个程序这里需要停顿一下，具体时间由变量控制，这里举个例子，停10秒        
                GUICtrlSetColor($Label1,0xFFFF00)
                Sleep(6000)
                GUICtrlSetColor($Label1,0xFF0000)
                GUICtrlSetData($Label1, "已经运行"&$t&"次")
EndFunc

Func Timer();计时运算函数
        
        _TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs)
        Local $sTime = $Time
        $Time = StringFormat("%02i时%02i分%02i秒", $Hour, $Mins, $Secs)
        If $sTime <> $Time Then GUICtrlSetData($Label2, "运行时间：    "&$Time)
EndFunc


Func Form1Close()
        Exit
EndFunc

Func Form1Minimize()
        
EndFunc

Func Form1Maximize()
        
EndFunc

Func Form1Restore()
        
EndFunc

3mile

回复 4# riverboat2
不是已经回答你的吗？
还有问题？

riverboat2

回复 5# 3mile


    哦，不是，第一次提问，早上重复提了这个问题，所以看这个有回答就想多参考参考的
你那个回答过的问题，我已经给回复了~帮忙再看下，SORRY

riverboat2

回复 5# 3mile


下次不再重复提问了，有错必改！