实现一个返回是否报警，需要多次调用同一功能，VBS项目模块中写入以下代码，例如：
Function SumAlarm(Value1,Value2)
If Value1>Value2 Then
SumAlarm=1
Else
SumAlarm=2
End If
End Function
然后在VBS动作中写入以下代码：
Option Explicit
Function action
Dim UC1
Dim UC2
Dim UC3
Set UC1=HMIRuntime.Tags("TE_101")
Set UC2=HMIRuntime.Tags("TE_102")
Set UC3=HMIRuntime.Tags("BOL")
UC1.Read
UC2.Read
UC3.Value=SumAlarm(UC1,UC2)
UC3.Write,1
End Function
定义10S执行一次。
始终都不执行，不知道哪出错，大师指导下。谢谢！
最佳答案
形参是数值而不应是对象
UC3.Value=SumAlarm(UC1.Value,UC2.Value)
提问者对于答案的评价：
确实就是如上描述
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc192673.html
微信扫一扫 
支付宝扫一扫 