Write Method Example

The following example:

• Creates a data system ocx FDS;
• Adds a data GroupDataGroup1 to the Groups collection;
• Adds a DataItem to the DataItems collection;
• Writes the value of the GroupDataGroup1;
• Writes a value of 45 to the DataItem

 

'Create the Data System OCX

Dim FDS As Object

Set FDS = CreateObject("FixDataSystems.Intellution FD Data System Control")

'Add a group to the Groups collection

FDS.Groups.Add ("DataGroup1")

FDS.Groups.Item("DataGroup1").DataItems.Add("Fix32.THISNODE.AI1.F_CV")

'Write DataGroup1

FDS.Groups.Item("DataGroup1").Write

'Write the DataItem

FDS.Groups.Item("DataGroup1").DataItems.Item(1).Write(45)