UC知道请高手帮忙看一下串口发送程序~
来源：百度知道 编辑：UC知道 时间：2024/06/13 19:07:10
'向单片机发送字符串
Dim outstring As String, i As Integer
MSComm1.OutBufferCount = 0
outstring = Trim(txtMaxData.Text) + Trim(txtMinData.Text)
For i = 1 To Len(outstring)
MSComm1.Output = Val("&H" & Hex(Mid(outstring, i, 1)))
Next i
Do
DoEvents
Loop Until MSComm1.OutBufferCount = 0 '等待，直到数据发送完毕
MSComm1.OutBufferCount = 0 '清空发送缓冲区
我想向单片机反送字符串outstring,用的是二进制发送方式，
需要把字符串里的数据如“2030”怎样转换呢？我上面的程序能实现吗？
Dim outstring As String, i As Integer
MSComm1.OutBufferCount = 0
outstring = Trim(txtMaxData.Text) + Trim(txtMinData.Text)
For i = 1 To Len(outstring)
MSComm1.Output = Val("&H" & Hex(Mid(outstring, i, 1)))
Next i
Do
DoEvents
Loop Until MSComm1.OutBufferCount = 0 '等待，直到数据发送完毕
MSComm1.OutBufferCount = 0 '清空发送缓冲区
我想向单片机反送字符串outstring,用的是二进制发送方式，
需要把字符串里的数据如“2030”怎样转换呢？我上面的程序能实现吗？
Private Sub Command1_Click() '发送2进制字节数据流
Dim sj(1) As Byte
sj(0) = &H0
sj(1) = &H1E
MSComm1.Output = sj
End Sub
Private Sub Command2_Click() '发送ASCII字符串
Dim outstring As String
outstring = "2030"
MSComm1.Output = outstring
End Sub