SIEMENS西门子江苏省泰州市（授权）伺服电机一级代理商——西门子华东总代理

二、串口的事件触发

串口的触发分为周期触发和事件触发。周期触发就是在全局脚本中定义某一周期，周期性获取缓冲区数据。事件触发就是事件触发OnComm事件，具体参考串口属性。因为条形码的长度不一，刚开始的获取数据，通过周期性触发，判断缓冲区字符长度来判定，但该方式有很多BUG，比如，再下一触发周期没到之前（缓冲区数据没有提取），扫了两次条码，那么缓冲区将是两次的数据，长度判断就不靠谱了。这次客户提出要求，就顺势改为事件触发。

在串口使用前，首先要打开串口，我的方法是，当主画面一打开，就执行以下脚本：

Dim objMSComm3, tagConnection3

         Set objMSComm3 = HMIRuntime.Screens("MAIN").ScreenItems("OP30COM1")

         Set tagConnection3 = HMIRuntime.Tags("OP30_Connection1")

         If objMSComm3.PortOpen = False Then

                  ' Assign com port number

                  objMSComm3.Commport = 9

                  ' Values: 9600 Baud, N - No Parity, 8 - Databit, 1 - Stopbit

                  objMSComm3.Settings = "9600,N,8,1"

'                 objMSComm3.RThreshold = 1

'                 objMSComm3.SThreshold = 1

                  objMSComm3.InBufferCount = 0

                  objMSComm3.InputLen = 0

                  objMSComm3.PortOpen = True

                  tagConnection3.Write (True)

                  HMIRuntime.Trace("9# Port open." & vbCrLf)

         Else

                  HMIRuntime.Trace("9# Port is already opened." & vbCrLf)

         End If

其他串口类似，请注意区分串口号。

三、串口的属性

请参与附件，如果不行，请网上下载相关资料《串口通信-MSComm控件使用详解》，因为是获取条码，故只列举RThreshold属性。

RThreshold属性: 通过该属性设置产生OnComm 事件(接收时产生)的阀值,若MSComm1.RThreshold:=0,不产生OnComm 事件,若MSComm1.RThreshold:=5,接收缓冲区每收到5字节时,则产生OnComm 事件

在实际的使用中，设定RThreshold属性的值为1，即1个字符触发一次OnComm事件，通过判断字符是否接收到末尾字符（案例中，条码的末尾字符是EOT（char(4)）。扫描枪识别条码后会自动加上回车符char(13)），把没有检测到末尾字符就接收到数据放在一个WINCC的内部变量中，不断的累加。心想，50个字符应该会进行50次的OnComm事件吧？

四、模拟测试与实际调试

测试的环境如下：WIN7 32位，安装了CommTone6.0串口调试和Configure Virtual Serial Port Driver软件，用于发送数据和虚拟串口。

在模拟测试中发现，50个字符并没有产生50次的OnComm事件，在画面刚开始打开，也就是第一次打开串口，执行了2次，后面继续发送，每发送一次，产生3次时间，其中50个字符都是一次接受完成，其余均为空字符。（至于第一次是2，后面是3次，还是第一次是3，后面2次不记得了，Zui重要的信息是，无论多少个字符都是一次完成）

在虚拟测试中发现，把数据写入内部变量，比如Buffer1.write，在该代码后面出现Buffer1.read，发现仍然为空值，但是如果中间有MSGBOX弹出别的对话框，人工确定，那么后面弹出的Buffer1.read有值，说明Buffer1.write（内部变量的写入）也是有时间要求。（原先以为是整个代码执行完成后再写入，类似于PLC的IO寄存器一样，执行程序时先扫描，执行完成后再更新）。

虽然是一次完成，但我初步认为，虚拟的串口数据在内存或硬盘上，几乎是不用传送时间，所以实际中不见得也是一次接收到这么多字符，我还是按我的设想迎接实际调试。

以下是数据接收代码：

