 |
先把串口通讯控件的"InputMode" 设置为"1-comInputModebinary"'此参数为以二进制方式接收。
"NullDiscard"设置为false’此参数允许0H传输到缓冲区。
"RThreshold"设置为1'此参数为当收到任一字符时均产生"Oncomm"事件。
示例:
Private Sub MSComm1_OnComm()
Dim a As Variant, b() As Byte, i As Integer
If MSComm1.InBufferCount > 0 Then '缓冲区内有数据
a = MSComm1.Input
b = a 'b即为所收到的数据数组,数据为ASCII码的数值
For i = 0 To UBound(b) - 1
If b(i) = 0 And b(i + 1) = 0 Then
'此行可编写代码将数字转化为ASCII码
End If '判断包结束同理
Next i
End If
End Sub
相关书籍:
《串行端口大全》
《Delphi 串口通信编程》
《利用Visual Basic实现串并行通信技术》
此问题由高润明回答。
附加关键字:编程, 源程序, programming, source code, Visual Basic, VB, 网络与通信, network, communicate, com, com1, com2。
|