AFCase Class

<SerializableAttribute>
Public NotInheritable Class AFCase
	Inherits AFEventFrame
	Implements IComparable(Of AFCase), IAFTrace

Dim instance As AFCase

[SerializableAttribute]
public ref class AFCase sealed : public AFEventFrame, 
	IComparable<AFCase^>, IAFTrace

[<SealedAttribute>]
[<SerializableAttribute>]
type AFCase =  
    class
        inherit AFEventFrame
        interface IComparable<AFCase>
        interface IAFTrace
    end

' This example demonstrates how to create and run a case.
' 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")

' Get 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.SetStartTime(System.DateTime.UtcNow.AddHours(-1))
myCase.SetEndTime(System.DateTime.UtcNow)

' Run the Case
Dim msgCount As Integer = 0
Dim listener As MyTraceListener = New MyTraceListener
Try
    myAnalysis.Run(myCase)
    For Each message As String In listener.GetMessages
        Console.WriteLine(message)
        msgCount += 1
    Next
    Console.WriteLine("Finished Running Case" & vbLf)
Finally
    listener.Dispose()
End Try

' Display Case Information
Console.WriteLine("Analysis Name = {0}", myCase.Analysis.Name)
Console.WriteLine("Case Start Time = {0}", myCase.StartTime.LocalTime)
Console.WriteLine("Case End Time = {0}", myCase.EndTime.LocalTime)

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.