Bonjour,
Ci dessous mon code. je n'arrive pas à afficher les valeurs que je récupère de GetAllValues dans un tableau et surtout comment enregistrer ce tableau de valeurs dans un fichier texte.. merci de me donner des idées =)
Code :
- Private Sub CommandButton6_Click()
- Dim FunctionData As BKDataSet
- Dim MyPulseData As Variant
- Dim maxX As Long
- Dim maxZ As Long
- Dim Entries As Long
- Dim Data As DataObject
- Set FunctionData = Project.FunctionOrganiser.FunctionGroups("LOG" ).Functions("auto1" ).FunctionData
- FunctionData.GetAllValues (True)
- 'Si le dataset est vide le GetallValues va afficher une exception
- 'Introduire une gestion des erreurs
- On Error Resume Next
- For i = 1 To 100
- MyPulseData = FunctionData.GetAllValues(True)
- If Err.Number = 0 Then
- Exit For
- End If
- Next i
- If i > 100 Then
- MsgBox Err.Description
- Exit Sub
- End If
- On Error GoTo 0 'Remise à zero des erreurs
- Entries = FunctionData.NumberOfXAxisEntries
- ReDim ValueArr(Entries - 1) As Double 'Variable de type tableau
- FunctionData.RealValues ValueArr 'Récuperation des Y
- TextBox1.Text = Entries
- Data = FunctionData.GetAllValues(True)
- TextBox2.Text = Data
- End Sub
|