WinCC趋势跨度设置（时间范围）

控件：输入输出域、组合框、按钮、实时趋势控件

输入输出域

对象名称：IOI
域类型：输入

组合框

对象名称：cb
索引与文本一一对应

按钮VB

Sub OnClick(Byval Item)                                                                       

Dim ctrltxt
Dim ctrltrend,ctrlcb

Dim TimeRangFactor,TimeRangBase

Dim mylistindex

Set ctrltxt=ScreenItems("IOI")

Set ctrltrend=ScreenItems("ctrltrend")

Set ctrlcb=ScreenItems("cb")

If ctrlcb.SelText ="500毫秒" Then

ctrltrend.TimeAxisTimeRangeBase=0.5*1000

End If

If ctrlcb.SelText ="1秒" Then

ctrltrend.TimeAxisTimeRangeBase=1*1000

End If

If ctrlcb.SelText ="1分钟" Then

ctrltrend.TimeAxisTimeRangeBase=60*1*1000

End If

If ctrlcb.SelText ="1小时" Then

ctrltrend.TimeAxisTimeRangeBase=60*60*1000

End If

If ctrlcb.SelText ="1天" Then

ctrltrend.TimeAxisTimeRangeBase=24*60*60*1000

End If

'ctrltrend.TimeAxisTimeRangeFactor = 5
ctrltrend.TimeAxisTimeRangeFactor = ctrltxt.InputValue

'Msgbox ctrltxt.InputValue
End Sub

项目地址：https://download.csdn.net/download/weixin_37928884/88463004