Calcul valeur crête crête d’un signal

SupportCommunity Automation and VBA Calcul valeur crête crête d’un signal

Ansicht von 3 Beiträgen - 1 bis 3 (von insgesamt 3)
  • Autor
    Beiträge
  • #12389
    Bertrand SIMONBertrand SIMON
    Mitglied

    Bonjour, voici un code qui me permet de calculer une valeur crête à crête d’un signal.

    Private Sub Calcc_Click()
    ‘configuration des variables
    Dim p1 As Long
    Dim p2 As Long
    Dim voie As String

    ‘Attribution des variables
    ActiveDatabase.ActiveObject.Cursor(fpCursorMinX).Active = True
    p1 = ActiveDatabase.ActiveObject.ActiveCursor.PositionIndex
    ActiveDatabase.ActiveObject.Cursor(fpCursorMaxX).Active = True
    p2 = ActiveDatabase.ActiveObject.ActiveCursor.PositionIndex
    voie = InputBox(“Entrez le nom de la voie”)

    ‘calcul de la valeur crête à crête
    Dim min As StatisticQuantityAnalysis
    Set min = ActiveDatabase.ActiveFolder.Add(“min”, fpObjectTypeStatisticQuantity)
    With min
    .DataSet = voie + “[” & CStr(p1) & “,” & CStr(p2) & “]”
    .Quantity = fpStatisticQuantityMinimum
    .Update
    End With

    Dim max As StatisticQuantityAnalysis
    Set max = ActiveDatabase.ActiveFolder.Add(“max”, fpObjectTypeStatisticQuantity)
    With max
    .DataSet = voie + “[” & CStr(p3) & “,” & CStr(p4) & “]”
    .Quantity = fpStatisticQuantityMaximum
    .Update
    End With

    Mi = min.Value
    Ma = max.Value
    cc = Ma – Mi

    ‘Intégration de la valeur dans le graphique
    ActiveDatabase.ActiveObject.Pages(1).Item(1).Select
    ActiveDatabase.ActiveObject.Pages(1).Item(1).DocObject.Open = True
    With _
    ActiveDatabase.ActiveObject.Pages(1).Item(1).DocObject.Shapes.AddTextLabel(130, -55)
    .Text = “Valeur cc:” & cc
    .Select
    End With
    ActiveDatabase.ActiveObject.Pages(1).Item(1).DocObject.Selection.Collapse
    ActiveDatabase.ActiveObject.Pages(1).Item(1).DocObject.Open = False
    End Sub

    La valeur de “cc” est toujours égale à 0. Pourquoi?

    Salutation

    #8072
    Bertrand SIMONBertrand SIMON
    Mitglied

    Bonjour, voici un code qui me permet de calculer une valeur crête à crête d’un signal.

    Private Sub Calcc_Click()
    ‘configuration des variables
    Dim p1 As Long
    Dim p2 As Long
    Dim voie As String

    ‘Attribution des variables
    ActiveDatabase.ActiveObject.Cursor(fpCursorMinX).Active = True
    p1 = ActiveDatabase.ActiveObject.ActiveCursor.PositionIndex
    ActiveDatabase.ActiveObject.Cursor(fpCursorMaxX).Active = True
    p2 = ActiveDatabase.ActiveObject.ActiveCursor.PositionIndex
    voie = InputBox(“Entrez le nom de la voie”)

    ‘calcul de la valeur crête à crête
    Dim min As StatisticQuantityAnalysis
    Set min = ActiveDatabase.ActiveFolder.Add(“min”, fpObjectTypeStatisticQuantity)
    With min
    .DataSet = voie + “[” & CStr(p1) & “,” & CStr(p2) & “]”
    .Quantity = fpStatisticQuantityMinimum
    .Update
    End With

    Dim max As StatisticQuantityAnalysis
    Set max = ActiveDatabase.ActiveFolder.Add(“max”, fpObjectTypeStatisticQuantity)
    With max
    .DataSet = voie + “[” & CStr(p3) & “,” & CStr(p4) & “]”
    .Quantity = fpStatisticQuantityMaximum
    .Update
    End With

    Mi = min.Value
    Ma = max.Value
    cc = Ma – Mi

    ‘Intégration de la valeur dans le graphique
    ActiveDatabase.ActiveObject.Pages(1).Item(1).Select
    ActiveDatabase.ActiveObject.Pages(1).Item(1).DocObject.Open = True
    With _
    ActiveDatabase.ActiveObject.Pages(1).Item(1).DocObject.Shapes.AddTextLabel(130, -55)
    .Text = “Valeur cc:” & cc
    .Select
    End With
    ActiveDatabase.ActiveObject.Pages(1).Item(1).DocObject.Selection.Collapse
    ActiveDatabase.ActiveObject.Pages(1).Item(1).DocObject.Open = False
    End Sub

    La valeur de “cc” est toujours égale à 0. Pourquoi?

    Salutation

    #8596
    Bernhard KantzBernhard Kantz
    Moderator

    Whitout the database and without knowing the data this is difficult to say. You should check the values of p1, p2 and p3, p4 (not declared?) in the debugger.
    Please note that we can’t give general programming support here.

    Support
    support@weisang.com

Ansicht von 3 Beiträgen - 1 bis 3 (von insgesamt 3)
  • Du musst angemeldet sein, um auf dieses Thema antworten zu können.