求助VB如何定时保存数据

Question

就比如温度变量,采集到温度信号传到PC机上后,如何每10分钟保存下温度数据..

Answer 1

简单的方法：用定时器控件。Dim iCount%Private Sub Command1_Click()
' 开始记录
    Timer1.Enabled = True
    iCount = 0
    Call Record     '<Call 记录数据的过程>
End SubPrivate Sub Form_Load()    Timer1.Interval = 60000
    Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()    iCount = iCount + 1
    If (iCount = 10) Then
        iCount = 0
        Call Record     '<Call 记录数据的过程>
    End IfEnd Sub

Answer 2

用Timer控件作定时程序呀
Dim NowM As Long
Private Sub Form_Load()
   NowM = 0
   Timer1.Interval = 1000  '1000毫秒=1秒
   Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
   '每秒都会运行一次这个事件的
   NowM = NowM + 1
   '判断经过了600秒就是10分钟了
   If NowM >= 600 Then
      NowM = 0
      '下面可以放你的代码
      '....
      '....
      '....
      
   End If
End Sub