WinCC读取串口扫描枪案例

最新推荐文章于 2024-07-10 15:23:04 发布

云无极

最新推荐文章于 2024-07-10 15:23:04 发布

阅读量3.7k

点赞数 3

分类专栏： WinCC 文章标签：制造

本文链接：https://blog.csdn.net/zhigedali/article/details/122706079

版权

WinCC 专栏收录该内容

4 篇文章 8 订阅

订阅专栏

本文以WinCC通过VBS脚本进行串口通讯，以读取扫描枪为例进行测试

参考资料：

MScomm控件注册方法（以管理员身份运行“命令提示符”，否则会有报错）

模块已加载，但对DllRegisterServer的调用失败

如何在 WinCC 运行系统中通过串口发送接收数据？

WinCC脚本调试和诊断方法

rpc服务器不可用怎么办

一 MSComm控件注册

MSComm 控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能，默认安装的WinCC是没有该控件的，需要自己下载并加载到Windows中，并添加到WinCC的ActiveX控件列表中。（以管理员身份运行“命令提示符”，否则会有报错）

二准备微软脚本调试器

调试器安装目录

C:\Program Files (x86)\Microsoft Script Debugger

实际运行项目时，打开调试器，并选择“运行的文档”，即可对代码进行调试

三 WinCC画面制作

按“如何在 WinCC 运行系统中通过串口发送接收数据？”说明创建变量和画面，

变量：

"Connection" - 二进制变量

"Buffer" - 文本变量 8 位字符集

"Output" - 文本变量 8 位字符集

其它

对象：

"Main.pdl" - WinCC 画面

"MSComm1" - Microsoft 通讯控件， V6.0

在画面“Main”中插入一个MSComm控件，双击控件，在属性中设置CommPort，即端口号。

之后在页面上添加一个“应用程序窗口”，选择“全局脚本”，之后选择“GSC Diagnostics”，这个窗口也用于调试VB函数用，可用于函数“HMIRuntime.Trace”输出

之后创建“打开端口”，“关闭端口”，“获取值”，“发送值”，“清空”五个按钮和IO域，并分别连接到定义的变量，参考如下

四创建全局脚本VBS

双击打开“VBS-Editor”

在“动作”一栏创建4个动作，名称如下

注：目前这4个动作代码如下：（红色部分为自己添加的代码）

Open.bac

Option Explicit
Function action
	Dim objMSComm1, tagConnection
	Set objMSComm1 = HMIRuntime.Screens("Main").ScreenItems("MSComm1")
	Set tagConnection = HMIRuntime.Tags("Connection")
	
	If objMSComm1.PortOpen = False Then
		
		' Assign com port number
		objMSComm1.Commport = 6（这个表示端口号，与前面一致）
		
		' Values: 9600 Baud, N - No Parity, 8 - Databit, 1 - Stopbit 
		objMSComm1.Settings = "9600,N,8,1"
		objMSComm1.RThreshold = 1
		objMSComm1.SThreshold = 1
		objMSComm1.InputLen = 0
		objMSComm1.PortOpen = True
		

		tagConnection.Write(True)
		HMIRuntime.Trace("Port open." & vbCrLf)
	Else
		HMIRuntime.Trace("Port is already opened." & vbCrLf)
	End If
End Function

Read.bac

Option Explicit
Function action
	Dim strBuffer, strTemp
	Dim objMSComm1, tagBuffer
	
	Set objMsComm1 = HMIRuntime.Screens("Main").ScreenItems("MSComm1")
	Set tagBuffer  = HMIRuntime.Tags("Buffer")
	strTemp = ""
	
	If objMSComm1.PortOpen = True Then
	
		'read the buffer
		strTemp = CStr(objMSComm1.Input)
		If strTemp <> "" Then
		
			'checking for the delimited character
			If InStr(strTemp, Chr(6)) Then
				strBuffer = Left(strTemp,Len(strTemp)-1)
			Else
				strBuffer = strTemp
			End If
			
			tagBuffer.Value = strBuffer
			tagBuffer.Write
		End If
	Else
		HMIRuntime.Trace("No port is opened!" & vbCrLf)
	End If
End Function

Close.bac

Option Explicit
Function action
	Dim objMSComm1, tagConnection
	Set objMSComm1 = HMIRuntime.Screens("Main").ScreenItems("MSComm1")
	Set tagConnection = HMIRuntime.Tags("Connection")
	
	If objMSComm1.PortOpen = True Then	
		objMSComm1.PortOpen = False
		tagConnection.Write(False)
		HMIRuntime.Trace("Port close." & vbCrLf)
	End If	
End Function

Send.bac

Option Explicit
Function action
	Dim tagOutput, objMSComm1
	
	Set tagOutput = HMIRuntime.Tags("Output")
	Set objMSComm1 = HMIRuntime.Screens("Main").ScreenItems("MSComm1")
	
	If objMSComm1.PortOpen = True Then
		tagOutput.Read
		objMSComm1.Output = tagOutput.Value
		tagOutput.Write("")
	Else
		HMIRuntime.Trace("No port is opened!" & vbCrLf)
	End If
End Function

说明：这里所有代码都是放在Function，与参考资料中放在SUB有所不同，具体SUB与Function区别，后续自己再学习补充。

代码添加完成后，需要给每个“动作”添加触发器。