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

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

一、打开端口
SubOnClick(ByvalItem)

DimobjMSComm1,tagConnection
SetobjMSComm1=HMIRuntime.Screens("Main").ScreenItems("MSComm1")
SettagConnection=HMIRuntime.Tags("Connection")

IfobjMSComm1.PortOpen=FalseThen

'Assigncomportnumber
objMSComm1.Commport=1

'Values:9600Baud,N-NoParity,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("Portisalreadyopened."&vbCrLf)
EndIf
EndSub

二、读Buffer
OptionExplicit
Functionaction

DimstrBuffer,strTemp
DimobjMSComm1,tagBuffer

SetobjMsComm1=HMIRuntime.Screens("Main").ScreenItems("MSComm1")
SettagBuffer=HMIRuntime.Tags("Buffer")
strTemp=""

IfobjMSComm1.PortOpen=TrueThen

'readthebuffer
strTemp=CStr(objMSComm1.Input)
IfstrTemp<>""Then

'checkingforthedelimitedcharacter
IfInStr(strTemp,Chr(6))Then
strBuffer=Left(strTemp,Len(strTemp)-1)
Else
strBuffer=strTemp
EndIf

tagBuffer.Value=strBuffer
tagBuffer.Write
EndIf
Else
HMIRuntime.Trace("Noportisopened!"&vbCrLf)
EndIf

EndFunction

三、发送数据
SubOnClick(ByValItem)

DimtagOutput,objMSComm1

SettagOutput=HMIRuntime.Tags("Output")
SetobjMSComm1=HMIRuntime.Screens("Main").ScreenItems("MSComm1")

IfobjMSComm1.PortOpen=TrueThen
tagOutput.Read
objMSComm1.Output=tagOutput.Value
tagOutput.Write("")
Else
HMIRuntime.Trace("Noportisopened!"&vbCrLf)
EndIf

EndSub

四、关闭端口
SubOnClick(ByvalItem)

DimobjMSComm1,tagConnection
SetobjMSComm1=HMIRuntime.Screens("Main").ScreenItems("MSComm1")
SettagConnection=HMIRuntime.Tags("Connection")

IfobjMSComm1.PortOpen=TrueThen
objMSComm1.PortOpen=False
tagConnection.Write(False)
HMIRuntime.Trace("Portclose."&vbCrLf)
EndIf

EndSub