WinCC Professional V13 SP1 – Simple Sample: time filter for Trends by VB script

“Simple Sample” are small projects that demonstrate simple features. The target is give a quick overview about the theme and be used as start point for related discussions. Follow there are a short description and the configuration main steps.

Description:

In this simple sample, the trend view time axis is set to determinate time interval by button click.

Requirements:

WinCC Professional V13 SP1.

Project with a minimum configuration (stop button, tags, etc.).

Configuration main steps:

• Create four tags,: two to represent trends (Project tree → WinCC → HMI Tags → Default tag table → <add new> - in our project two internal tags, HMI_Tag_1 and HMI_Tag_2 as INT data type) and two to represent the begin / end of the desired time interval (Project tree → WinCC → HMI Tags → Default tag table → <add new> - in our project two internal tags, HMI_Tag_3 and HMI_Tag_4 as DateTime data type)

• As simulation proposes, attached the created tags to IO fields on a picture (with this it would be possible to input different values to the tags).

• Create a Data Log (Project tree → WinCC → Historical data → Data logs → <add new>)

  Configure the data log:

  • Create a Logging tag (Project tree → WinCC → Historical data → Logging tags (division) → <add new>; Process tag = HMI_Tag_1)

  • Create a Logging tag (Project tree → WinCC → Historical data → Logging tags (division) → <add new>; Process tag = HMI_Tag_2)

• Place on screen the object “Trend view” (Toolbox → controls)

• Configure the Trend view:

  • Trend View → Properties → Trend → <Add new>

  • In the created line, configure: Data Source: Source Type = Logging tags; Tag = Data_log_1\Logging_tag_1

  • Trend View → Properties → Trend → <Add new>

  • In the created line, configure: Data Source: Source Type = Logging tags; Tag = Data_log_1\Logging_tag_2

• Place a button on the screen and create a VB script on its click event:

To set a time interval (related to HMI_Tag_3 and HMI_Tag_4):

Sub OnClick(ByVal item)

Dim aaa

Set aaa = ScreenItems("f(t) trend view_1")

aaa.Online = False

aaa.TimeAxisBeginTime = CDate(SmartTags("HMI_Tag_3"))

aaa.TimeAxisEndTime = CDate(SmartTags("HMI_Tag_4"))

End Sub

To set the trend to show the actual time values (real time):

Sub OnClick(ByVal item)

Dim aaa

Set aaa = ScreenItems("f(t) trend view_1")

aaa.Online = True

End Sub

References:

Manual

WinCC Professional V13.0

https://support.industry.siemens.com/cs/br/pt/view/92323076/en

Online helps system

WinCC Professional V13.0 SP1

https://support.industry.siemens.com/cs/br/pt/view/109096785/en

FAQ

Which VBS information and VBS programming tools are there in WinCC (TIA Portal)?

https://support.industry.siemens.com/cs/br/pt/view/59885894/en

Tips and tricks for creating scripts in WinCC (TIA Portal)

https://support.industry.siemens.com/cs/br/pt/view/57132412/en

Project:

attached as project.zip