vb中10分钟发送一次数据,10分钟时间应该怎样计算?

发布网友发布时间：2023-09-07 17:45

共5个回答

热心网友时间：2023-09-19 10:50

使用计时器timer，把他的timer属性设置为
1000×60×10，也就是600000，这就是10分钟的时间间隔，然后在TIMER事件中编程就可以了。

热心网友时间：2023-09-19 10:51

Dim fen As Long '分钟变量

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 60000 '一分钟
End Sub

Private Sub Timer1_Timer()
fen = fen + 1 '每一分钟分钟数+1
If fen = 10 Then Print fen & "分钟了" '十分钟显示一次
fen = 0 '清零分钟数
End Sub

热心网友时间：2023-09-19 10:51

不好意思，忘了600000超出范围了，那可以将interval属性设置为60000啊，每分钟触发一次，然后用a=a+1来记录分钟数，当a mod 10 = 0 且a < > 0时发送一次数据。这样比较简单，用if函数实现判断a是否满足条件。

热心网友时间：2023-09-19 10:52

Private Sub Timer1_Timer()
static tm as integer
tm =tm +1
if tm =600 then
...... '为你要做的事
tm =0
end if
把TIMER1的Interval 设为1000,表示一秒触发一次
记住要定义静态变量(static) 是主要的

热心网友时间：2023-09-19 10:52

给你个延时函数：
Sub Delay(T As Long)
'T的单位为秒
Dim Temp As Long
Temp = Timer
Do
DoEvents
Loop Until Timer - Temp > T
End Sub

例如：延时10分钟则 delay（600）