trop de dates sur mon ascbisse [updated]

Version imprimable

Salut,

Pour tracer mon graph, j utilise la subroutine suivante, Mais, je me retrouve avec une date en absisse pour chaque valeur que je souhaite tracer. (voir : http://www.tes-images.com/view.php?i...52949_plot.JPG)

Si quelqu un pouvait m aider a "filtrer" l affichage de date en absisse, ca m aiderait bcp, car j y ai passé pas mal de temps sans succes (voir fin du code)... :(

Merci

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Private Sub Plot(ByVal aPercentorProbaDico As SortedDictionary(Of String, MyPercentorProbaWindowData), ByVal aPattern As MyPercentorProbaWindowData)
 
        'Initialisation
        If AxChart.Charts.Count > 0 Then
            AxChart.Charts.Delete(0)
        End If
        chrt = AxChart.Charts.Add()
        chrt.Type = ChartChartTypeEnum.chChartTypeLine
        chrt.HasTitle = True
        chrt.Title.Caption = "FAST FORWARD FORECAST SENARIOS"
        chrt.HasLegend = True
        chrt.Legend.Position = ChartLegendPositionEnum.chLegendPositionBottom
        chrt.HasAutoAspectRatio = True
        chrt.HasAutoChartDepth = True
        chrt.Border.Color = "#FFFBF0"
        chrt.PlotArea.Interior.Color = "#FFFBF0"
 
        Dim aSerieCollection As Integer = -1
        For Each aserie As String In aPercentorProbaDico.Keys
            aSerieCollection = aSerieCollection + 1
 
            Dim X(aPercentorProbaDico(aserie).CumDepths.Count) As String
            Dim Y(aPercentorProbaDico(aserie).CumDepths.Count)
 
            Dim index As Integer = 0
            Dim diffyearpredictiontimeserie As Integer = _StartDatePrediction.Year - aPercentorProbaDico(aserie).StartWindowDate.Year
            If aPattern Is Nothing Then
                For Each adate As DateTime In aPercentorProbaDico(aserie).CumDepthsFitted.Keys
                    X(index) = CStr(adate.AddYears(diffyearpredictiontimeserie))
                    Y(index) = aPercentorProbaDico(aserie).CumDepthsFitted(adate)
                    index = index + 1
                Next
            Else
                Dim diffyearPatternTimeserie As Integer = aPattern.StartWindowDate.Year - aPercentorProbaDico(aserie).StartWindowDate.Year
                For Each adate As DateTime In aPercentorProbaDico(aserie).CumDepthsFitted.Keys
                    X(index) = CStr(adate.AddYears(diffyearpredictiontimeserie))
                    'Y(index) = aPercentorProbaDico(aserie).CumDepthsFitted(adate)
                    Y(index) = aPattern.CumDepthsFitted(adate.AddYears(diffyearPatternTimeserie)) * aPercentorProbaDico(aserie).ExactValue / aPattern.ExactValue
                    index = index + 1
                Next
 
            End If
 
            chrt.SeriesCollection.Add(aSerieCollection)
 
            chrt.SeriesCollection(aSerieCollection).Caption = CStr(aserie)
            chrt.SeriesCollection(aSerieCollection).SetData(ChartDimensionsEnum.chDimCategories, Convert.ToInt32(ChartSpecialDataSourcesEnum.chDataLiteral), Join(X, vbTab))
            chrt.SeriesCollection(aSerieCollection).SetData(ChartDimensionsEnum.chDimValues, Convert.ToInt32(ChartSpecialDataSourcesEnum.chDataLiteral), Join(Y, vbTab))
            'chrt.Axes(ChartDimensionsEnum.chD).NumberFormat = "dd/MM/yyyy"
            'chrt.Axes(ChartDimensionsEnum.chDimCategories).TickLabelUnitType = ChartAxisUnitTypeEnum.chAxisUnitDay
            ' chrt.Axes(ChartDimensionsEnum.chDimXValues).TickLabelUnitType = ChartAxisUnitTypeEnum.chAxisUnitMonth
            'chrt.Axes(ChartAxisPositionEnum.chAxisPositionCategory).HasAutoMinorUnit = True
 
 
 
        Next
 
 
    End Sub

16/04/2008, 18h12
Totanne

Vu la longueur du code j'avais la flème de le lire et j'ai donc regardé la capture d'écran que tu fournis (On préfère toujours regarder les images :D)
Effectivement, y a un paquet de dates ...
Ca serait peut-être plus sympa pour l'utilisateur d'avoir le rendu d'une seule date quand il balade sa souris sur les courbes ?
Et si tu veux t'emmerder, quitte a mettre la date dans un label, un fond transparent avec la date qui suit le curseur de la souris ...
17/04/2008, 09h45
Slumpy
Salut,

merci d avoir pris la peine de repondre :king:

En fait, je suis quasiment sur qu il y a un moyen de grouper les dates d un axe avec ce genre de code :
Code:

1 2 chrt.Axes(ChartDimensionsEnum.chD).NumberFormat = "dd/MM/yyyy" chrt.Axes(ChartDimensionsEnum.chDimCategories).TickLabelUnitType = ChartAxisUnitTypeEnum.chAxisUnitMonth
Mais je ne sais pas pourquoi ... ca ne marche po :?
17/04/2008, 21h20
Slumpy

double post sry

1 pièce(s) jointe(s)

resalut,

Juste une petite reponse pour poster un code reduit qui me donne le meme probleme.

screenshot : http://img379.imageshack.us/img379/5...nstitreyk9.jpg

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Plot()
 
        If AxChart.Charts.Count > 0 Then
            AxChart.Charts.Delete(0)
        End If
        chrt = AxChart.Charts.Add()
        chrt.Type = ChartChartTypeEnum.chChartTypeLine
 
        Dim X(365) As String
        Dim Y(365)
        Dim adate As Date = "31 dec 2007"
 
        For index As Integer = 1 To 365
            X(index) = CStr(adate.AddDays(index))
            Y(index) = index + 100
        Next
 
        chrt.SeriesCollection.Add(0)
        chrt.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimCategories, Convert.ToInt32(ChartSpecialDataSourcesEnum.chDataLiteral), Join(X, vbTab))
        chrt.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimValues, Convert.ToInt32(ChartSpecialDataSourcesEnum.chDataLiteral), Join(Y, vbTab))
 
    End Sub

