AFResults Class

Public NotInheritable Class AFResults
	Inherits AFCollection(Of AFResult)
	Implements IAFTrace

Dim instance As AFResults

public ref class AFResults sealed : public AFCollection<AFResult^>, 
	IAFTrace

[<SealedAttribute>]
type AFResults =  
    class
        inherit AFCollection<AFResult>
        interface IAFTrace
    end

' This example will create a case, collect inputs,
' and then display information on one of the results.
' Note: This example assumes that there is a database called "Chocolate Milk Tutorial"
' containing a Model named "ChocolateMilkModel", with a Model Analysis
' named "Volume Balance"

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

' Set the Model Analysis
Dim myAnalysis As AFAnalysis = AFAnalysis.FindAnalyses(myDB, "ChocolateMilkModel::Volume Balance",
    AFSearchField.Name, AFSortField.Name, AFSortOrder.Descending, 1)(0)

' Create the Case
Dim myCase As AFCase = myAnalysis.AddCase
myCase.CollectInputs()

' Display the number of Inputs and Outputs along with the number of bad inputs and outputs
Console.WriteLine("Total number of Results = {0}", myCase.Results.Count)
Console.WriteLine("Total number of Inputs = {0}", myCase.Results.CountInputs)
Console.WriteLine("Total number of Bad Inputs = {0}", myCase.Results.CountInputsBad)
Console.WriteLine("Total number of Outputs = {0}", myCase.Results.CountOutputs)
Console.WriteLine("Total number of Bad Outputs = {0}", myCase.Results.CountOutputsBad)

' Make an Adjustment to the first Result
myCase.Results(0).Adjustments.Add("Example creator", "This is an Adjustment to a Result",
    25, myCase.Results(0).Attribute.DefaultUOM)

' Display each result
Console.WriteLine()
Dim CurResult As AFResult
For Each CurResult In myCase.Results
    Console.WriteLine("Name of Result = {0}", CurResult.Name)
    Console.WriteLine("Element represented by Result = {0}", CurResult.Attribute.Element.Name)
    Console.WriteLine("Attribute represented by Result= {0}", CurResult.Attribute.Name)
    Console.WriteLine("Value of Result = {0}", CurResult.Value.Value)
    Console.WriteLine()
Next CurResult

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.