如何使timer事件的循环的时间为三分钟?

2010-04-21 06:03:03 224 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

避坑指南：西门子S7-1200定时器那些容易踩的雷（TONR时间累计不准怎么办？）本文深入剖析西门子S7-1200定时器常见问题，特别是TONR时间累计不准的解决方案。通过真实案例分享，详细讲解定时器异常现象、排查步骤及修复方法，包括硬件关联问题、数据管理最佳实践等，帮助工程师有效避坑，提升PLC编程效率。阅读详情

请高手支招.急求!如何使timer事件的循环的时间为三分钟?

...全文

前端面试备战：从牛客面经到高频考点与手写题全解析前端面试准备不仅关乎知识记忆，更在于构建系统化的技术认知。从JavaScript核心原理到浏览器缓存与事件循环，深入理解底层机制是应对复杂问题的关键。手写代码能力如防抖节流、Promise实现，则体现了工程实践的真功夫。在当前竞争激烈的技术招聘环境下，掌握这些基础概念能显著提升面试表现。无论是面对框架原理追问还是性能优化场景题，系统化的知识体系与场景迁移能力都至关重要。本文基于牛客面经整理，涵盖高频考点、手写题解析与备战策略，助你从‘背题’走向‘搭体系’。阅读详情

湫龙

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

切换为时间正序

lhzxymd2010 2010-08-22

打赏
举报

多看贴是种好习惯

dl20070302 2010-04-29

打赏
举报

interval 设为1000 '时间间隔是1秒
static i as long
i=i+1
if i>180 then
i=0
end if

每一秒i+1等i>180时就是3分钟了三.

lxq19851204 2010-04-29

打赏
举报

经过。。。。。。。。。。。

嗷嗷叫的老马 2010-04-29

打赏
举报

路过........

熊孩子开学喽 2010-04-22

打赏
举报

3分钟就是180秒
dim T as long
sub form_load()
timer.interval=10000 '计时器10秒钟出发一次
end sub

Private Sub Timer1_Timer()
T=T+1
if T=18 then '触发满18次就是三分钟
'这里写你3分钟执行一次的代码
T=0 '从头来过
end if
End Sub

简单不,再长的时间也这么解决

bcrun 2010-04-22

打赏
举报

考虑到timer本身优先级不高，容易受系统繁忙而延时，如希望定时准确点的话，建议用5楼说的这种方法，将interval设短一点，而总间隔时间则用GetTickCount计算。如果还不够准确的话，则要用timeSetEvent等了：）

湫龙 2010-04-21

打赏
举报

谢谢了

chinaboyzyq 2010-04-21

打赏
举报



Dim dtNextTime as Date



Private Sub Form_load()

    Timer1.interval=500

　Timer1.Enabled=True

　dtNextTime=DateAdd("n",3,Now)'3分钟执行一次任务

End Sub



Private Sub Timer1_Timer()

　if Now>=dtNextTime Then

　　Timer1.Enabled=False

　　

　　'在此加入你的代码



　　dtNextTime=DateAdd("n",3,Now) 

　　Timer1.Enabled=True

　End if

End Sub

of123 2010-04-21

打赏
举报

最长 47 天的 Timer:

'模块中代码
Dim lTimerId As Long
Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Private Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long

Private Sub TimerProc(ByVal lHwnd As Long, ByVal lMsg As Long, ByVal lTimerId As Long, ByVal lTime As Long)

Dim lResult As Long
lResult = StopTimer(lTimerId)
Call InsertYourProcessNameHere
'code to be executed after interval
End Sub

Public Sub StartTimer(lInterval As Long) 'convert interval to milliseconds prior to passing
lTimerId = SetTimer(0, 0, lInterval, AddressOf TimerProc)
End Sub

Public Function StopTimer(lTimerId As Long) As Long
'must pass the TimerId returned by SetTimer
StopTimer = KillTimer(0, lTimerId)
End Function

'调用方式
Call StartTimer(3*60*1000) '3 minutes

clear_zero 2010-04-21

打赏
举报

1。timer.interval=60000 '一分钟

2。 dim i as integer
Private Sub tmr_Timer()
if i=2 then
'-- Do your things
i=0
end if
i=i+1
End Sub

如何使timer事件的循环的时间为三分钟?

相关推荐