none
chart liaison avec fichier texte RRS feed

  • Question

  • bonjour

     j'avance encore un peu plus avec le chart je me pose une question:

     est il possible de le faire communiquer avec un fichier texte où j'ai enregistré mon date gridview avec vb 2010

    merci de  dire si cela est possible et de dire comment faire

    mercredi 16 septembre 2015 08:22

Réponses

  • Bonjour, SIMONGEORGES,

    S’il s’agit d’un graphique en secteurs (SeriesChartType.Pie), je vous propose d’essayer le code suivant (qui peut être adapté à d’autres types de graphiques). J’ai créé un fichier texte dans lequel deux valeurs sont séparées par des virgules et qui contient trois lignes:

    Voici le code:

            Dim virgule As Integer = -1
            'l'index de la virgule, une virgule par ligne
            Dim ligne As String
            Dim d As New Dictionary(Of String, Integer)()
            Dim fichier As New System.IO.StreamReader("<chemin d’accès au fichier .txt>")
            ligne = fichier.ReadLine()
            While ligne IsNot Nothing
                virgule = ligne.IndexOf(","c)
                Dim s As String = ligne.Substring(0, virgule)
                Dim valeur As Integer = Convert.ToInt32(ligne.Substring(virgule + 1))
                d.Add(s, valeur)
                ligne = fichier.ReadLine()
            End While
            fichier.Close()
            Chart1.Series(0).Points.Clear()
            Chart1.Series(0).ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie
            'Pour un graphique en barres, il faudra convertir deux valeurs en lisant le fichier et utiliser un Dictionary(Of Integer, Integer)
            For Each clef As String In d.Keys
                Chart1.Series(0).Points.AddXY(clef, d(clef))
            Next

    Et le résultat:

    Merci de nous tenir au courant.

    Cordialement,
    Dimitar

    jeudi 17 septembre 2015 07:54
    Modérateur

Toutes les réponses

  • Bonjour, SIMONGEORGES,

    S’il s’agit d’un graphique en secteurs (SeriesChartType.Pie), je vous propose d’essayer le code suivant (qui peut être adapté à d’autres types de graphiques). J’ai créé un fichier texte dans lequel deux valeurs sont séparées par des virgules et qui contient trois lignes:

    Voici le code:

            Dim virgule As Integer = -1
            'l'index de la virgule, une virgule par ligne
            Dim ligne As String
            Dim d As New Dictionary(Of String, Integer)()
            Dim fichier As New System.IO.StreamReader("<chemin d’accès au fichier .txt>")
            ligne = fichier.ReadLine()
            While ligne IsNot Nothing
                virgule = ligne.IndexOf(","c)
                Dim s As String = ligne.Substring(0, virgule)
                Dim valeur As Integer = Convert.ToInt32(ligne.Substring(virgule + 1))
                d.Add(s, valeur)
                ligne = fichier.ReadLine()
            End While
            fichier.Close()
            Chart1.Series(0).Points.Clear()
            Chart1.Series(0).ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie
            'Pour un graphique en barres, il faudra convertir deux valeurs en lisant le fichier et utiliser un Dictionary(Of Integer, Integer)
            For Each clef As String In d.Keys
                Chart1.Series(0).Points.AddXY(clef, d(clef))
            Next

    Et le résultat:

    Merci de nous tenir au courant.

    Cordialement,
    Dimitar

    jeudi 17 septembre 2015 07:54
    Modérateur
  • merci beaucoup cela me conviens
    jeudi 17 septembre 2015 08:32