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

WinCC 通过VBS脚本进行串口通讯 一、打开端口 Sub OnClick(Byval Item) 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 = 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(Port open. vbCrLf) Else HMIRuntime.Trace(Port is already opened. vbCrLf) End If End Sub 二、读Buffer 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 三、发送数据 Sub OnClick(ByVal Item) 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 Sub 四、关闭端口 Sub OnClick(Byval Item) 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 Sub