mon probleme est que sur l axe des abscisses, je ne voudrais pas afficher chaque jour, mais par exemple chaque mois ...

Merci

Slumpy

PS : je joints aussi le projet reduit developpé avec VS2005

Salut,

suis tjs sur mon probleme, mais j avance :aie:

Si j ai bien compris comment ca marche, mon principal probleme faisant que je n arrivais pas a filtrer les dates etait que X etait defini comme string. Apparemment faut le laisser en objet.
L autre point est que j ai viré Join(X, vbTab), et applique directement le vecteur X.

Mon code actuel est donc le suivant :
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 Private Sub Plot() If AxChart.Charts.Count > 0 Then AxChart.Charts.Delete(0) End If chrt = AxChart.Charts.Add() chrt.Type = ChartChartTypeEnum.chChartTypeLineStackedMarkers AxChart.Charts(0).Axes(ChartAxisPositionEnum.chAxisPositionCategory).GroupingType = ChartAxisGroupingEnum.chAxisGroupingNone Dim X(13) Dim Y(13) Dim adate As Date = "01 dec 2007" For index As Integer = 0 To 13 X(index) = adate.AddDays(index) Y(index) = index + 100 Console.WriteLine("index: " & index & "X: " & CDate(X(index)).ToString("dd MMM yyyy") & " Y: " & Y(index)) Next chrt.SeriesCollection.Add(0) chrt.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimCategories, ChartSpecialDataSourcesEnum.chDataLiteral, X) chrt.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, Y) AxChart.Charts(0).Axes(ChartAxisPositionEnum.chAxisPositionCategory).GroupingType = ChartAxisGroupingEnum.chAxisGroupingManual AxChart.Charts(0).Axes(ChartAxisPositionEnum.chAxisPositionCategory).TickLabelUnitType = ChartAxisUnitTypeEnum.chAxisUnitMonth AxChart.Charts(0).Axes(AxChart.Constants.chAxisPositionCategory).GroupingUnit = 1 AxChart.Charts(0).Axes(ChartAxisPositionEnum.chAxisPositionCategory).NumberFormat = "dd MMM yyyy" End Sub
Si je modifie :

Code:

AxChart.Charts(0).Axes(ChartAxisPositionEnum.chAxisPositionCategory).TickLabelUnitType = ChartAxisUnitTypeEnum.chAxisUnitMonth

pour par exemple

Code:

AxChart.Charts(0).Axes(ChartAxisPositionEnum.chAxisPositionCategory).TickLabelUnitType = ChartAxisUnitTypeEnum.chAxisUnitDay

le graph va etre tracé avec une valeur par jour et non plus mois YOOUUUUPPIII. :yaisse2:

Sauf que maintenant j ai un probleme de date :evilred:
D apres mon code, je devrais avoir des valeurs entre 01 dec 2007 jusqu au 14 dec 2007. Mais je pense qu il se passe un mix entre mois et jour puisque mon graph est : http://www.tes-images.com/view.php?i...2_untitled.JPG

18/04/2008, 11h45
Totanne

C quoi cette classe ChChart ?
18/04/2008, 11h59
Slumpy

salut,

Merci de te pencher sur mon probleme.

Citation:

Public Interface ChChart
Member of: Microsoft.Office.Interop.Owc11

Ca reond a ta question ?

Slumpy