我这里有段简短的程序,是想实现当点击一个按扭时1_on/off,同时让1_level自加一.这样写对吗?请指点.谢谢
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim obj1_level
Set obj1_level = HMIRuntime.Tags("1_level")
Dim obj1_onoff
Set obj1_onoff = HMIRuntime.Tags("1_on/off")
If obj1_onoff.value=True Then
obj1_level.value=obj1_level.Value+1
obj1_level.Write
End if
End Sub
问题补充：
我该成这样也不对啊
在属性中:timestamp,lasterror,errordescription,qualitycode是什么属性啊?
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim obj1_onoff
Set obj1_onoff = HMIRuntime.Tags("1_on/off")
obj1_onoff.Write 1
Dim obj1_level
Set obj1_level = HMIRuntime.Tags("1_level")
If obj1_onoff.value=True Then
obj1_level.value=obj1_level.Value+1
obj1_level.Write
End if
End Sub
最佳答案
不用IF的：
Dim obj1_level
Set obj1_level = HMIRuntime.Tags("1_level")
obj1_level.read
obj1_level.value=obj1_level.Value+1
obj1_level.Write
提问者对于答案的评价：
我是想实现当1_ONOFF为1的条件下,让1_level每隔一秒自加1之到1_level到达限定值停止
专家置评
可以在全局脚本中编写动作脚本，以1秒周期触发，在脚本中编写程序实现在未达到限制值时，自加1的功能就可以了
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc278106.html
微信扫一扫 
支付宝扫一扫