目前可以实现右击弹出趋势图,想添加以下功能,没什么思路 切换功能:右击一次添加趋势,再次右击同个IO域时移除趋势
多曲线支持:
支持添加最多8条趋势曲线
状态管理:使用数组记录每个趋势通道的使用状态
自动查找可用通道:自动寻找第一个可用的趋势通道
智能显示/隐藏:当所有趋势都移除时自动隐藏趋势控件
目前右键的脚本
Sub OnRButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim objCon1
Dim tr1
Set objCon1 = HMIRuntime.ActiveScreen.ScreenItems ("Trend")
Set tr1 = objCon1.GetTrend("Trend1")
'设置趋势图标题
tr1.Label =HMIRuntime.Tags ("TT800302A.TypeNo").Read
objCon1.Caption = HMIRuntime.Tags ("TT800302A.TypeName").Read
'设置趋势图空间标签0关联变量归档的变量
objCon1.TrendIndex = 0
objCon1.TrendTagName = "AI\TT800302A.StwOUT"
'设置轴区间大小
objcon1.ValueAxisBeginValue = HMIRUNTIME.Tags ("TT800302A.StwMIN").Read
objcon1.ValueAxisEndValue = HMIRUNTIME.Tags ("TT800302A.StwMAX").Read
'显示趋势图控件
objCon1.Visible = 1
End Sub