公司名称
当前位置：首页 > 新闻中心 > 新闻详情
动态控制WinCC趋势控件


image.png

  • 选择参数组名称（变量组），添加多条曲线

  • 设定各曲线的颜色

  • 设定曲线显示的时间范围

image.png

image.png

image.png

  • WinCC查询画面

添加画面对象

本例中需要选择查询的参数以及查询的时间段，然后通过一个按钮来执行数据查询脚本，并把历史数据加载到在线表格控件上。

因此，需要在画面中添加以下对象：
- 选项组控件：用来选择所查询的参数，其对应的所有归档变量将会被加载到在线趋势控件中
- 时间选择控件：用来设定曲线的开始和结束时间
- 在线趋势控件：显示参数曲线
- 按钮：执行查询事件

image.png

image.png image.png image.png image.png image.png image.png

具体的VBS脚本如下：

Dim OP1,myTrend
Dim TrendName(9),TrendCount
Set myTrend =ScreenItems("myTrend") '在线趋势控件名称
Dim i
For i=1 To myTrend.TrendCount
  myTrend.TrendIndex=i
  myTrend.TrendRemove=myTrend.TrendName'添加曲线前先删除所有曲线
Next
Set OP1=ScreenItems("OP1")'曲线选择选项组控件名称
Select Case OP1.Process'根据选择项设定曲线条数及各个归档变量名称
  Case 1'选择第1项
  TrendName(0)="flow\flow1"
  ......

  TrendName(7)="flow\flow8"
  TrendCount=8
  Case 2'选择第2项
  TrendName(0)="level\level1"
  TrendName(1)="level\level2"
  TrendName(2)="level\level3"
  TrendCount=3
  Case 4'选择第3项
  TrendName(0)="press\press1"
  ......
  TrendName(5)="press\press6"
  TrendCount=6
  Case 8'选择第4项
  TrendName(0)="quality\quality1"
  ......
  TrendName(6)="quality\quality7"
  TrendCount=7
  Case 16'选择第5项
  TrendName(0)="temp\temp1"
  ......
  TrendName(5)="temp\temp6"
  TrendCount=6
End Select
For i=1 To TrendCount'添加趋势并设定曲线的属性
  myTrend.TrendAdd= TrendName(i-1)
  myTrend.TrendTagName= TrendName(i-1)'曲线名称
  myTrend.TrendTrendWindow= "Trend window 1"'曲线窗口名称
  myTrend.TrendTimeAxis= "Time axis 1"'时间轴
  myTrend.TrendValueAxis= "Value axis 1"'数值轴
  Select Casei '设定各曲线颜色
         Case1
         myTrend.TrendColor= RGb(0,0,0)'黑色
         Case2
         myTrend.TrendColor= RGb(255,0,0)'红色
         Case3
         myTrend.TrendColor= RGb(0,255,0)'绿色
         Case4
         myTrend.TrendColor= RGb(0,0,255)'蓝色
         Case5
         myTrend.TrendColor= RGb(255,255,0)'黄色
         Case6
         myTrend.TrendColor= RGb(0,255,255)'青色
         Case7
         myTrend.TrendColor= RGb(120,36,36)'棕色
         Case8
         myTrend.TrendColor= RGb(255,0,255)'深红
  End Select
Next
'设置曲线开始时间和结束时间
Dim BeginTime,endTime
Set BeginTime=ScreenItems("BeginTime")
Set endTime=ScreenItems("endTime")
myTrend.TimeAxisIndex =0  '时间轴索引
myTrend.Online =0
myTrend.TimeAxisRangeType =1 '时间轴类型-时间范围
myTrend.TimeAxisBeginTime  = BeginTime.value   '起始时间
myTrend.TimeAxisEndTime =endtime.value     '结束时间

image.png

2021年12月14日 10:00
公司名称
地址：贵州省贵阳市南明区花果园M区第1栋1单元16层20号 E-mail:kdnetceo@163.com 联系电话：18685666676 杨先生
合作电话：18685672476 张先生
传真：0851-84109823 售后电话：18685672476 张先生
备案号 黔ICP备2021010992号-1