SUB XXX
FOR I=1 TO 1000
CALL P2        我要執行的程式
執行 Command1_Click  作用迴圈 休息10 分鐘 讓硬碟冷一下
但是CPU 的使用率達到100
有沒有別的方法
NEXT I
END XXX

Private Sub Command1_Click()
tm3 = 600
 tm1 = Timer
 Do
  tm2 = Timer
  If tm2 < tm1 Then tm2 = tm2 + 86400
  If tm2 - tm1 > tm3 Then Exit Do
  DOINGNOTHING = DoEvents() '時間用
  Text1.Text = "時間經過" + Str(Round((tm2 - tm1), 0)) + " 秒"
  Text2.Text = Str(Round(tm3 - (tm2 - tm1), 0)) + "秒後 程式啟動"
 Loop 
End Sub

全站熱搜

vbqa 發表在 痞客邦 留言(6) 人氣()