將資料匯入到excel這一步驟是在timer控制元件下執行的。我設定的是Interval設定的是60000，按理來說在excel的資料也是1min存一次，然而實際情況是下一組資料總和上一組資料時間間隔是61s、62s，有時候會間隔更大。總是就是不固定，沒有固定周期，沒法按照我設定的時間執行，這對我資料的統計造成了極大的干擾，這個問題該如何解決呢？方法無所謂，但是我想最后在excel表上的各組資料的時間間隔就是我設定的時間，是固定的。
uj5u.com熱心網友回復：
Timer計數誤差很正常，如果想精確定時，則使用回圈或定時器(時間設小，比如100)呼叫QueryPerformanceCounter函式自己計算保存的時刻uj5u.com熱心網友回復：
@worldy
我用的是回圈，設的200ms，但是還會有相差，而且如果設定1分鐘該怎么辦呢
uj5u.com熱心網友回復：
sub timer1_timerstatic nTimeStart as long
dim nTime as long
nTime=Gettickcount-nTimeStart
if nTime>=1000*60
nTimeStart=GetTickCount
doUWork
endif
end sub
uj5u.com熱心網友回復：
sub timer1_timerstatic nTimeStart as long
dim nTime as long
if nTimeStart=0 then
nTimeStart=GetTickCount
else
nTime=Gettickcount-nTimeStart
if nTime>=1000*60
nTimeStart=GetTickCount
doUWork
endif
endif
end sub
uj5u.com熱心網友回復：
不用API，純VB就能控制。Option Explicit
Private Const TIMER_SECONDS As Long = 5 '這里模擬5秒，改為你需要的60秒'
Private m_rNextTimer As Single
Private Sub AddLog(ByVal msg As String)
Debug.Print Time() & "." & Format(Int(Timer() * 100) Mod 100, "00"), msg
End Sub
'模擬比較耗時（2秒）的執行程序'
Private Sub DoBusy()
Dim rFinish As Single
rFinish = Timer() + 2
While Timer() < rFinish
DoEvents
Wend
End Sub
Private Sub Form_Load()
Timer1.Interval = 200
Timer1.Enabled = True
m_rNextTimer = Timer() + TIMER_SECONDS
AddLog "開始"
End Sub
Private Sub Timer1_Timer()
If Timer() >= m_rNextTimer Then
m_rNextTimer = m_rNextTimer + TIMER_SECONDS
AddLog "執行"
DoBusy
End If
End Sub
14:56:21.95 開始
14:56:27.03 執行
14:56:32.07 執行
14:56:37.12 執行
14:56:41.96 執行
14:56:47.01 執行
14:56:52.06 執行
uj5u.com熱心網友回復：
適當縮短Timer控制元件的Interval設定值，因為timer時間中的代碼執行也是需要時間的。
uj5u.com熱心網友回復：
但是每臺電腦的執行時間不一樣所以誤差也不一樣，只縮短interval不可行啊
uj5u.com熱心網友回復：
時而與系統時間校準。
uj5u.com熱心網友回復：
TIMER中時間你不算啊？比如間隔10秒，執行一次。
但整個程序需要執行3秒，
那么其實第二次執行時，離上一次已經13秒了。
啊明白？
uj5u.com熱心網友回復：
我#5不是把準確定時的方法很詳細地給你了，這都看不懂嗎？轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/93891.html
標籤：控件
上一篇：改了個人查看系統 求指導