按鍵精靈中并沒有計時器，自己制作可調(diào)用的多線程計時器！

本明書館 2018-09-12

展開全文

按鍵精靈中并沒有計時器，如果我們需要執(zhí)行某個操作10秒鐘，這樣將會很麻煩，因為程序要么停下來只是數(shù)過了幾秒，要么就嗖嗖嗖的跑程序不知道跑多久，我們需要它一邊計時的同時跑程序，所以需要計時器控制程序，做到某段程序僅執(zhí)行一定的時間。好了，進入正題！

Global k //全局變量k，用于在計時結束時給個信號已結束下面的循環(huán)
k=0
BeginThread time // 啟動線程time
Delay 100
i=0
While k = 0
    Delay 1000
    TracePrint "過了 " & i & " 秒！"
    TracePrint "K值為 " & k & " ！"//僅僅表示程序在跑While時候同時在跑sub time計時
    i=i+1
Wend

Sub time() //作為線程函數(shù)
    k = Lib.MyTool.Timer(5000, 10) //函數(shù)為我在命令庫里自己建的文件（MyTool）下的函數(shù)，設置為執(zhí)行5秒，結束后Tiemr返回 10 故過5秒后k=10
End Sub

/************下面函數(shù)為我在命令庫里自己建的文件（MyTool）下的函數(shù)***************/
Function Timer（time,n）//time為需要計時時間，n為計時結束后返回的值，需要n的原因在于作為標號，結束時根據(jù)標號判斷結束的是哪一段程序，方便調(diào)試及編程
T1 = Plugin.Sys.GetTime//獲取執(zhí)行前系統(tǒng)時間
t=0
While time >= t
T2 = Plugin.Sys.GetTime//執(zhí)行時刻時間監(jiān)測
t = T2 - T1
Wend
Timer = n
End Function

好了，有同學可能覺得程序中為了計時器加這個代碼亂，其實我也這么覺得，所以我后面把他們都封裝起來直接調(diào)用~
下面看！

i = 0 //僅為了顯示個東西，沒具體含義
k = 0 // 循環(huán)運行信號
Call Lib.MyTool.Timer(5000) // 函數(shù)為我在命令庫里自己建的文件（MyTool）下的函數(shù)，下面有說，調(diào)用了計時器，開始后臺計時
While k = 0
Delay 1000
i=i+1
k = Lib.MyTool.TimerF(k,10) // 函數(shù)為我在命令庫里自己建的文件（MyTool）下的函數(shù)，下面有說，調(diào)用計時器的監(jiān)視函數(shù)，實時檢查時間到了沒
TracePrint i
Wend

復制代碼

改進后的計時器這樣就用上了，是不是覺得很清爽~
主要代碼就兩句，就可以實現(xiàn)多線程計時器，一個是啟用計時，一個是獲取結束計時時候的返回值。
Call Lib.MyTool.Timer(計時時間)
Lib.MyTool.TimerF(循環(huán)體循環(huán)數(shù),自定義返回數(shù))

Global Time_k //計時器本身運行信號
Global Time_t //計時器計時的實時時間
Time_k=0 // 為0 時是時間未到，繼續(xù)計時，為 1 是到時，停止計時通知監(jiān)視函數(shù)返回數(shù)據(jù)
Sub Timer請使用subTimer //至于這個詭異的函數(shù)名，我是怕自己什么時候不小心調(diào)用錯了、、、
T1 = Plugin.Sys.GetTime//獲取執(zhí)行前系統(tǒng)時間
t=0
While Time_t >= t
T2 = Plugin.Sys.GetTime//執(zhí)行時刻時間監(jiān)測
t = T2 - T1
Wend
Time_k = 1
End Sub
Sub Timer(time)
Time_t = time
BeginThread Timer請使用subTimer
Delay 100
End Sub
Function TimerF(i,j) // i計時器一般用于循環(huán) i 為調(diào)用函數(shù)循環(huán)體的循環(huán)數(shù)， j 為自定義返回值，靈活使用
If Time_k = 0 Then
TimerF = i
Else
TimerF = j
End If
End Function