作者 | 主题 |
---|---|
塑料袋 新手 经验值:33 发帖数:1 精华帖:0 |
楼主 2022-04-26 13:06:08
主题:WINCC V7.5入门实例教程,使用常数数组用FunctionTrendControl控件绘制趋势曲线 近期在学习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,安装下一步即可 如有侵权联系删除,谢谢 |