1,453
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
jackcaixia 2006-03-30
- 打赏
- 举报
interval属性500=1秒~~
15分钟用每分钟累加或用每秒累加得到也行~~
15分钟用每分钟累加或用每秒累加得到也行~~
KissApple 2006-03-29
- 打赏
- 举报
不要使用sleep,像死机一样
iget 2006-03-29
- 打赏
- 举报
为缩短误差
interval应该短一点 比如 200
然后可以记录上次执行的时间，进行比较。到了15分钟就在执行一次。
如果对开始执行的时间要求不精确，也可以设置只有在当前时间的分钟数 mod 15=0的时候执行。
interval应该短一点 比如 200
然后可以记录上次执行的时间，进行比较。到了15分钟就在执行一次。
如果对开始执行的时间要求不精确，也可以设置只有在当前时间的分钟数 mod 15=0的时候执行。
刘建 2006-03-29
- 打赏
- 举报
Public Declare Sub Sleep Lib "kernel32" (ByVal millisecond As Long)
SLEPP(1000*60*15)
这里是中断15分钟
SLEPP(1000*60*15)
这里是中断15分钟
AnnaBear 2006-03-29
- 打赏
- 举报
Timer控件Interval属性不能超过65535。
15分钟应该用每分钟累加得到吧^_^
15分钟应该用每分钟累加得到吧^_^
readxp 2006-03-29
- 打赏
- 举报
interval设成1000，
再给个变量，每秒自动+1
判断变量是否=15*60
再给个变量，每秒自动+1
判断变量是否=15*60
ZOU_SEAFARER 2006-03-29
- 打赏
- 举报
把定时器的interval属性设置成15*60*1000
根本不可能实现！ interval 最大就是一分多点而已
根本不可能实现！ interval 最大就是一分多点而已
rubin116 2006-03-29
- 打赏
- 举报
把定时器的interval属性设置成15*60*1000
supergreenbean 2006-03-29
- 打赏
- 举报
Private Sub Form_Load()
Timer1.Interval = 60000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static iCount As Integer
iCount = iCount + 1
If iCount = 15 Then
Debug.Print "go"
iCount = 0
End If
End Sub
Timer1.Interval = 60000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static iCount As Integer
iCount = iCount + 1
If iCount = 15 Then
Debug.Print "go"
iCount = 0
End If
End Sub
