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

dynamization I/O through VB script

Created by: Papiksub at: 3/7/2025 8:08 AM (2 Replies)

Rating (0)

Thanks 0

3 Entries

3/7/2025 8:08 AM	Rate (0)
Papiksub Joined: 8/22/2024 Last visit: 8/19/2025 Posts: 6 Rating: (0)	Hi everyone I need to implement I/O field through many tags of I/O. I tried to write VBscript - but i'm not a quite good with this. So... next code can only READ or WRITE. ///----------------------------------------------------------- Finction OutputValue_Trigger (Byval Item) Dim N_Tag Set N_Tag = HMIRuntime.Tags(MayTag) 'Just Read from tag OutputValue_Trigger = N_Tag.Read ' Just Write to tag OutputValue_Trigger = item.InputValue N_Tag.Write(OutputValue_Trigger) End Function ///------------------------------------------------------------ I can not use both ways ... (Read and Write) only Read or Write. But i need read and write. Somebody help me please... Thanks.

Suggestion To thank Quote Answer

3/7/2025 12:50 PM	Rate (0)
Murof Platinum Expert Joined: 8/3/2009 Last visit: 9/3/2025 Posts: 16322 Rating: (1931)	Hello Papiksub If you do not want to dynamize the tag directly to the output value property of the IO Field, then you can use a Script with tag trigger at the: and for Writing into the Tag you can use a Script at: If you need basic help for reading or Writing Tags in scripts then have a look at this: https://support.industry.siemens.com/cs/ww/en/view/109976624/118089674379 https://support.industry.siemens.com/cs/ww/en/view/109976624/45951188235 Bye Murof
	Last edited by: Murof at: 03/07/2025 12:52:56 If this Information really helps, you could use the Rate function
Suggestion To thank Quote Answer

3/14/2025 5:56 AM	Rate (0)
Papiksub Joined: 8/22/2024 Last visit: 8/19/2025 Posts: 6 Rating: (0)	I did this a long time ago. Just forgot about this post. The code below - maybe will help for somebody. This csript must be insert in < Output Value >. Regards....... Dim IN_OUT Dim NumberRec Dim NumberRec_1 IN_OUT = HMIRuntime.Tags("TSRec").Read DepNo = HMIRuntime.Tags("CRecTech").Read '2=Malt IN, 3=Malt OUT Set NumberRec = HMIRuntime.Tags("DCisRecV")'Malt_In Tag Set NumberRec_1 = HMIRuntime.Tags("DCisRecV_1")'Malt_Out Tag If IN_OUT = 1 Then If DepNo = 2 Then 'MALT in item.OutputValue = NumberRec.Read If item.InputValue <> NumberRec.Value Then NumberRec.Write(item.InputValue) OutputValue_Trigger = NumberRec.Read End If End If If DepNo = 3 Then 'MALT out item.OutputValue = NumberRec_1.Read If item.InputValue <> NumberRec_1.Value Then NumberRec_1.Write(item.InputValue) OutputValue_Trigger = NumberRec_1.Read End If End If Else If DepNo = 2 Then 'MALT in item.OutputValue = NumberRec.Read End If If DepNo = 3 Then 'MALT out item.OutputValue = NumberRec_1.Read End If End If

Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on