Why does the VB code not work as intended

Please also see the attached screenshots.

I have (base on a somewhat similar VB script) tied to make a VB script to do the following:

A value (between 0 and 450) is typed into WinCC (Rec_19).

If Rec_19 < 300 the value 45 is written into Rec_18.

If Rec_19 > 300 the valy 35 is written into Rec_18.

But unfortunately when I run the OS similation the value of Rec_18 stays at 0 no matter what value I type into Rec_19.

What is wrong with the VB scripts and how must the script look to do as intended?

Thank you for answering.

You are usually right(this time with the SmartTags - but the script below is used on a picture (from another but similar machine) that is very similar to the one I am trying to use it on - there are just a few more of the smart tags used in the picture - which is NOT a faceplate. And the logic is working there:

Sub OutputValue_OnPropertyChanged(ByVal Item, ByVal value)

bg2492

Hello xmnj,

in your screenshot I can see, that the tags, you have connected
to the I/O-Fiels have the names "MaskineRecpt_REC018" and
"MaskineRecpt_REC019", and not only "REC018" or "REC019".

"SmartTags" are used in WinCC V7.x only in Faceplats, but I think,
this no faceplate, and you need to use the read-method

see eyample 'VBS136
Dim objTag
Set objTag = HMIRuntime.Tags("Tag1")
objTag.Read
objTag.Value = objTag.Value + 1
objTag.Write

Regards

Georg Berghof

Hello again Georg,

Please look at the attached acreenshots.

1. I don't know why our automation vendor have used the Internal tags ("MaskineRecpt_REC018" and "MaskineRecpt_REC019") as the output value and the TCP/IP tags ("REC018" or "REC019") as the variable in the VB script. But they did this and it is working on that machine. I will try to use "REC018" or "REC019" in both cases but what are the internal tags used for in that case?

2. I am sure you are right but in this WinCC 7.5 machine the script is as I have shown with the screenshots and it is actually working. I would prefer to make the new logic as similar as possible to the existing logic since it will create confusion is each man with a PG decide to do it in his own way.

I will try to RTFM but you are often much better of explaining things. :-)

bg2492

Hello xmnj,

1. there is the question about the different tagnames.
"MaskineRecpt_REC018" and "MaskineRecpt_REC019"
and only "REC018" or "REC019".

2. in WinCC V7.x the "SmartTags" are only used in Faceplats,
and the "SmartTags" are not known in the WinCC-Tagmanagent,
and vice versa.

There are some examples for reading and writing WinCC-Tags
in the manual:
"SIMATIC HMI WinCC V7.5 SP2 WinCC Information System"
"Examples in WinCC"

https://support.industry.siemens.com/cs/ww/en/view/109792585/45950901771

Regards

Georg Berghof

Sub OutputValue_OnPropertyChanged(ByVal Item, ByVal value)