想通过Wincc VBS程序实现两个温度值A、B的比较，如果A>B，则将CPU的输出点Q0.3赋值1。这样可行吗？
问题补充：
程序：
Option Explicit
Function action
Dim shuchu
Dim wendusheding
Dim wendujiance
Set shuchu=HMIRuntime.Tags("Chaowen_Alarm0117")
Set wendusheding=HMIRuntime.Tags("MF_TS_PRO/TS_DBGLB1205")
Set wendujiance=HMIRuntime.Tags("TC/TC_7/TT1055.PV#Value")
shuchu.Read
wendusheding.Read
wendujiance.Read
If wendujiance.value>wendusheding.value Then
shuchu.Value=1
Else
shuchu.Value=0
shuchu.Write
End If
End Function
Chaowen_ALarm0117为Q0.3；想在Wincc上实现这个功能；运行程序Q0.3在满足条件情况下不为1。
最佳答案
Option Explicit
Function action
Dim shuchu
Dim wendusheding
Dim wendujiance
wendusheding=HMIRuntime.Tags("MF_TS_PRO/TS_DBGLB1205").read
wendujiance=HMIRuntime.Tags("TC/TC_7/TT1055.PV#Value").read
If wendujiance.value>wendusheding.value Then
shuchu=1
Else
shuchu=0
End If
HMIRuntime.Tags("Chaowen_Alarm0117").write shuchu
End Function
提问者对于答案的评价：
非常感谢这么多专家的指点，用VBS还是没有实现给CPU的输出点Q0.3赋值，最后还是在CFC里完成的。
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc356777.html
微信扫一扫 
支付宝扫一扫 