GetTag e SetTag in BasicScript

Può essere comodo per migliorare la lettura del codice utilizzare due semplici funzioni per leggere o scrivere una tag in BasicScript

Di seguito il codice per leggere

Function GetTag(TagName)
Dim objTag
Set objTag = HMIRuntime.Tags(TagName)
GetTag=objTag.Read
End Function

E il codice per scrivere

Sub SetTag(TagName, TagValue)
Dim objTag
Dim iRit
Set objTag = HMIRuntime.Tags(TagName)
iRit=objTag.Write(TagValue)
End Sub

Niente di nuovo o sofisticato, ma solo la possibilità di utilizzare la vecchia sintassi del cScript per chi passa frequentemente da un ambiente all’altro risulterà piu’ ordinato il codice BasiScript.