plc串口通讯调试Visual Basic串口通讯调试思路方法.pdfVIP

plc串口通讯调试:Visual Basic串口通讯调试 思路方法 疯狂代码 http://CrazyC/ ĵ http:/CrazyC/VisualBasic/Article45394.html 　　现有电子秤台使用串口和计算机进行通讯编写VB来访问串口达到读取电子秤上显示数据该电子秤为 BE01型仪表输出为RS-232C标准接口波特率为300-9600、偶校验、7个数据位、2个停止位所有均发送11位 ASCII码个起始位在VB中和串口通讯需要引入Control控件MSComm串口通讯Control控件(在Microsoft Comm Control 6.0中)具体如下:Control控件简称:MSC Dim Out(12) As Byte 接收var中值 Dim var As Variant 接收MSC.input中数值 Dim nRece As Integer 计算MSC.inputbuffer个数 Dim i As Integer, j As Integer 随即变量计算循环 **************************************************************************** Private Sub Form_Load 　ClearText 　With MSC 　　.CommPort = 1 设置Com1为通信端口 　　.Settings = 9600,E,7,2 设置通信端口参数 9600赫兹、偶校验、7个数据位、1个停止位.(这里需要进步 介绍说明是:.Setting=”BBBB,P,D,S” 　　含义是:B:Baud Rate(波特率)；P:Parity(奇偶)；D:Data Bit；S:Stop Bit) 　　.InBufferSize = 40 设置缓冲区接收数据为40字节 　　.InputLen = 1 设置Input次从接收缓冲读取字节数为1 　　.RThreshold = 1 设置接收个字节就产生OnComm事件 　End With End Sub **************************************************************************** Private Sub ClearText 　Text3.Text = 　Text2.Text = 5 　Text1.Text = End Sub Private Sub Command1_Click 　ClearText 　 nRece = 0 计数器清零 　With MSC 　　.InputMode = comInputModeBinary 设置数据接收模式为 2进制形式 　　.InBufferCount = 0 清除接收缓冲区 　　If Not .PortOpen Then 　　　.PortOpen = True 打开通信端口 　　End If 　End With End Sub Private Sub MSC_OnComm 　DelayTime ‘用来延续时间 　ClearText 　With MSC 　　Select Case .CommEvent 判断通信事件 　　Case comEvReceive: 收到Rthreshold个字节产生接收事件 　　　SwichVar 1 　　　If Out(1) = 2 Then 判断是否为数据开始标志 　　　　.RThreshold = 0 关闭OnComm事件接收 　　　End If 　　　Do 　　　　DoEvents 　　　Loop Until .InBufferCount = 3 循环等待接收缓冲区=3个字节 　　　 nRece = nRece + 1 　　　For i = 2 To 12 　　　　SwichVar i 　　　　Text1.Text = Text1.Text Chr(Out(i)) 　　　Next 　　　Text1.Text = LTrim(Text1.Text) 　　　Text2.Text = Text2.Text CStr(nRece) 　　　.RThreshold = 1 打开MSComm事件接收 　　Case