获取手持扫描枪的信息

      Dim objMSComm,Buffer1,ProcessLabel,Process_RUN,SGW

      Dim strTempTAG,strTemp,t1,t2

      Dim mm,nn,jj,kk,tt

      Dim pp,qq,BZ

      Dim MessageCode,MessageType,MessageText,r1,r2,r3,r4,r5

      Dim m,n,p,q

      Dim xx,zz,OUTMsgText

      Set objMsComm = HMIRuntime.Screens("MAIN").ScreenItems("OP30COM1")

      Set Buffer1 = HMIRuntime.Tags("OP30_Buffer1")

      Set ProcessLabel = HMIRuntime.Tags("OP30_ProcessLabel")

Set Process_RUN = HMIRuntime.Tags("OP30_Process_RUN")

      Set SGW = HMIRuntime.Tags("OP30_Status_SGW")

      Set BZ = HMIRuntime.Tags("OP30_BarRead_BZ")

      Set MessageCode = HMIRuntime.Tags("OP30_MessageCode")

      Set MessageType = HMIRuntime.Tags("OP30_MessageType")

      Set MessageText = HMIRuntime.Tags("OP30_MessageText")

      Set OUTMsgText = HMIRuntime.Tags("OP30_Text")

strTemp = ""

         If objMSComm.PortOpen = True Then

                   strTemp = CStr(objMSComm.Input)

                   If strTemp<> "" Then

                   If InStr(strTemp,Chr(4)) Then '如果判断已经接收到停止符号，则判断条码接受完成

         strTempTAG = Mid(strTemp,1,Len(strTemp)-1)

                t1 = Len(Buffer1.Read)

                t2 = Len(strTempTAG)

         tt = t1 + t2

                Buffer1.Read

                Buffer1.Value = Buffer1.Value &strTempTAG

                Buffer1.Write

                'MsgBox T30

                            If tt> 50 Then    '判断为物料标签，超出45位，截取其中的字符

                                     mm = InStr(Buffer1.Read, "P")

                                     jj = InStr(Buffer1.Read, "2P")

                                     xx = InStr(Buffer1.Read, "Q")

                                     nn = InStr(Buffer1.Read, "3S")

                                     kk = InStr(Buffer1.Read, "1T")

                                     pp = Mid(Buffer1.Read, mm + 1, jj - mm - 1)

                                     zz = Mid(Buffer1.Read, xx + 1, 5)

                                     qq = Mid(Buffer1.Read, nn + 2, kk - nn - 2)

                                     ProcessLabel.Value = pp&qq&zz '将数据写入BUFFER

                                     ProcessLabel.Write

                                     objMSComm.InBufferCount = 0

                                     BZ.Write 1

                            End If

                            If tt

                                Buffer1.Read

                            ProcessLabel.Value = Buffer1.Value  '将数据写入ProcessLabel

……

实际测试中，字符的获取在9600波特率的情况下，即使是Zui远的距离下，在该项目需求的60个字符都是一次全部接收，并没有分段接收，说明MSComm1.RThreshold:=1的情况下，接收数据产生的OnComm事件也只执行了一次（准确的说是多次，只是其他的都是空字符，只有一次非空字符，该字符数据长度就是接收的数据）。

五、经验总结

1、  注册MSCOMM32.OCX请用管理员身份运行。

2、  zuihao使用事件触发，通过判断某个特殊字符来确定是否数据接收完成。

3、  在接收阀值属性MSComm1.RThreshold:=1的设定下，9600的波特率，13米的距离（事实上距离对传输时间的影响几乎可以忽略），可以一起传送并接收。首先需要判断为非空字符，然后再判断是否有特殊字符，再执行其他语法。

4、  可以使用MSGBOX来诊断程序执行到哪一步，也可以用INPUTBOX来输入程序需要的数值。

后记：项目还没有进行完成，但关于串口的使用已经OK。从刚开始接触WINCC到如今，越来越感受到WINCC的开放性，利用脚本可以实现很多功能。从Zui初的“小白”到如今的“小白”是从形式到内涵的改变，这个旅途也是学习一点应用一点不断进步，项目做完不是终结，而是下一个项目的开始，能不能承接下一个项目，就需要在这个过程中有没有积累，不然即使机会来了也抓不住。工控行业博大精深，需要有不断学习的心，没有一招鲜或大杀器，只有不断积累不断学习，深刻掌握原理，才能举一反三。