搬家第14天-175. Wincc V7.3 vbs使用常数数组在 Functrend绘制曲线
以前做过练习,可以在Functrend控件上绘制曲线,时间一长有点忘记了。今天有一个网友问如何使用常数数组绘制,我试着再做了一遍,其实还是挺好做的。
在画面上放置一个按钮,名字为btn,放置一个Functrend控件,名字修改为FuncTrend,按钮的点击事件添加以下vbs脚本
Sub OnClick(ByVal Item)
Dim Key, FctTrdCtrl, objTrend,i
Dim X_Values
Dim Y_Values
' "btn" is the name of the clicked button
' Disable operator control and force grafic output
Set Key = ScreenItems("btn")
Key.Operation = vbFalse
refresh
X_Values = Array(-1,1,2,3,4,5,6,7,8,9,10)
Y_Values = Array(1,1,4,9,16,25,36,49,64,81,100)
'For i = 0 To 200
' X_Values(i)=-100 + i
' Y_Values(i)=X_Values(i) * X_Values(i)
'Next
Msgbox "OK"
Set FctTrdCtrl = ScreenItems("FuncTrend")
' Set index for trend 1 and delete data
FctTrdCtrl.TrendIndex = 0 '与V6.2版本不一样
FctTrdCtrl.TrendRemove=vbTrue '与V6.2版本不一样
' X-axis property setting
FctTrdCtrl.XAxisAutorange = vbFalse '与V6.2版本不一样
FctTrdCtrl.XAxisBeginValue = -10 '与V6.2版本不一样
FctTrdCtrl.XAxisEndVALUE = 20 '与V6.2版本不一样
' Y-axis property setting
FctTrdCtrl.YAxisAutorange = vbFalse '与V6.2版本不一样
FctTrdCtrl.YAxisBeginValue = -10 '与V6.2版本不一样
FctTrdCtrl.YAxisEndValue = 200 '与V6.2版本不一样
FctTrdCtrl.TrendProvider =0 '无数据源,通过脚本分配
FctTrdCtrl.TrendAdd =vbTrue
Set objTrend = FctTrdCtrl.GetTrend("趋势 1") '与V6.2版本不一样,如果是英文版,这里是“Trend 1”
objTrend.removeData'与V6.2版本不一样
For i = 0 To 10
objTrend.InsertData X_Values(i),Y_Values(i) '与V6.2版本不一样
Next
Key.Operation = vbTrue
Set fctTrdCtrl=Nothing
Set objTrend=Nothing
End Sub