Salut,


Ca fait un moment que je me prend la tete sur la maniere de tracer un graph XY ou X sont des dates et Y des valeurs.

Quelqu un pourrait m expliquer pourquoi si j utilise le code suivant :

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
 Dim chrt As ChChart
 
        Dim X(10)
        Dim Y(10)
 
        For index As Integer = 1 To 10
            X(index) = index
            Y(index) = index * 2
        Next
 
        If AxChart.Charts.Count > 0 Then
            AxChart.Charts.Delete(0)
        End If
        chrt = AxChart.Charts.Add(0)
 
        chrt.Type = ChartChartTypeEnum.chChartTypeScatterMarkers
 
 
        chrt.SeriesCollection.Add(0)
        chrt.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimXValues, ChartSpecialDataSourcesEnum.chDataLiteral, X)
        chrt.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimYValues, ChartSpecialDataSourcesEnum.chDataLiteral, Y)
J obtiens bien un graphe XY ( meme si mes abscisses sont des entiers), mais si j utilise le code suivant :

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
Dim chrt As ChChart
 
        Dim X(10) As Date
        Dim Y(10)
 
        Dim adate As Date
        For index As Integer = 1 To 10
            adate = adate.AddDays(1)
            X(index) = adate
            Y(index) = index * 2
        Next
 
        If AxChart.Charts.Count > 0 Then
            AxChart.Charts.Delete(0)
        End If
        chrt = AxChart.Charts.Add(0)
 
        chrt.Type = ChartChartTypeEnum.chChartTypeScatterMarkers
 
 
        chrt.SeriesCollection.Add(0)
        chrt.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimXValues, ChartSpecialDataSourcesEnum.chDataLiteral, X)
        chrt.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimYValues, ChartSpecialDataSourcesEnum.chDataLiteral, Y)
J ai une erreur a l avant derniere ligne disant : Date OleAut illégale.

En fait, j avoue que je ne comprend pas ce que signifie c deux lignes :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 chrt.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimXValues, ChartSpecialDataSourcesEnum.chDataLiteral, X)
        chrt.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimYValues, ChartSpecialDataSourcesEnum.chDataLiteral, Y)
Si quelqu un pouvait m eclairer

Merci

Slumpy