WinCC 通过VBS脚本进行串口通讯

198366809

【导读】整理电脑资料发现的一篇文章，是关于WINCC 通过VBS脚本进行串口通讯的文档，分享给大家。

PLC价格还要缺货多久？

电气人上哪儿接单靠谱？

（一）打开端口

（1）代码图片

（2）VBS代码

Sub OnClick(Byval Item)

DimobjMSComm1, tagConnection

SetobjMSComm1 = HMIRuntime.Screens("Main").ScreenItems("MSComm1")

SettagConnection = HMIRuntime.Tags("Connection")

IfobjMSComm1.PortOpen = False Then

'Assign com port number

objMSComm1.Commport= 1

'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("Portopen." & vbCrLf)

Else

HMIRuntime.Trace("Portis already opened." & vbCrLf)

EndIf

End Sub

（二）读Buffer

（1）代码图片

（2）VBS代码

Option Explicit

Function action

DimstrBuffer, strTemp

DimobjMSComm1, tagBuffer

SetobjMsComm1 = HMIRuntime.Screens("Main").ScreenItems("MSComm1")

SettagBuffer =HMIRuntime.Tags("Buffer")

strTemp= ""

IfobjMSComm1.PortOpen = True Then

'readthe buffer

strTemp= CStr(objMSComm1.Input)

IfstrTemp <> "" Then

'checkingfor the delimited character

IfInStr(strTemp, Chr(6)) Then

strBuffer= Left(strTemp,Len(strTemp)-1)

Else

strBuffer= strTemp

EndIf

tagBuffer.Value= strBuffer

tagBuffer.Write

EndIf

Else

HMIRuntime.Trace("Noport is opened!" & vbCrLf)

EndIf

End Function

（三）发送数据

（1）代码图片

（2）VBS代码

Sub OnClick(ByVal Item)

DimtagOutput, objMSComm1

SettagOutput = HMIRuntime.Tags("Output")

SetobjMSComm1 = HMIRuntime.Screens("Main").ScreenItems("MSComm1")

IfobjMSComm1.PortOpen = True Then

tagOutput.Read

objMSComm1.Output= tagOutput.Value

tagOutput.Write("")

Else

HMIRuntime.Trace("Noport is opened!" & vbCrLf)

EndIf

End Sub

（四）关闭端口

（1）代码图片

（2）VBS代码

Sub OnClick(Byval Item)

DimobjMSComm1, tagConnection

SetobjMSComm1 = HMIRuntime.Screens("Main").ScreenItems("MSComm1")

SettagConnection = HMIRuntime.Tags("Connection")

IfobjMSComm1.PortOpen = True Then

objMSComm1.PortOpen= False

tagConnection.Write(False)

HMIRuntime.Trace("Portclose." & vbCrLf)

EndIf

End Sub

来源：公众号（自动化与工程技术）

阿明

太生气了，无法HOLD啦 >_<......

大海

本来在潜水，看到LZ这篇矿石奇文，实在忍不住出来冒个泡泡：真TM天书啊！

2713416117

蹲个后续，楼主记得更新呀，在线等挺急的～

wangzhaolost

来凑个热闹，为楼主增加点人气！

wx_q34P12m7

笑不活了，评论区比正文还精彩
已转发给朋友，一起快乐一下

qq915933008

这评论区卧虎藏龙，个个都是人才！

仙666666

画面感太强了，仿佛身临其境！

ytzzww

同款经历！我当初也这么过来的😂

aifeilisa

浅评一下：内容优质，值得推荐～