Bonjour,

J'essaye de visualiser des données avec un MSChart, j'arrive dans un premier temps à visualiser une donnée en fonction du temps (graph en ligne). Mais lorsque je veux visualiser mes données en graph XY les donnes ne s'affiche pas comme voulu. J'ai l'impression que mon X est le même pour tous mes Y.

Il est possible qu'il y ait une erreur dans mon code, ou une astuce que je n'ai pas découvert.

Merci de jeter un œil dessus....
A+
Greg

Voici le
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub Command7_Click()
Dim echantillonnage As String
Dim nbre_acqui As String
Dim frequence As String
Dim nbre_cycle As String
 
 
 
 
E = Comms1.Read("BA27", "Amplitude", WaitUntilComplete)
F = Comms1.Read("BA27", "Fréquence", WaitUntilComplete)
G = Comms1.Read("BA27", "Nombre_cycle", WaitUntilComplete)
 
echantillonnage = 0.002
frequence = F
nbre_cycle = G
nbre_acqui = ((1 / frequence) * nbre_cycle) / echantillonnage
 
Text9.Text = nbre_acqui
 
D = Comms1.ReadArea("D27000", nbre_acqui, vbInteger)
 
A = Comms1.ReadArea("D10000", nbre_acqui, vbInteger)
 
 
 
   ReDim C1(1 To nbre_acqui, 1 To 2) As String
   Dim i As Integer
   C1(1, 1) = "Position"
   C1(1, 2) = "Effort"
 
 
   For i = 2 To nbre_acqui - 1
   C1(i, 1) = (D(i) * 14) + 106
   C1(i, 2) = A(i) / 100
   Next i
 
   MSChart1.chartType = VtChChartType2dXY
 
   MSChart1.ChartData = C1
 
 
 
End Sub