872777825 发表于 2011-8-13 19:10:34

想写个计算时间的工具[已解决]

本帖最后由 872777825 于 2011-8-13 22:24 编辑

小弟想写个小工具

就是一运行该工具就出现计算工具运行的时间 从0秒开始算00:00这样

背景要透明

不知道哪位老师可以百忙中抽点时间指点下

谢谢

lpxx 发表于 2011-8-13 20:34:40

看看帮助里的_TicksToTime 函数

lpxx 发表于 2011-8-13 20:37:59

所以照猫画虎
#include <Date.au3>
GUICreate('', 300, 100)
GUICtrlCreateLabel('已运行：', 90, 70, 100, 15)
Dim $tl = GUICtrlCreateLabel('00:00', 140, 70, 150, 15)
GUISetState()
Dim $timer = TimerInit()
AdlibRegister('Timer', 500)
While 1
        Switch GUIGetMsg()
                Case -3
                        Exit
        EndSwitch
WEnd
Func Timer()
        Local $Secs, $Mins, $Hour, $Time, $ticks, $sTime
        $ticks = Int(TimerDiff($timer))
        _TicksToTime($ticks, $Hour, $Mins, $Secs)
        $Time = StringFormat('%02s分:%02s秒', $Mins, $Secs)
        If $sTime <> $Time Then GUICtrlSetData($tl, $Time)
        $sTime = $Time
EndFunc   ;==>Timer

872777825 发表于 2011-8-13 22:24:18

所以照猫画虎
lpxx 发表于 2011-8-13 20:37 http://www.autoitx.com/images/common/back.gif


    谢谢lpxx 老师   问题解决 了    谢谢

xlcwxl 发表于 2011-8-14 12:51:13

很不错的例子

abcd1258 发表于 2015-1-22 22:53:48

很不错的例子,收藏了.
页: [1]
查看完整版本: 想写个计算时间的工具[已解决]