用vb实现RS232通讯

新建VB工程,由工程菜单选部件项,在Microsoft Comm Control 6.0部件前打钩确定,VB的工具箱中就有MSCOMM控件,添加到窗体.下列代码可按2进制接收数据,处理为16进制字符串显示数据. 根据通信协议，确定VB的算法，编写收发代码。接收可按如下代码：
Option Explicit
Dim inData As String
Dim arr() As Byte

Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.RThreshold = 1
MSComm1.InputMode = comInputModeBinary '二进制接收
MSComm1.PortOpen = True
End Sub

Private Sub MsComm1_OnComm()
Dim intInputLen As Integer
Dim i As Integer
Select Case MSComm1.CommEvent
Case comEvReceive
'此处添加处理接收的代码
intInputLen = MSComm1.InBufferCount
ReDim arr(intInputLen)
arr = MSComm1.Input
For i = 0 To UBound(arr)
If Len(Hex(arr(i))) = 1 Then
inData = inData & "0" & Hex(arr(i))
Else
inData = inData & Hex(arr(i))
End If
Next
Text2 = inData
End Select
End Sub
详细可参阅:
用与实现PC机与PLC通讯的RS232电缆线的接法是什么 怎样用VB实现RS232接口通信 用VB mscom通信控件编写RS232通讯的上位机界面中怎么发送16进制数据 用vb怎样读出PLC指令实现通讯 vb实现与单片机的通讯 VB实现单片机PC串口通讯 rs232的vb编程 坐等VB实现串口通讯及聊天软件程序！！！ 我的笔记本电脑没有RS232串口,能否用一根线实现RS232串口和USB之间的联接啊? 用VB怎么做COM口通讯`