VC串口通信 按16进制发送怎么不行？ 这个问题解决了吗？我也遇到到了跟你一样的问题，不知道怎么处理！

Private Sub Command1_Click()
Dim A
A = Check1.Value + Check2.Value * 2 + Check3.Value * 4 + Check4.Value * 8 + Check5.Value * 16 + Check6.Value * 32 + Check7.Value * 64 + Check8.Value * 128
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True '打开串口
End If
MSComm1.OutBufferCount = 0
MSComm1.Output = Chr(CInt(A)) '发送数据

End Sub

Private Sub Form_Load()
MSComm1.InBufferSize = 40 '初始化串口
MSComm1.InBufferCount = 0
MSComm1.InputMode = comInputModeBinary '二进制方式
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.RThreshold = 1
MSComm1.InputLen = 0 '每次读入缓冲区所有字符
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True '打开串口
End If
End Sub

Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
Text1.Text = AscB(MSComm1.Input) ’接收数据
End If
MSComm1.InBufferCount = 0
End Sub

---

当然可以了，你把代码贴上来，我给你改

---

串口通信只能用字节流吧

---