AFAttribute Class

<SerializableAttribute>
Public NotInheritable Class AFAttribute
	Inherits AFObject
	Implements IAFAttribute, IAFTimeSource, IComparable(Of AFAttribute)

Dim instance As AFAttribute

[SerializableAttribute]
public ref class AFAttribute sealed : public AFObject, 
	IAFAttribute, IAFTimeSource, IComparable<AFAttribute^>

[<SealedAttribute>]
[<SerializableAttribute>]
type AFAttribute =  
    class
        inherit AFObject
        interface IAFAttribute
        interface IAFTimeSource
        interface IComparable<AFAttribute>
    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.