AFAttributes Class

Public NotInheritable Class AFAttributes
	Inherits AFNamedCollection(Of AFAttribute)
	Implements IAFNamedCollection(Of IAFAttribute), ICollection(Of IAFAttribute), 
	IEnumerable(Of IAFAttribute), IEnumerable, IList(Of IAFAttribute)

Dim instance As AFAttributes

public ref class AFAttributes sealed : public AFNamedCollection<AFAttribute^>, 
	IAFNamedCollection<IAFAttribute^>, ICollection<IAFAttribute^>, IEnumerable<IAFAttribute^>, 
	IEnumerable, IList<IAFAttribute^>

[<SealedAttribute>]
type AFAttributes =  
    class
        inherit AFNamedCollection<AFAttribute>
        interface IAFNamedCollection<IAFAttribute>
        interface ICollection<IAFAttribute>
        interface IEnumerable<IAFAttribute>
        interface IEnumerable
        interface IList<IAFAttribute>
    end

' This example demonstrates how to create an attribute for an
' element and display information about it.

' Get the Database
Dim myPISystems As New PISystems
Dim myPISystem As PISystem = myPISystems.DefaultPISystem
Dim myDB As AFDatabase = myPISystem.Databases.DefaultDatabase

' Create An Element
Dim myElement As AFElement = myDB.Elements.Add("MyElement*")

' Create an Attribute
Dim CurAttribute As AFAttribute = myElement.Attributes.Add("MyAttribute")
CurAttribute.Description = "Attribute for MyElement"
CurAttribute.DefaultUOM = myPISystem.UOMDatabase.UOMs("Kelvin")
CurAttribute.DataReferencePlugIn = AFDataReference.GetPIPointDataReference(myPISystem)

' An example of a valid configuration string
' "\\%Server%\sinusoid;ptclassname=classic;pointtype=Float32;pointsource=R;descriptor=""12 Hour Sine Wave"";location2=2;location4=1"
CurAttribute.ConfigString = myConfigString

'Get Value
Dim myValue As AFValue = CurAttribute.GetValue(myPISystem.UOMDatabase.UOMs("degree Celsius"))
Console.WriteLine("Attribute Template Value = {0} {1}", myValue.Value, myValue.UOM)

' Display Attribute Information
For Each CurAttribute In myElement.Attributes
    Console.WriteLine("Name of Attribute = {0}", CurAttribute.Name)
    Console.WriteLine("Description = {0}", CurAttribute.Description)
    Console.WriteLine("Default UOM = {0}", CurAttribute.DefaultUOM.Name)
    Console.WriteLine("DataReference = {0}", CurAttribute.DataReference.Name)
    Console.WriteLine("ConfigString = {0}", CurAttribute.ConfigString)
Next CurAttribute

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.