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

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

视频预处理--经典方法卷积3D 在三维卷积操作中，卷积核不仅在空间维度上滑动，还在时间维度上滑动，从而同时捕捉时间和空间上的特征。通过合理设置步长和填充，可以灵活控制输出特征图的大小和特征提取的效果。你的理解非常准确：三维卷积核就像是一个长度为 3 的滑动窗口，每次选取 3 个连续的帧进行卷积操作，而步长和填充则进一步优化了这一过程。阅读详情

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

...全文

【机器学习入门】1.4 吃透这些基本术语，才算真正入门本文通过"挑西瓜"的生活案例，形象解释了机器学习的基本术语。样本对应单个西瓜，特征如色泽、根蒂等是观察维度，特征值是其具体表现，标签是西瓜的好坏判断。数据集是样本集合，特征向量是样本的数学表达，特征空间是所有可能的样本组合。文章强调数据集需划分为训练集、验证集和测试集，以评估模型的泛化能力。最后整理了术语对照表，并解答了常见问题。这些基础概念是理解机器学习的关键，建议读者重点掌握。阅读详情

湫龙

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

+ 关注 + 加入社区

切换为时间正序

sanxiaxys 2010-04-29

打赏
举报

timer1.interval=60000'一分钟

Private Sub Timer1_Timer()
Static k As Integer
k = k + 1
If K mod 3=0 Then'每3分钟
'你的具体代码
End If
End Sub

king06 2010-04-29

打赏
举报

......

dl20070302 2010-04-29

打赏
举报

Private Sub Timer1_Timer()
'Static k As Integer
Label4.Caption = "当前状态:" & " 休息" & Text2.Text * 60 & "秒……" & " " & k
k = k + 1
Debug.Print k
If k >= Text2.Text * 60 Then
k = 0
Timer1.Enabled = False
Text1.Text = ""
Call Star
End If
End Sub

hongss 2010-04-29

打赏
举报

好多点子！

这个要严重收藏

guyehanxinlei 2010-04-28

打赏
举报

[Quote=引用 9 楼 wallescai 的回复:]
Dim T as Long
Sub Form_load()
Timer1.interval=10000 'timer的触发单位是毫秒,一万毫秒就是10秒触发一次
End Sub

Private Sub Timer1_Timer()
T=T+1
If T=18 then '18个10秒就是180秒就是三分钟
'这里写你要纸型的代码
T=0 '重新开始计时
end if
……
[/Quote]
变通还是不错的

zjhiphop2006 2010-04-26

打赏
举报

熊孩子开学喽 2010-04-26

打赏
举报

Dim T as Long
Sub Form_load()
Timer1.interval=10000 'timer的触发单位是毫秒,一万毫秒就是10秒触发一次
End Sub

Private Sub Timer1_Timer()
T=T+1
If T=18 then '18个10秒就是180秒就是三分钟
'这里写你要纸型的代码
T=0 '重新开始计时
end if
End Sub

挺简单的吧,即使你想循环触发的时间再长也可以,只要判断T的数字再大就可以了

anlog 2010-04-26

打赏
举报

哈哈，这个只能通过内部编写一个静态变量进行循环之后定期调用事件（函数）timer控件是有时间限制的。单位为ms，不过也不能精确到ms

cylmfeng 2010-04-23

打赏
举报

回#4的
我一菜鸟看到自己会的很少的一部分，就立马回了，所以理应会比你快那么一点点。

chinaboyzyq 2010-04-23

打赏
举报



[code=VB]

Dim dtNextTime as Date



Private Sub Form_load()

    　Timer1.interval=500

　Timer1.Enabled=True

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

End Sub



Private Sub Timer1_Timer()

　if Now>=dtNextTime Then

　　Timer1.Enabled=False

　　

　　'在此加入你的代码



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

　　Timer1.Enabled=True

　End if

End Sub

a1875566250 2010-04-23

打赏
举报

上面偶说错了，那句“LS想得很美好”是说#2的~~~
#3你咋回复那么快呃。。。

a1875566250 2010-04-23

打赏
举报

咳咳，LS想的很美好。。。。

实现3分钟可以使用一个全局变量进行监视即可。。。按照全局变量的值来判断是不是三分钟。。。
当然，最理想的还是使用SetTimer，随便你设多大都可以。。。

cylmfeng 2010-04-23

打赏
举报

[Quote=引用 2 楼 myy168 的回复:]
设置interval为180000
[/Quote]
interval的值要是超过60000多的话就会提示为无效值

你可以先把timer的interval的值设置成1分钟然后弄一个变量来判断是否已经发生了3次事件如果是就执行命令然后变量初始化

myy168 2010-04-23

打赏
举报

设置interval为180000

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事件的循环的时间为三分钟?

相关推荐