在VB中如何实现定时触发某段程序的问题？？？

2005-04-04 03:44:52 447 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

嵌入式工程师skill2.5能力图谱：从Demo到量产的实战跃迁嵌入式开发中的‘能力断层’普遍存在——能跑通Demo不等于能交付可靠固件。真正决定项目成败的是对底层机制的理解深度：寄存器级中断配置、启动文件手写重构、无调试器下的故障定位等，这些属于‘系统鲁棒性’范畴的核心能力，正构成从功能实现迈向量产交付的关键质变点。EDA365_skill2.5资源包并非通用教程，而是聚焦ARM Cortex-M系列（如STM32H7、GD32F407）在真实产线中高频复现的棘手问题，涵盖双Bank OTA升级、CAN FD位定时补偿、RTOS内存越界诊断等典型场景。它以问题为中心组阅读详情

我想在VB中定时的执行某段程序：即每隔一小时或每隔十分钟调用某个函数，而在VB中利用控件Timer它的时间间隔最多为65秒。请各位大哥帮忙看看，有什么方法可以实现时间间隔更长这一功能；多谢了！！

...全文

高效敏感词检测API平台对比与选型指南本文为开发者提供了高效敏感词检测API平台的选型指南。文章对比了专业API平台、头部云厂商、新兴AI服务商及开源方案，从检测能力、集成易用性、成本、稳定性及扩展性五大维度进行分析，并给出实战选型建议，帮助团队根据业务场景快速选择最合适的敏感词检测服务。阅读详情

jinhailv

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

kofchris 2005-04-04

打赏
举报

最简单的，用timeGetTime
eg:

dim time as long
do
time=timeGetTime
DoEvents
Loop While timeGetTime-time < 具体间隔时间
下面为你要实现的功能代码......

of123 2005-04-04

打赏
举报

'用 API 做长延时的 Timer, 时间间隔（毫秒）为 Long 型，可达 47 天。
'模块中代码
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(5000) '5 seconds

zyg0 2005-04-04

打赏
举报

Private Sub Form_Unload(Cancel As Integer)

KillTimer Me.hwnd, 0
' 卸载所时钟

End Sub

zyg0 2005-04-04

打赏
举报

Private Sub Form_Load()
'1秒执行一次
SetTimer Me.hwnd, 0, 1000, AddressOf TimerProc
end sub
------------------模块中
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Dim Tel As Long'记录时间
'这里写执行代码
Public Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)

If Tel = 30 Then'30秒执行一次,可以改这个数字到任何大小,long类型

Tel = 0
End If
Tel = Tel + 1

End Sub

viena 2005-04-04

打赏
举报

判断时间准确一些，但前提是用户没有修改系统时间

viena 2005-04-04

打赏
举报

Dim date1 As date

Private Sub Form_Load()
date1=now
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
dim dateTmp as date
dateTmp = now
If DateDiff("n", date1, dateTmp)=10 Then '每隔十分钟,如果小时"n"改为"h"
Call YourOtherSub
date1 = dateTmp
End If
End Sub

chendjin 2005-04-04

打赏
举报

Dim nTimeM As Long

Private Sub Form_Load()
nTimeM = 0
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
nTimeM = nTimeM + 1
If nTimeM >= 60*60 Then '每隔一小时
Call YourOtherSub
nTimeM =0
End If
End Sub

在VB中如何实现定时触发某段程序的问题？？？

相关推荐