UC知道VB串口编程 如何利用数组和定时器按时依次发送数组中的数据？
来源：百度知道 编辑：UC知道 时间：2024/05/22 23:51:19
我是一个初学者。正在编写一个利用串口想单片机发送数据的上位机程序，利用MSCOMM控件。我想利用数组和定时器按时依次发送数组中的数据。
其中激活定时器代码为：
Private Sub legmove_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer2.Enabled = True
End Sub
定时器代码为：
Private Sub Timer2_Timer()
Dim cycle(4) As String
cycle(1) = "#4p1900"
cycle(2) = "#4p1600"
cycle(3) = "#4p1800"
cycle(4) = "#4p1400"
MSComm1.Output = "cycle(1)" & vbCr
i = i + 1
End Sub
目的是以一秒为间隔，依次向单片机发送cycle数组中的字符串，发完后再从头开始循环，再发送。
可是运行时发现定时器是工作了，单片机板指示灯一秒闪一次，但是单片机却没有正确的收到代码。
希望高手们看看我错那里了？
去了引号只能发送数组的第一段代码。
后面的就不能成功发送了。
对了，不好意思MSComm1.Output = "cycle(1)" & vbCr
这一段应该为：MSComm1.Output = cycle(i) & vbCr
还是不能成功发送。。。
其中激活定时器代码为：
Private Sub legmove_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer2.Enabled = True
End Sub
定时器代码为：
Private Sub Timer2_Timer()
Dim cycle(4) As String
cycle(1) = "#4p1900"
cycle(2) = "#4p1600"
cycle(3) = "#4p1800"
cycle(4) = "#4p1400"
MSComm1.Output = "cycle(1)" & vbCr
i = i + 1
End Sub
目的是以一秒为间隔，依次向单片机发送cycle数组中的字符串，发完后再从头开始循环，再发送。
可是运行时发现定时器是工作了，单片机板指示灯一秒闪一次，但是单片机却没有正确的收到代码。
希望高手们看看我错那里了？
去了引号只能发送数组的第一段代码。
后面的就不能成功发送了。
对了，不好意思MSComm1.Output = "cycle(1)" & vbCr
这一段应该为：MSComm1.Output = cycle(i) & vbCr
还是不能成功发送。。。
Dim cycle(1 To 4) As String
Dim i As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
MSComm1.Settings = "9600,n,8,1"
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
cycle(1) = "#4p1900"
cycle(2) = "#4p1600"
cycle(3) = "#4p1800"
cycle(4) = "#4p1400"
End Sub
Private Sub Timer1_Timer()
i = i + 1
MSComm1.Output = cycle(i)
If i >= 4 Then
i = i - 4
End If
End Sub
MSComm1.Output = "cycle(1)" & vbCr
这边的问题
MSComm1.Output =cycle（1）&vbcrlf
你加引号的话就是发送的cycle(1)字符
byte才能发送,下面只是意思，不是实际代码。
dim cycle(x) as byte
cycle(1~x) = "#4p1900"
MSComm1.Output = cycle(1)
sadsada