ILanerResultsBox.Results

Синтаксис Fore

Синтаксис Fore.NET

Results: Prognoz.Platform.Interop.Express.ILanerResultsBoxResults;

Описание

Свойство Results возвращает набор объектов, предназначенных для работы со вкладками на панели «Результаты вычислений».

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с идентификатором «Button1», компонента LanerBox, компонента LanerResultsBox с идентификатором «LanerResultsBox1» и компонента UiErAnalyzer, являющегося источником данных для LanerBox и LanerResultsBox. В «UiErAnalyzer1» должна быть загружена рабочая книга базы данных временных рядов.

Пример является обработчиком события OnClick для кнопки.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Results: ILanerResultsBoxResults;
    Statistics: ILanerResultsBoxStatistics;
    HasContainers: Boolean;
    CurContainer: Integer;
    i: Integer;
    marg: String;
Begin
    Results := LanerResultsBox1.Results;
    Statistics := Results.Statistics;
    HasContainers := (Statistics.Count <> 0) And (Statistics.GroupIndex(0) <> -1);
    CurContainer := -1;
    For i := 0 To Statistics.Count - 1 Do
        Statistics.Enabled(i) := Statistics.Active(i);
        If Statistics.Enabled(i) Then
            If (HasContainers And (CurContainer <> Statistics.GroupIndex(i))) Then
                marg := "----";
                Debug.WriteLine(Statistics.GroupName(i));
            End If;
            CurContainer := Statistics.GroupIndex(i);
            Debug.WriteLine(marg + Statistics.Name(i) + "       " + Statistics.Value(i));
        End If;
        Select Case Statistics.Type(i)
            Case LanerBoxStatisticType.Min: Statistics.Enabled(i) := False;
            Case LanerBoxStatisticType.Max: Statistics.Enabled(i) := False;
        End Select;
    End For;
    LanerResultsBox1.RefreshContainer(LanerBoxContainerType.Results);
End Sub Button1OnClick;

После выполнения примера в окно консоли будут выведены значения всех статистик, доступных для выделенного ряда. Для каждой характеристики будет выведено наименование, значение и наименование группы, в которой она содержится (если группа присутствует). На вкладке «Статистические характеристики» будут скрыты характеристики «Максимум» и «Минимум».

Пример Fore.NET

Для выполнения примера предполагается наличие формы .NET, расположенной на ней кнопки с идентификатором «button1», компонента LanerBoxNet, компонента LanerResultBoxNet с идентификатором «LanerResultBoxNet1» и компонента UiErAnalyzerNet, являющегося источником данных для LanerBoxNet и LanerResultBoxNet. В «UiErAnalyzerNet1» должна быть загружена рабочая книга базы данных временных рядов.

Пример является обработчиком события Click для кнопки.

Imports Prognoz.Platform.Interop.Express;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    Results: ILanerResultsBoxResults;
    Statistics: ILanerResultsBoxStatistics;
    HasContainers: Boolean;
    CurContainer: Integer;
    i: Integer;
    marg: String;
Begin
    Results := LanerResultBoxNet1.CtrlBox.Results;
    Statistics := Results.Statistics;
    HasContainers := (Statistics.Count <> 0) And (Statistics.GroupIndex[0] <> -1);
    CurContainer := -1;
    For i := 0 To Statistics.Count - 1 Do
        Statistics.Enabled[i] := Statistics.Active[i];
        If Statistics.Enabled[i] Then
            If (HasContainers And (CurContainer <> Statistics.GroupIndex[i])) Then
                marg := "----";
                System.Diagnostics.Debug.WriteLine(Statistics.GroupName[i]);
            End If;
            CurContainer := Statistics.GroupIndex[i];
            System.Diagnostics.Debug.WriteLine(marg + Statistics.Name[i] + "       " + Statistics.Value[i]);
        End If;
        Select Case Statistics.Type[i]
            Case LanerBoxStatisticType.lbstMin: Statistics.Enabled[i] := False;
            Case LanerBoxStatisticType.lbstMax: Statistics.Enabled[i] := False;
        End Select;
    End For;
    LanerResultBoxNet1.Refresh();
End Sub;

См. также: