Discussion :

[Slumpy]

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

[Slumpy]

Petit up pour ma question.

En fait, j ai trouvé pourquoi j avais une erreur. C est juste que j ai oublié de preciser une date de depart (quel con !).

Donc en ajoutant pare exempole Dim adate As Date = "27/06/2005"
au depart, je n ai plus d erreur, mais ... un graphe vide. Quelqu un saurait pourquoi ?

Merci