Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

Creating a Dynamic Dialog in VBScript

Created by: Boroboy at: 5/22/2007 2:32 PM (9 Replies)

Rating (2)

Thanks 3

10 Entries

5/22/2007 2:32 PM	Rate (0)
Boroboy Posts: 3 Rating: (1)	I was browsing the forum and found some of the code from another thread.(shown Below) DimobjHMIObjectAsHMIObject DimobjVarTriggerAsHMIVariableTrigger SetobjVarTrigger=objHMIObject.Properties("OutputValue").CreateDynamic(hmiDynamicCreationTypeVariableDirect,"TagName") objVarTrigger.CycleType=hmiVariableCycleTypeOnChange I am looking to do something very similar, I need to Change the background colour of a staticTextbox depending on the value of a certain tag. I am using a Dynamic Dialog to do this. And would like to create the dynamic dialog in VBA Code (used behind the graphics designer). I have tried using and manipulating the code above but keep getting errors (Block Vairable not Set) & (invalid IHMIProperty). Can you please Help ( I am creating HMI screens using VBA, and there are about 100 tags on each screen have 20 screen - will take forever by hand) I am alsorunning a toggle C script on the mouse event can Iuse VBA to write this too for each of the 100 Text boxes??? Thanks in Advance Boroboy
Boroboy Posts: 3 Rating: (1)
Suggestion To thank Quote Answer

5/22/2007 8:49 PM	Rate (0)
Nemo Posts: 3149 Rating: (169)	Hi my experiences with VBA are quite limited, but perhaps this FAQ can give some help http://support.automation.siemens.com/WW/view/en/23809757 in chapter 17 there is also some info http://support.automation.siemens.com/WW/view/en/15342782 nemo
Nemo Posts: 3149 Rating: (169)
Suggestion To thank Quote Answer

5/23/2007 10:33 AM	Rate (1)
Ikkezelf Posts: 1084 Rating: (72)	Hi, Here you have an example for adding a dynamic dialog to the radius of a Circle. backcolor for a statictextbox is similar. if you have still have questions, let me know. [code]Sub AddDynamicDialogToCircleRadiusTypeAnalog() Dim objDynDialog As HMIDynamicDialog Dim objCircle As HMICircle Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_A", "HMICircle") ' 'Create dynamic Set objDynDialog = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeDynamicDialog, "'NewDynamic1'") ' 'Configure dynamic. "ResultType" defines the type of valuerange: With objDynDialog .ResultType = hmiResultTypeAnalog .AnalogResultInfos.Add 50, 40 .AnalogResultInfos.Add 100, 80 .AnalogResultInfos.ElseCase = 100 End With End Sub[/code]
Ikkezelf Posts: 1084 Rating: (72)	Last edited by: Ikkezelf at: 23.05.2007 10:41
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users executer01

5/23/2007 10:41 AM	Rate (0)
Ikkezelf Posts: 1084 Rating: (72)	For your other issue it should be something like this: [code]Dim objHMIObject As HMIObject Dim objCScript As HMIScriptInfo Set objHMIObject = ActiveDocument.HMIObjects("myObjectName") Set objCScript = objHMIObject.Events.Item(1).Actions.AddAction(hmiActionCreationTypeCScript) objCScript.SourceCode = "My sourcecode in Text"[/code]
Ikkezelf Posts: 1084 Rating: (72)
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users markiii

5/23/2007 11:52 AM	Rate (0)
Boroboy Posts: 3 Rating: (1)	Thanks for all your Help This works Fine, I was trying to use the VairbleTriggerObject instead of the DynamicDialog Object Only thing I cant do now is set the colours of the Background up. I am using boolean type If Tag is On I want Background to go Green If Tag is Off I want Background to go Red How do i do this?? You have shown an analoge example Thanks in Advance Boroboy
Boroboy Posts: 3 Rating: (1)
Suggestion To thank Quote Answer

5/23/2007 11:58 AM	Rate (1)
Boroboy Posts: 3 Rating: (1)	Hi Just worked it out myself Here the complete code if anyone else needs it: Sub AddDynamicDialog() Dim objDynDialog As HMIDynamicDialog Dim objText As HMIStaticText Set objText = ActiveDocument.HMIObjects.Item("StaticText33") ' 'Create dynamic Set objDynDialog = objText.BackColor.CreateDynamic(hmiDynamicCreationTypeDynamicDialog, "'CS1-1R171-SPARE'") ' 'Configure dynamic. "ResultType" defines the type of valuerange: With objDynDialog .ResultType = hmiResultTypeBool .BinaryResultInfo.PositiveValue = vbRed .BinaryResultInfo.NegativeValue = vbBlue End With End Sub Thanks toeveryone forhelping Boroboy
Boroboy Posts: 3 Rating: (1)
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users executer01

5/23/2007 1:19 PM	Rate (0)
Ikkezelf Posts: 1084 Rating: (72)	Great to hear everything is working. And thanks for posting your final solution. with regards, Ikkezelf
Ikkezelf Posts: 1084 Rating: (72)
Suggestion To thank Quote Answer

4/26/2018 6:30 PM	Rate (0)
lapamaster Posts: 3 Rating: (0)	Hello How can I add colors for each value range in dynamic dialog. Here is the code that I have used. I cannot find it on manual or anywhere else. Thanks for your help. Sub AddDynamicDialog() Dim objDynDialog As HMIDynamicDialog Dim objPoly As HMICollection Dim member As HMIObject Dim Poly As HMIObject Dim i As Integer i = 0 Set objPoly = ActiveDocument.HMIObjects.Find(ObjectType:="HMIPolyline") For Each member In objPoly i = i + 1 Set objDynDialog = member.BorderColor.CreateDynamic(hmiDynamicCreationTypeDynamicDialog, "'test'") With objDynDialog .ResultType = hmiResultTypeAnalog .AnalogResultInfos.Add 50, 40 .AnalogResultInfos.Add 100, 60 .AnalogResultInfos.ElseCase = 100 End With Next member End Sub
lapamaster Posts: 3 Rating: (0)
Suggestion To thank Quote Answer

4/26/2018 6:43 PM	Rate (0)
lapamaster Posts: 3 Rating: (0)	Sorry guys, I noticed that the last number is color. Too many hours work....=) lapamaster Hello How can I add colors for each value range in dynamic dialog. Here is the code that I have used. I cannot find it on manual or anywhere else. Thanks for your help. Sub AddDynamicDialog() Dim objDynDialog As HMIDynamicDialog Dim objPoly As HMICollection Dim member As HMIObject Dim Poly As HMIObject Dim i As Integer i = 0 Set objPoly = ActiveDocument.HMIObjects.Find(ObjectType:="HMIPolyline") For Each member In objPoly i = i + 1 Set objDynDialog = member.BorderColor.CreateDynamic(hmiDynamicCreationTypeDynamicDialog, "'test'") With objDynDialog .ResultType = hmiResultTypeAnalog .AnalogResultInfos.Add 50, 40 .AnalogResultInfos.Add 100, 60 .AnalogResultInfos.ElseCase = 100 End With Next member End Sub
lapamaster Posts: 3 Rating: (0)
Suggestion To thank Quote Answer

4/27/2018 11:51 AM	Rate (0)
Jen_Moderator Moderator Joined: 6/19/2017 Last visit: 6/1/2023 Posts: 6939 Rating: (137)	New question published by lapamaster is split to a separate thread with the subject Is it possible to read expression in dynamic dialog?. Best regards Jen_Moderator
	My Forum is the place to personalize your profile, track your topics, and maintain content that interests you. Best regards Jen_Moderator
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

Follow us on