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

news2024/10/4 22:24:28

在这里插入图片描述
控件：输入输出域、组合框、按钮、实时趋势控件

输入输出域

对象名称：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

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处：http://www.coloradmin.cn/o/1124800.html

如若内容造成侵权/违法违规/事实不符，请联系多彩编程网进行投诉反馈，一经查实，立即删除！