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
aktualisiert.