发布于 2009-12-04 09:38:21
19楼
对WinCC变量“Print”置1或0操作:
Option Explicit
Function action
Dim TimeM,TimeS,Print
Dim S
Set Print=HMIRuntime.Tags("Print")
Print.Read
S=Print.Value
TimeM=Minute(Now)
TimeS=Second(Now)
If (TimeM=20) And (TimeS>55) Then
S=1
Else
s=0
End If
Print.Write S
End Function
没有问题吧?同志们。
没有烟抽的日子我就抽红叶。