我想试一下脚本功能，在画面上放了四个i/o域，一个按钮，在按钮的按左键写程序如下
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim v
Set v=ScreenItems("输入输出域4")
Set v1=ScreenItems("输入输出域1")
Set v2=ScreenItems("输入输出域2")
Set v3=ScreenItems("输入输出域3")
v.OutputValue=(v1.OutputValue+v2.OutputValue+v3.OutputValue)/3
End Sub
不知道为什么平均值显示不出来
最佳答案
你的问题在于变量声明不完整，Dim v1,v2,v3,v
其他没有问题。再有就是输入输出域4应该为输出型。
读变量的值进行运行更为直接，且VBS对中文支持较差，不建议脚本中使用中文
Dim v1,v2,v3,v
Set v1=HMIRuntime.Tags("v1")
Set v2=HMIRuntime.Tags("v2")
Set v3=HMIRuntime.Tags("v3")
Set v=HMIRuntime.Tags("v")
v.Write (v1.Read+v2.Read+v3.Read)/3.0
提问者对于答案的评价：
谢谢
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc276808.html
微信扫一扫 
支付宝扫一扫 