近期在学习WINCC的应用,师傅在网上找了个实例让我自己试着弄一下看能不能达到效果,原文在下面,经过尝试我发现有很多脚本在7.5版本中已经更改,所以针对趋势曲线的练习,将更新后的脚本及整个效果分享出来,供大家参考。
首先从右侧标准栏拖出一个按钮控件,在下方属性里更改按钮的对象名称为按钮1
再从控件中找到放置一个WINCC FunctionTrendControl模块,更改对象名称为控件1
点击按钮-事件-鼠标,右键点击鼠标单击右侧的小闪电符号,选择VBS动作,写入以下脚本
Dim X_values,Y_values
Dim Key,FctTrdCtrl,objTrend,i
' "按钮1" is the name of the clicked button
' Disable operator control and force grafic output
refresh
X_values = Array(0,1,2,3,4,5,6,7,8,9,10)
Y_values = Array(0,0,40,40,40,80,80,80,80,40,0)
Set Key = ScreenItems("按钮1")
Key.Operation = vbFalse
Set FctTrdCtrl = ScreenItems("控件1")
' Set index for trend 1 and delete data
FctTrdCtrl.Trendindex = 0
FctTrdCtrl.TrendRemove = vbTrue
' X-axis property setting
FctTrdCtrl.XAxisAutorange = vbFalse
FctTrdCtrl.XAxisBeginValue = 0
FctTrdCtrl.XAxisEndValue = 12
' Y-axis property setting
FctTrdCtrl.YAxisAutorange = vbFalse
FctTrdCtrl.YAxisbeginValue = 0
FctTrdCtrl.YAxisendValue = 100
FctTrdCtrl.TrendProvider = 0
FctTrdCtrl.TrendAdd = vbTrue
Set objTrend = FctTrdCtrl.GetTrend("趋势1")
objTrend.Removedata
For i = 0 To 10
objTrend.Insertdata X_values(i),Y_values(i)
Next
Key.Operation = vbTrue
Set fctTrdCtrl=Nothing
Set objTrend=Nothing
最后添加个按钮,点击新添加的按钮,点击动态向导,点击系统函数,选择退出WINCC,安装下一步即可
如有侵权联系删除,谢谢