输出时不要清缓冲区
Private Sub Command1_Click() '发送指令Dim pu() As Byte
Dim strdata As String
ReDim pu(5)
pu(0) = "&H00"
pu(1) = "&H03"
pu(2) = "&H00" '2、3为温度计地址
pu(3) = "&H00" '2、3为温度计地址
pu(4) = "&H00" '4、5为读取寄存器长度
pu(5) = "&H01" '4、5为读取寄存器长度
MSComm1.Output = pu
MSComm1.Output = CRC16(pu)
'MSComm1.OutBufferCount = 0 '清除发送缓冲区
End Sub
事件处理程序不要用 Msgbox，也没必要每种事件都处理。
Private Sub MSComm1_OnComm() 'COM事件Dim RcvBuff() As Byte
Debug.Print "返回值：" & MSComm1.CommEvent
Select Case MSComm1.CommEvent
Case comEvReceive
DoEvents
RcvBuff = MSComm1.Input
'
'处理 RcvBuff 中的返回报文
'
Case Else
'Donothing...
End Select
End Sub
如何处理收到的报文我就不写了，你自己研究。
个人认为：佐罗剑+疯帽子燕尾服+夏日么么头巾+刀疤+疯帽子护手+疯帽子之靴。披风看情况搭配。如果你的翅膀好看就不用在买披风了。因为现在三国发型变了所以头饰可以自己调整一下。毕竟每个人的眼光不同
