IMsUserOptimizationCallback.OnExecute

Копировать пример

Public Class UserClass: Object, IMsUserOptimizationCallback
    Private m_iValue: Integer = 0;
    Private m_strLog: String;

    Public Sub OnLoad(Xml: IXMLDOMElement);
    Begin
        m_iValue := xml.getAttribute("CAT");
    End Sub OnLoad;

    Public Sub OnSave(Xml: IXMLDOMElement);
    Begin
    End Sub OnSave;

    Public Sub OnBeforeExecute(Calculation: IMsMethodCalculation; Coord: IMsFormulaTransformCoord; Problem: IMsUserOptimizationProblem);
    Begin
    End Sub OnBeforeExecute;

    Public Sub OnExecute(Runtime: IMsUORuntime);
    Var
        pControl: IMsUORuntimeControlTerm;
        pConstraint: IMsUORuntimeConstraint;
    Begin
        pControl := Runtime.ControlVariables.Item(0);
        pConstraint := Runtime.Constraints.Item(0);
        // Выведем информацию о расчёте задачи в информационном диалоге
        ResetLog;
        LogLine("Дата: " + CultureInfo.Current.FormatShortDate(Runtime.Calculation.CurrentPoint));
        LogLine("Управляющая переменная: " + pControl.GenerateString + " = " + (pControl.Value As String) + " (" + m_iValue.ToString + ")");
        LogLine("Выражение ограничения: " + pConstraint.GenerateStringL + " <= " + pConstraint.GenerateStringM + " <= " + pConstraint.GenerateStringH);
        LogLine("Значение выражения: " + (pConstraint.ExecuteL As String) + " <= " + (pConstraint.ExecuteM As String) + " <= " + (pConstraint.ExecuteH As String));
        LogLine("Целевая функция: " + Runtime.CriterionFunction.GenerateString + " = " + (Runtime.CriterionFunction.Execute As String));
        WinApplication.InformationBox(m_strLog);
    End Sub OnExecute;

    Public Sub OnAfterExecute(Calculation: IMsMethodCalculation; Coord: IMsFormulaTransformCoord; Problem: IMsUserOptimizationProblem);
    Begin
    End Sub OnAfterExecute;

    Public Sub OnSetupParams(Params: IMsModelParams);
    Begin
    End Sub OnSetupParams;

    Private Sub ResetLog;
    Begin
        m_strLog := "";
    End Sub ResetLog;

    Private Sub LogLine(strLine: String);
    Begin
        If Not m_strLog.IsEmpty Then
            m_strLog := m_strLog + #13 + #10;
        End If;
        m_strLog := m_strLog + strLine;
        Debug.WriteLine(strLine);
    End Sub LogLine;
End Class UserClass;