|
' ' Create a new Subscription Extender object ' Dim SubscriptionExtender As New _
SoftwareToolbox.GUI.Extender.SubscriptionExtender
' ' Create a new Engine Object ' Dim Engine As New _
SoftwareToolbox.GUI.Extender.SWToolboxOPCDataControl
' ' Set the properties for the Subscription Extender ' SubscriptionExtender.DataCollectionEngine = Engine
' ' Set the properties for the Engine '
Engine.Computer = "127.0.0.1" Engine.Server = "SWToolbox.TOPServer"
' ' Next, define a new Extension object. The arguments passed are
' "EastRoom.Boilder.Temperature" = TagName
' 100 = Scan Rate
' 0.0 = Deadband
' True = Enabled State
' "Text" = Property Name
' DataFlowDirectionEnum.ReadOnly = Data Flow Direction
' String.Empty = Format String ' Dim Extension As New _ SoftwareToolbox.GUI.Extender.SWToolboxExtensions( _
"EastRoom.Boiler.Temperature", _ 100, _ 0.0, _
True, _ "Text", _
DataFlowDirectionEnum.ReadOnly, _ String.Empty)
' ' Bind the Extension to the Extender '
SubscriptionExtender.BindTagToProperty(Label1, Extension)
' ' And Connect! ' SubscriptionExtender.Connect()
|