在VC中怎么将一个数组中的数据通过串口发送?
一个数组中存储了一些数据,要求是每200ms左右发送数组中的5个数据,数据都是整形的,该怎么写程序啊,求教大神!
答案: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
其他:转换成一个CString对象,操作串口发送就行了啊,200ms用定时器就行 。。。
上一个:vc++6.0中文版总体是C1.EXE出错
下一个:VC中用Edit Box传递参数的问题