# Forum FlexPro – Discuss your topic!

## Calcul valeur crÃªte crÃªte d’un signal

Home > Community > 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 SIMON
Teilnehmer

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

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
With min
.DataSet = voie + “[” & CStr(p1) & “,” & CStr(p2) & “]”
.Quantity = fpStatisticQuantityMinimum
.Update
End With

Dim max As StatisticQuantityAnalysis
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 _
.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 SIMON
Teilnehmer

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

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
With min
.DataSet = voie + “[” & CStr(p1) & “,” & CStr(p2) & “]”
.Quantity = fpStatisticQuantityMinimum
.Update
End With

Dim max As StatisticQuantityAnalysis
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 _
.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 Kantz
Teilnehmer

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.