[VB6-DEBUTANT]--MSChart plot XY--
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:
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 |
