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.
Scrivi un commento
Devi accedere, per commentare.