• 歡迎訪問奇跡の海網站,本站不上傳任何資源,所有資源均來自于網絡,歡迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下載資源為網絡上收集整理而來,并且以計算機技術研究交流為目的,版權歸原作者所有,僅供大家參考,學習,不存在任何商業目的與商業用途.
  • 本站系統鏡像均來自于官方原版,ed2k可視為P2P下載鏈接。所有操作系統默認均為試用版,如有正版密鑰可以有效激活,本站不提供任何激活和相關服務。

AutoIt3(au3)源碼-程序運行時間實時顯示

AutoIT3 奇跡の海 2年前 (2017-11-15) 719次瀏覽 已收錄 0個評論 掃描二維碼

代碼簡介

程序運行時間實時顯示本程序已運行
AutoIt3(au3)源碼-程序運行時間實時顯示

AU3源碼

#include <Date.au3>
#include <GuiStatusBar.au3>

$Form1_1 = GUICreate('運行時間實時顯示', 300, 130)
GUICtrlCreateLabel('本程序已運行:', 90, 70, 100, 15)
Dim $tl = GUICtrlCreateLabel('00天,00時,00分,00秒', 180, 70, 150, 15)
GUISetState()
Dim $timer = TimerInit(), $Day = 0
AdlibRegister('Timer', 500)

$StatusBar1 = _GUICtrlStatusBar_Create($Form1_1)
_GUICtrlStatusBar_SetText($StatusBar1, '00天,00時,00分,00秒');
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 17)
While 1

        Switch GUIGetMsg()
                Case -3
                        Exit
        EndSwitch

WEnd

Func Timer()
        Local $Secs, $Mins, $Hour, $Time, $ticks, $sTime
        $ticks = Int(TimerDiff($timer)); * 5000 ;這里*5000是為了測試,將時間提速5000倍
        If $ticks >= 86400000 Then
                $Day += 1
                $timer = TimerInit()
                $ticks = 0
        EndIf
        _TicksToTime($ticks, $Hour, $Mins, $Secs)
        $Time = StringFormat('%02s天,%02s時,%02s分,%02s秒', $Day, $Hour, $Mins, $Secs)
        If $sTime <> $Time Then 
                        GUICtrlSetData($tl, $Time)  
                        _GUICtrlStatusBar_SetText($StatusBar1, $Time)        
                EndIf        
        $sTime = $Time
EndFunc   ;==>Timer

版權聲明:本站所有文章和資源使用CC BY-NC-SA 4.0協議授權發布 , 轉載應當以相同方式注明文章來自“SeaOMC.COM->AutoIt3(au3)源碼-程序運行時間實時顯示!在下邊可以分享本文哦!
喜歡 (0)
[]
分享 (0)
奇跡の海
關于作者:
一個WordPress菜鳥!
發表我的評論
取消評論

表情 貼圖 加粗 刪除線 居中 斜體 簽到

Hi,您需要填寫昵稱和郵箱!

  • 昵稱 (必填)
  • 郵箱 (必填)
  • 網址
中国福利彩票36选7开奖结果