Skip to Content

SiePortal

The integrated platform for your product selection, buying and support workflow - bringing together Industry Mall and Online Support.

SiePortalDeutsch

Search

Home
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menu temporary not available
- Menue temporary not available
- {{item.title}}

Products & Services
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Cart ({{apiData.CartCount}})

Navigation

Trend VBScript not create

Created by: rtut at: 2/17/2014 2:51 PM (5 Replies)

Rating (0)

Thanks 1

6 Entries

2/17/2014 2:51 PM	Rate (0)
rtut Posts: 42 Rating: (1)	Hi. By trying to create a manual trend, but does not go out. so I appeal to trend: Set objTrendControl = HmiRuntime.ActiveScreen.ScreenItems("Control1") but if I turn it so it throws an error: Set objTrendControl = HmiRuntime.Screens("XXX").ScreenItems("Control1") Why? Both variant true. I have not built the trend(( Panel mp277 10" touch, i don't know version VBA, but some methon in manual not work in my script. Dim objTrendControl Dim objTrendWindow Dim objTimeAxis Dim objValueAxis Dim objTrend 'create reference to TrendControl Set objTrendControl = HmiRuntime.ActiveScreen.ScreenItems("Control1") 'Set objTrendControl = HmiRuntime.Screens("XXX").ScreenItems("Control1") Set objTrendWindow =objTrendControl.GetTrendWindowCollection.AddItem("myWindow") Set objTimeAxis =objTrendControl.GetTimeAxisCollection.AddItem("myTimeAxis") Set objValueAxis =objTrendControl.GetValueAxisCollection.AddItem("myValueAxis") objTimeAxis.TrendWindow = objTrendWindow.Name objValueAxis.TrendWindow = objTrendWindow.Name Set objTrend = objTrendControl.GetTrendCollection.AddItem("myTrend1") objTrend.Provider = 1 objTrend.TagName = "TestArchive\1" objTrend.Color = RGB(255,0,0) objTrend.TrendWindow = objTrendWindow.Name objTrend.TimeAxis = objTimeAxis.Name objTrend.ValueAxis = objValueAxis.Name Set objTrend = objTrendControl.GetTrendCollection.AddItem("myTrend2") objTrend.Provider = 1 objTrend.TagName = "TestArchive\2" objTrend.Color = RGB(0,255,0) objTrend.TrendWindow = objTrendWindow.Name objTrend.TimeAxis = objTimeAxis.Name objTrend.ValueAxis = objValueAxis.Name and when I try to create it tells me: ,A VB_Script or HMI_Tag object named 'HMICircle' was not found. in line 2, Column 18,1,0,5:17:19 PM ,A VB_Script or HMI_Tag object named 'ActiveDocument' was not found. in line 3, Column 17,1,0,5:17:19 PM Sub AddCircleToActiveDocument() Dim objCircle As HMICircle Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("VBA_Circle", "HMICircle") objCircle.BackColor = RGB(255, 0, 0) End Sub Why? Attachment trend.jpg (512 Downloads)
rtut Posts: 42 Rating: (1)	Last edited by: rtut at: 2/17/2014 3:30 PM Last edited by: rtut at: 2/17/2014 3:29 PM Last edited by: rtut at: 2/17/2014 2:52 PM
Suggestion To thank Quote Answer

2/18/2014 8:24 AM	Rate (0)
K!ke Posts: 1299 Rating: (136)	Hello, just to clarify your issue: if you compile the script with "Set objTrendControl = HMIRuntime.ActiveScreen.ScreenItems("Control1")" you get an error? Which error? do you get an error if you check the syntax or if you compile whole project or in runtime? and if you write "Set objTrendControl = HMIRuntime.Screens("xxx".ScreenItems("Control1")" everything is ok? What's the second script about? K!ke
K!ke Posts: 1299 Rating: (136)
Suggestion To thank Quote Answer

2/18/2014 9:09 AM	Rate (0)
rtut Posts: 42 Rating: (1)	Conversely, when I speak directly to the object, indicating a specific screen: Set objTrendControl = HmiRuntime.Screens("XXX").ScreenItems("Control1") error: ,'GetTrendWindowCollection': The tag is not declared. in line 11, Column 37,1,0,11:05:46 AM ,'GetTimeAxisCollection': The tag is not declared. in line 12, Column 34,1,0,11:05:46 AM ,'GetValueAxisCollection': The tag is not declared. in line 13, Column 35,1,0,11:05:46 AM and such. but when I turn to the object through theActiveScreen, the error is not present, but the script does not work: Set objTrendControl = HmiRuntime.ActiveScreen.ScreenItems("Control1") All good in syntax, but trend not create. Thanks.
rtut Posts: 42 Rating: (1)
Suggestion To thank Quote Answer

2/21/2014 8:02 AM	Rate (0)
K!ke Posts: 1299 Rating: (136)	Hello, see this chapter in manual. they describe which properties of trend view you can configure using vb script. K!ke
K!ke Posts: 1299 Rating: (136)
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users rtut

7/14/2014 3:28 PM	Rate (0)
rtut Posts: 42 Rating: (1)	I watched functions can only create a trend in the RT professional version. Is it possible to create trends in RT Advanced other ways? change the name of the tag in the trend?
rtut Posts: 42 Rating: (1)	Last edited by: rtut at: 7/14/2014 3:39 PM
Suggestion To thank Quote Answer

2/10/2015 2:14 PM	Rate (0)
Min_Moderator Posts: 4757 Rating: (122)	New question published by Rollex is split to a separate thread with the subject how to unselect Trend Window in VBScript?. Best regards Min_Moderator
Min_Moderator Posts: 4757 Rating: (122)
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

TIA WinCC Adv System functions/Scripting

Follow us on