Private Sub Timer1_Timer()
Dim get_datas(5) As Variant
Dim return_data As Integer
Dim tagpars(5) As Variant
get_datas(0) = D
get_datas(1) = "5"
get_datas(2) = "692.01"
get_datas(3) = "956"
get_datas(4) = "202.3"

tagpars(0) = "a1.PV"
tagpars(1) = "a2.PV"
tagpars(2) = "a3.PV"
tagpars(3) = "a4.PV"
tagpars(4) = "a5.PV"

return_data = Dbcom1.SetStringData(5, tagpars(0), get_datas(0))
For i = 0 To 4
tagpars(i) = get_datas(i)
Next i
End If
End Sub
在上面这个程序中,我想让get_datas得到的值每隔一秒钟得到一个值,该如何实现呢?
那位大虾帮帮我啊?

这我知道
可连接起来就有问题了
能帮我改改吗?

Dim get_datas(4) As String
Dim return_data As Integer
Dim tagpars(4) As Variant
Dim i As Integer
Private Sub Form_Load()
get_datas(0) = "d"
get_datas(1) = "5"
get_datas(2) = "692.01"
get_datas(3) = "956"
get_datas(4) = "202.3"

tagpars(0) = "a1.PV"
tagpars(1) = "a2.PV"
tagpars(2) = "a3.PV"
tagpars(3) = "a4.PV"
tagpars(4) = "a5.PV"
Timer1.Interval = 1000
i = 0
End Sub

Private Sub Timer1_Timer()

If i <= 4 Then
return_data = Dbcom1.SetStringData(5, tagpars(0), get_datas(0))

tagpars(i) = get_datas(i)

i = i + 1
Else
Timer1.Enabled = False
End If

End Sub