Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

how can i read an objets coordinates in graphics editor with a VB code?

Created by: zapotek at: 2/14/2009 3:02 PM (13 Replies)

Rating (2)

Thanks 2

Result pages:: |; 1 | 2; |

14 Entries

Entries per page: 10 | all

2/14/2009 3:02 PM	Rate (0)
zapotek Posts: 23 Rating: (1)	in wincc i want to read an objects position with a VB code. (X and Y values). and i want to put an object at a certain position for example X: 260 and Y: 280 when a TAG's status changes to 1. thaks a lot. sedat. Attachment untitled.JPG (139 Downloads)
zapotek Posts: 23 Rating: (1)
Suggestion To thank Quote Answer

2/15/2009 1:17 PM	Rate (0)
Sydney Gold Member Joined: 1/4/2008 Last visit: 10/29/2019 Posts: 701 Rating: (90)	Hello, the coordinates of an object can be accessed in VBS (both read and write) as Item.Left and Item.Top Regards Sydney

Suggestion To thank Quote Answer

2/15/2009 7:00 PM	Rate (0)
zapotek Posts: 23 Rating: (1)	thanks a lot.
zapotek Posts: 23 Rating: (1)
Suggestion To thank Quote Answer

2/15/2009 8:20 PM	Rate (1)
zapotek Posts: 23 Rating: (1)	here is the VB code. the rectangle1 is at the position X:500. and when the tag "move" changes to 1 the rectangle moves but it does not stop at X:600. Where am I wrong? Function Left_Trigger(ByVal Item) Dim objTag, Value1, objRectangle, objRectangleItem Set objTag = HMIRuntime.Tags("move") Set objRectangle = ScreenItems("Rectangle1") Do While objTag.Read() = 1 Do objRectangle.Left = objRectangle.Left + 10 Loop Until objRectangleItem.Left() = 600 Loop End Function
zapotek Posts: 23 Rating: (1)
Suggestion To thank Quote Answer

2/15/2009 10:25 PM	Rate (0)
Phantom75 Posts: 2661 Rating: (271)	Hi zapotek, You can do this in many ways... You can manipulate the Postion X & Position Y attributes in the object itself or you can change position attributes "outside" the object (in a button for example). In VBS you can use the Top and Left attributes. Find attached a simple example in VBS. In this exampleeverytime you click the button, the circle moves by 20 X and 20 Y. Regards Attachment NewPdl1.ZIP (117 Downloads)
Phantom75 Posts: 2661 Rating: (271)	Last edited by: Phantom75 at: 2/13/2009 10:28 PM Last edited by: Phantom75 at: 2/13/2009 10:26 PM
Suggestion To thank Quote Answer

2/16/2009 10:48 AM	Rate (0)
cumulus Platinum Expert Joined: 9/27/2007 Last visit: 12/18/2020 Posts: 993 Rating: (93)	Hi, thanks for publishing the script.
	Learn more about visualization - visit the HMI courses of Siemens AG! siemens.com/sitrain Basic course WinCC (TIA Portal) machine-based https://support.industry.siemens.com/cs/ww/en/view/109758624 Advanced course WinCC (TIA Portal) machine-based https://support.industry.siemens.com/cs/ww/en/view/109758626 Basic course WinCC Professional https://support.industry.siemens.com/cs/ww/en/view/109758618 Basic course SiVArc (Auto. Generation of HMIs) https://support.industry.siemens.com/cs/ww/en/view/109758628 Basic course Energy Suite https://support.industry.siemens.com/cs/ww/en/view/109755577
Suggestion To thank Quote Answer

2/16/2009 3:16 PM	Rate (1)
Sydney Gold Member Joined: 1/4/2008 Last visit: 10/29/2019 Posts: 701 Rating: (90)	Hello, don't you think the stars and thanks was little bit soon? zapotek said that it doesn't work correctly and apparently there is something wrong, for example what is objRectangleItem? zapotek: what exactly you want the scriptto do? Each trigger cycle move to the right until the limit or move it once to exact position? And imho you can use directly "Item" (suppose the script ison the rectangle) don't have to define the object. For the first situation the script could be something like this: Dim objTag Set objTag = HMIRuntime.Tags("move") If (objTag.Read = 1) And (Item.Left < 200) Then Item.Left = Item.Left + 10 End If Regards Sydney
	Last edited by: Sydney at: 2/16/2009 3:17 PM
Suggestion To thank Quote Answer

2/16/2009 3:51 PM	Rate (0)
zapotek Posts: 23 Rating: (1)	hello; first: the script is on the rectangle. i created the rectangle and it is located position X = 500. This place is not important. the rectangle can be placed at X 300 400 etc... only when the tag move changes to 1 ; the rectangle must move at the X plane 10 by 10 until its pos X becomes 600. I used "objRectangleItem.Left() = 600" to read the position of the rectangle. And this was wrong. I see. Sydney: your code worked. thanks. Set objTag = HMIRuntime.Tags("move") If (objTag.Read = 1) And (Item.Left < 600) Then Item.Left = Item.Left + 10 End If for the stars i thank to cumulus. I am a new member and this encouraged me to write in this forum.
zapotek Posts: 23 Rating: (1)
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users S_Moderator

2/16/2009 10:15 PM	Rate (0)
Phantom75 Posts: 2661 Rating: (271)	Hey zapotek, How come I do not even get a thanks (let alone any stars)from you when I answered your (more or less) identical question in the following thread??? object position change by a TAG status You'll sure find it hard to get on my buddy list, pal !! On a serious note, one of the moderators should cut my reply in the above thread and paste the in to this thread (and close the above thread) Regards
Phantom75 Posts: 2661 Rating: (271)
Suggestion To thank Quote Answer

2/16/2009 11:34 PM	Rate (0)
zapotek Posts: 23 Rating: (1)	To Phantom75: yes you right about your criticism about me. After your answer about the previous question ; i managed to go forward. thanks again...
zapotek Posts: 23 Rating: (1)
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on