简化一下我编的脚本程序

2019年6月11日上午5:48 • SIMATIC WinCC

在项目中做了一个趋势描点的脚本程序，感觉比较啰嗦，那个老师能帮我简化一下程序，缩短运行时间，所编语言如下：
Dim aa
Set aa=HMIRuntime.Screens("start").ScreenItems("abc")
     aa.Index=0
     aa.DataX=50
     aa.DataY=HMIRuntime.Tags("Tag1").Read
     aa.InsertData=True
     aa.DataX=100
     aa.DataY=HMIRuntime.Tags("Tag2").Read
     aa.InsertData=True
     aa.DataX=150
     aa.DataY=HMIRuntime.Tags("Tag3").Read
     aa.InsertData=True
     aa.DataX=200
     aa.DataY=HMIRuntime.Tags("Tag4").Read
     aa.InsertData=True
     aa.DataX=250
     aa.DataY=HMIRuntime.Tags("Tag5").Read
     aa.InsertData=True
     aa.DataX=300
     aa.DataY=HMIRuntime.Tags("Tag6").Read
     aa.InsertData=True
     aa.DataX=350
     aa.DataY=HMIRuntime.Tags("Tag7").Read
     aa.InsertData=True
     aa.DataX=400
     aa.DataY=HMIRuntime.Tags("Tag8").Read
     aa.InsertData=True
     aa.DataX=450
     aa.DataY=HMIRuntime.Tags("Tag9").Read
     aa.InsertData=True
     aa.DataX=500
     aa.DataY=HMIRuntime.Tags("Tag10").Read
     aa.InsertData=True
     aa.DataX=550
     aa.DataY=HMIRuntime.Tags("Tag11").Read
     aa.InsertData=True
     aa.DataX=600
     aa.DataY=HMIRuntime.Tags("Tag12").Read
     aa.InsertData=True
     aa.DataX=650
     aa.DataY=HMIRuntime.Tags("Tag13").Read
     aa.InsertData=True
     aa.DataX=700
     aa.DataY=HMIRuntime.Tags("Tag14").Read
     aa.InsertData=True
     aa.DataX=750
     aa.DataY=HMIRuntime.Tags("Tag15").Read
     aa.InsertData=True
     aa.DataX=800
     aa.DataY=HMIRuntime.Tags("Tag16").Read
     aa.InsertData=True
     aa.DataX=850
     aa.DataY=HMIRuntime.Tags("Tag17").Read
     aa.InsertData=True
     aa.DataX=900
     aa.DataY=HMIRuntime.Tags("Tag18").Read
     aa.InsertData=True
     aa.DataX=950
     aa.DataY=HMIRuntime.Tags("Tag19").Read
     aa.InsertData=True
     aa.DataX=1000
     aa.DataY=HMIRuntime.Tags("Tag20").Read
     aa.InsertData=True
如此一致写下去，一直到
   （由于篇幅所限省略中间部分）
          aa.DataX=5950
     aa.DataY=HMIRuntime.Tags("Tag119").Read
     aa.InsertData=True
     aa.DataX=6000
     aa.DataY=HMIRuntime.Tags("Tag120").Read
     aa.InsertData=True

问题补充：
谢谢塞上雁老师的再次帮助！
我编译后发现最后一句不能执行，去掉“i”后编译通过，但还是不能执行语句。塞上雁老师您还能帮我分析一下吗？
我的邮箱 ZHOUDONG666@126.COM
非常感谢！

最佳答案

dim aa
Dim bb(120)
dim  i
Set aa=HMIRuntime.Screens("start").ScreenItems("abc")
     aa.Index=0
     bb=50
for i=1 to 120
     aa.DataX=bb
     aa.DataY=HMIRuntime.Tags("Tag(i)").Read
     aa.InsertData=True
     bb=bb+50
next i

提问者对于答案的评价：
谢谢老师的帮助！

原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc268140.html

简化一下我编的脚本程序

相关推荐