

'Declaration<CLSCompliantAttribute(False)> <ComVisibleAttribute(True)> <GuidAttribute("A506D7B7-0886-4A2F-AD95-7078D666F812")> <InterfaceTypeAttribute(ComInterfaceType.InterfaceIsDual)> Public Interface _EasyDAItemChangedEventArgs
'UsageDim instance As _EasyDAItemChangedEventArgs
[CLSCompliant(false)] [ComVisible(true)] [Guid("A506D7B7-0886-4A2F-AD95-7078D666F812")] [InterfaceType(ComInterfaceType.InterfaceIsDual)] public interface _EasyDAItemChangedEventArgs
[CLSCompliant(false)] [ComVisible(true)] [Guid("A506D7B7-0886-4A2F-AD95-7078D666F812")] [InterfaceType(ComInterfaceType.InterfaceIsDual)] public interface class _EasyDAItemChangedEventArgs
This member or type is for use from COM. It is not meant to be used from .NET or Python. Refer to the corresponding .NET member or type instead, if you are developing in .NET or Python.
Rem This example subscribes to changes of 2 items separately, and displays rich information available with each item changed Rem event notification. Rem Rem Find all latest examples here: https://www.doc-that.com/files/onlinedocs/OPCLabs-ConnectivityStudio/Latest/examples.html . Rem OPC client and subscriber examples in VBScript on GitHub: https://github.com/OPCLabs/Examples-ConnectivityStudio-VBScript . Rem Missing some example? Ask us for it on our Online Forums, https://forum.opclabs.com/forum/index ! You do not have to own Rem a commercial license in order to use Online Forums, and we reply to every post. Option Explicit Dim Client: Set Client = CreateObject("OpcLabs.EasyOpc.DataAccess.EasyDAClient") WScript.ConnectObject Client, "Client_" Client.SubscribeItem "", "OPCLabs.KitServer.2", "Simulation.Random", 5*1000 Client.SubscribeItem "", "OPCLabs.KitServer.2", "Trends.Ramp (1 min)", 5*1000 WScript.Echo "Processing item changed events for 1 minute..." WScript.Sleep 60*1000 Sub Client_ItemChanged(Sender, e) On Error Resume Next WScript.Echo WScript.Echo "e.Arguments.State: " & e.Arguments.State WScript.Echo "e.Arguments.ServerDescriptor.MachineName: " & e.Arguments.ServerDescriptor.MachineName WScript.Echo "e.Arguments.ServerDescriptor.ServerClass: " & e.Arguments.ServerDescriptor.ServerClass WScript.Echo "e.Arguments.ItemDescriptor.ItemId: " & e.Arguments.ItemDescriptor.ItemId WScript.Echo "e.Arguments.ItemDescriptor.AccessPath: " & e.Arguments.ItemDescriptor.AccessPath WScript.Echo "e.Arguments.ItemDescriptor.RequestedDataType: " & e.Arguments.ItemDescriptor.RequestedDataType WScript.Echo "e.Arguments.GroupParameters.Locale: " & e.Arguments.GroupParameters.Locale WScript.Echo "e.Arguments.GroupParameters.RequestedUpdateRate: " & e.Arguments.GroupParameters.RequestedUpdateRate WScript.Echo "e.Arguments.GroupParameters.PercentDeadband: " & e.Arguments.GroupParameters.PercentDeadband WScript.Echo "e.Exception.Message: " & e.Exception.Message WScript.Echo "e.Exception.Source: " & e.Exception.Source WScript.Echo "e.Exception.ErrorCode: " & e.Exception.ErrorCode WScript.Echo "e.Vtq.Value: " & e.Vtq.Value WScript.Echo "e.Vtq.Timestamp: " & e.Vtq.Timestamp WScript.Echo "e.Vtq.TimestampLocal: " & e.Vtq.TimestampLocal WScript.Echo "e.Vtq.Quality: " & e.Vtq.Quality End Sub