AFConnection Class

<SerializableAttribute>
Public NotInheritable Class AFConnection
	Inherits AFObject
	Implements IComparable(Of AFConnection), IEquatable(Of AFConnection)

Dim instance As AFConnection

[SerializableAttribute]
public ref class AFConnection sealed : public AFObject, 
	IComparable<AFConnection^>, IEquatable<AFConnection^>

[<SealedAttribute>]
[<SerializableAttribute>]
type AFConnection =  
    class
        inherit AFObject
        interface IComparable<AFConnection>
        interface IEquatable<AFConnection>
    end

' This example demonstrates how to connect and disconnect elements.
' Note: This example assumes that there Is a database called "Chocolate Milk Tutorial"
' containing elements named "MilkTank1" And "MilkTank2" each with input/output ports,
' as well as an ElementTemplate named "Flow"

' Get the Database
Dim myPISystems As New PISystems
Dim myDB As AFDatabase = myPISystems.DefaultPISystem.Databases("Chocolate Milk Tutorial")

' Create a Model
Dim modelTempl As AFElementTemplate = myDB.ElementTemplates.Add("ModelTemplate")
modelTempl.InstanceType = GetType(AFModel)
Dim myModel As AFModel = CType(myDB.Elements.Add("MyModel", modelTempl), AFModel)
myModel.Description = "This Model represents a manufacturing facility"

' Get the Elements
Dim srcElement As AFElement = myDB.Elements("MilkTank1")
Dim destElement As AFElement = myDB.Elements("MilkTank2")
Dim flowElement As AFElement = myDB.Elements.Add("Flow", myDB.ElementTemplates("Flow"))
myDB.ApplyChanges()

' Add Elements to Model
myModel.Elements.Add(srcElement)
myModel.Elements.Add(destElement)
myModel.Elements.Add(flowElement)

' Connect the Elements
Dim conn1 As AFConnection = myModel.Connections.Add(srcElement.DefaultOutputPort,
    flowElement.DefaultInputPort)
Dim conn2 As AFConnection = myModel.Connections.Add(flowElement.DefaultOutputPort,
    destElement.DefaultInputPort)

'Display Information about each Connection
Console.WriteLine("Connection Count = {0}", myModel.Connections.Count)
Dim CurConn As AFConnection
For Each CurConn In myModel.Connections
    Console.WriteLine("Name of Model = {0}", CurConn.Model.Name)
    Console.WriteLine("Source = {0}", CurConn.Source)
    Console.WriteLine("Source Port = {0}", CurConn.SourcePort)
    Console.WriteLine("Destination = {0}", CurConn.Destination)
    Console.WriteLine("Destination Port = {0}", CurConn.DestinationPort)
Next CurConn

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.