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

湫龙 2010-04-21 06:04:00
请高手支招.急求!如何使timer事件的循环的时间为三分钟?
...全文
304 15 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
回复
[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]
这个方法不错,up
熊孩子开学喽 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

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