Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

wincc with VB problem

Created by: cxy2012 at: 5/2/2016 8:00 AM (9 Replies)

Rating (0)

Thanks 1

10 Entries

5/2/2016 8:00 AM	Rate (0)
cxy2012 Member Joined: 3/9/2016 Last visit: 9/17/2024 Posts: 5 Rating: (0)	When I use the VB run, the will be err Sub VBFunction_1() If SmartTags("OP01_AUTO") Then ShowPopupScreen"POP信息01",100,100,hmiOn,hmiLeft,hmiMedium End If End Sub Attachment BC.png (475 Downloads)

Suggestion To thank Quote Answer

5/2/2016 10:41 AM	Rate (0)
Murof Platinum Expert Joined: 8/3/2009 Last visit: 12/30/2024 Posts: 14476 Rating: (1806)	Hello cxy2012 can you please post a little bit more Information: https://support.industry.siemens.com/tf/de/en/posts/141582/ (Versions, Systems and so on) bye Murof
	Last edited by: The Helping Hand at: 5/2/2016 5:39:42 PM Made the link clickable. If this Information really helps, you could use the Rate function
Suggestion To thank Quote Answer

5/2/2016 8:51 PM	Rate (0)
Unreality Bronze Member Joined: 9/9/2014 Last visit: 11/26/2024 Posts: 246 Rating: (40)	HI, cxy2012 It seems to me to solve your problem, and even more so for debugging your scripts in Visual Studio, you should read the following articles, you think they can help https://support.industry.siemens.com/cs/document/59885894/which-vbs-information-and-vbs-programming-tools-are-there-in-wincc-%28tia-portal%29?dti=0&lc=en-WW https://support.industry.siemens.com/cs/document/26150018/which-vbs-information-and-programming-aids-are-there-in-wincc-flexible?dti=0&lc=en-WW And you can also try using "HMIRuntime.Trace"
	Last edited by: The Helping Hand at: 5/3/2016 10:22:15 AM Made the links clickable Last edited by: Unreality at: 5/5/2016 9:59:53 AM Best Regards PMA
Suggestion To thank Quote Answer

5/3/2016 10:37 AM	Rate (0)
H.J. Gold Member Joined: 6/3/2014 Last visit: 9/26/2024 Posts: 660 Rating: (194)	Hello cxy2012, your script's syntax works for me. (Comfort panel, TIA V13 SP1 - Please post your System information as Murof asked.) Does the error change or disappear if you don't use chinese characters in the name of the PopUp screen? I one had the problem that the ° character wasn't recognised in VBA when executed in the chinese vesion of another well known software. Maybe it's a similar issue. What does the error message translate to anyway?
	~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ★ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users cxy2012

5/6/2016 5:14 AM	Rate (0)
cxy2012 Member Joined: 3/9/2016 Last visit: 9/17/2024 Posts: 5 Rating: (0)	Thanks Murof, I'm use system is Win7 Ultimate Attachment ruanj.png (411 Downloads)

Suggestion To thank Quote Answer

5/6/2016 5:23 AM	Rate (0)
cxy2012 Member Joined: 3/9/2016 Last visit: 9/17/2024 Posts: 5 Rating: (0)	I'm use the VBscript on the button ,When I change the English characters in the name of the PopUp screen, the problem also exists。 Attachment button.png (481 Downloads)

Suggestion To thank Quote Answer

5/6/2016 5:40 AM	Rate (0)
cxy2012 Member Joined: 3/9/2016 Last visit: 9/17/2024 Posts: 5 Rating: (0)	When i run the debug , I did't kown "Sub TitleUpdater() Dim title Set title = HmiRuntime.Screens(0).ScreenItems("画面标题") title.Text = HmiRuntime.BaseScreenName End Sub" from Attachment debug.png (396 Downloads)

Suggestion To thank Quote Answer

5/6/2016 8:42 AM	Rate (0)
Unreality Bronze Member Joined: 9/9/2014 Last visit: 11/26/2024 Posts: 246 Rating: (40)	Maybe your problem is due to the use of special characters or another language pack. But, I'm not sure about that, as he himself freely used the Russian language pack (use objects with Russian names, and so on). Although the, to be honest, I try to write everything in English, that would not have to think about all the possible conflicts and use less special characters. And it might be worth upgrading to the latest version TIA PORTAL V13 SP1 UPD8 About the use of "Visual Studio" Possible errors I process in the program, an example of this I brought the script below Dim title, ER On Error Resume Next Set title = HmiRuntime.Screens(1).ScreenItems(1) title.Text = HmiRuntime.BaseScreenName Set ER = HmiRuntime.Screens("NameScreen").ScreenItems(4) ER.Text = Err.Number & " " & Err.Description For the object type displayed in the VBS can only use the object's name or the serial number from the list (as in the example above). Moreover, there is no zero index (judging from the practice, and to read the manual) Download Manual That is, in theory, you are wrong to write your script Dim title Set title = HmiRuntime.Screens(0).ScreenItems("画面标题") title.Text = HmiRuntime.BaseScreenName End Sub It is better to link an object in the script, still used his name or an existing index (see the number of items in the list, you can use the properties "COUNT") When incorrect reference object on the error occurred - "424 Object required" Attachment VBS.JPG (425 Downloads)
	Last edited by: Unreality at: 5/6/2016 8:48:08 AM Last edited by: Unreality at: 5/6/2016 9:16:10 AM Best Regards PMA
Suggestion To thank Quote Answer

5/6/2016 8:46 AM	Rate (0)
Unreality Bronze Member Joined: 9/9/2014 Last visit: 11/26/2024 Posts: 246 Rating: (40)	The correct object reference I think I'll help in any way it Attachment VBS2.JPG (393 Downloads)
	Best Regards PMA
Suggestion To thank Quote Answer

5/9/2016 9:55 AM	Rate (0)
Murof Platinum Expert Joined: 8/3/2009 Last visit: 12/30/2024 Posts: 14476 Rating: (1806)	Hello cxy2012 Please check the Setting: Runtime Settings-> General-> Screen-> Load names Please activate this Setting and try again with a Software(rebuild all) Bye Murof
	If this Information really helps, you could use the Rate function
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

Follow us on