AFModelAnalysis Class

<SerializableAttribute>
Public NotInheritable Class AFModelAnalysis
	Inherits AFAnalysis
	Implements IComparable(Of AFModelAnalysis)

Dim instance As AFModelAnalysis

[SerializableAttribute]
public ref class AFModelAnalysis sealed : public AFAnalysis, 
	IComparable<AFModelAnalysis^>

[<SealedAttribute>]
[<SerializableAttribute>]
type AFModelAnalysis =  
    class
        inherit AFAnalysis
        interface IComparable<AFModelAnalysis>
    end

' This example demonstrates how to create a model analysis And configure
' its analysis rule and time rule.

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

' Create an Element with an Attribute
Dim myElement As AFElement = myDB.Elements.Add("MyElement")
Dim myAttribute As AFAttribute = myElement.Attributes.Add("MyAttribute")
myAttribute.DataReferencePlugIn = AFDataReference.GetPIPointDataReference(myPISystem)
myAttribute.DataReference.ConfigString = "\\%Server%\sinusoid"

' Create an Analysis and set its Target to the Element
Dim myAnalysis As New AFAnalysis(myDB, "MyAnalysis")
myAnalysis.Description = "This is an analysis example"
myAnalysis.Target = myElement

' Set the Analysis Rule and Time Rule
myAnalysis.AnalysisRulePlugIn = myPISystem.AnalysisRulePlugIns("Imbalance")
myAnalysis.TimeRulePlugIn = myPISystem.TimeRulePlugIns("Periodic")
myAnalysis.AnalysisRule.ConfigString = "Balance=Volume;Imbalance=Volume Imbalance;UOM=US gal"
myAnalysis.TimeRule.ConfigString = "Frequency=3600"

' Display the Name, Description, and Target
Console.WriteLine("Name = {0}", myAnalysis.Name)
Console.WriteLine("Description = {0}", myAnalysis.Description)
Console.WriteLine("Target = {0}", myAnalysis.Target)

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.