Need some help on a line chart from text file

C

CWD

Newcomer
Joined
Mar 22, 2011
Messages
2
I have a log file that is saves data every day, each day new data is append to a new line of this log file. I will show you what this log file kind of looks like.


Each log file line has 4 parts of data separated by commas.

03-01-2011,4.05,87,141
03-02-2011,4.10,88,138
03-03-2011,4.17,90,135
03-04-2011,4.20,86,115
03-05-2011,4.25,84,126
03-06-2011,4.31,81,132
03-07-2011,4.35,82,109
03-08-2011,4.42,78,136
03-09-2011,4.47,86,110
03-10-2011,4.53,83,108

I just need my chart to load this log file and loop through it and populate my line chart.

I am able to make a line chart and populate it from a text file but only in a long way. I first load all the data to 10 text boxes, then I split all the data into 40 other text boxes then I use that to populate the chart, There has to be a easier way of doing this. With my current way I can only load up 10 days of data.

I would like to be able to load up 30 days of data or even a years worth (365 entry's)

I am using visual basic 2008 with .NET Framework 4 Chart Controls.

Thanks for reading this.


Some of my code:

PHP: 
Chart1.Series.Clear()

        Chart1.Titles.Add("Progress Chart")

        'Create a new series and add data points to it.  

        Dim s As New Series
        Dim t As New Series
        Dim u As New Series

        s.Name = "Weight"
        t.Name = "Oxygen"
        u.Name = "Heartrate"

        'Change to a line graph.  

        s.ChartType = SeriesChartType.Spline
        t.ChartType = SeriesChartType.Spline
        u.ChartType = SeriesChartType.Spline



        s.Points.AddXY(TextBox1.Text, TextBox11.Text)
        s.Points.AddXY(TextBox2.Text, TextBox12.Text)
        s.Points.AddXY(TextBox3.Text, TextBox13.Text)
        s.Points.AddXY(TextBox4.Text, TextBox14.Text)
        s.Points.AddXY(TextBox5.Text, TextBox15.Text)
        s.Points.AddXY(TextBox6.Text, TextBox16.Text)
        s.Points.AddXY(TextBox7.Text, TextBox17.Text)
        s.Points.AddXY(TextBox8.Text, TextBox18.Text)
        s.Points.AddXY(TextBox9.Text, TextBox19.Text)
        s.Points.AddXY(TextBox10.Text, TextBox20.Text)


        t.Points.AddXY(TextBox1.Text, TextBox21.Text)
        t.Points.AddXY(TextBox2.Text, TextBox22.Text)
        t.Points.AddXY(TextBox3.Text, TextBox23.Text)
        t.Points.AddXY(TextBox4.Text, TextBox24.Text)
        t.Points.AddXY(TextBox5.Text, TextBox25.Text)
        t.Points.AddXY(TextBox6.Text, TextBox26.Text)
        t.Points.AddXY(TextBox7.Text, TextBox27.Text)
        t.Points.AddXY(TextBox8.Text, TextBox28.Text)
        t.Points.AddXY(TextBox9.Text, TextBox29.Text)
        t.Points.AddXY(TextBox10.Text, TextBox30.Text)


        u.Points.AddXY(TextBox1.Text, TextBox31.Text)
        u.Points.AddXY(TextBox2.Text, TextBox32.Text)
        u.Points.AddXY(TextBox3.Text, TextBox33.Text)
        u.Points.AddXY(TextBox4.Text, TextBox34.Text)
        u.Points.AddXY(TextBox5.Text, TextBox35.Text)
        u.Points.AddXY(TextBox6.Text, TextBox36.Text)
        u.Points.AddXY(TextBox7.Text, TextBox37.Text)
        u.Points.AddXY(TextBox8.Text, TextBox38.Text)
        u.Points.AddXY(TextBox9.Text, TextBox39.Text)
        u.Points.AddXY(TextBox10.Text, TextBox40.Text)

        'Add the series to the Chart1 control.  

        Chart1.Series.Add(s)
        Chart1.Series.Add(t)
        Chart1.Series.Add(u)


The Date has to be at the bottom of this chart (going left to right) and the numbers on the left side.
 
Last edited:
Out of interest why are you loading these values into textboxes anyway? Could you not just read a line from the file, split it into it's 4 parts and then add the point to the chart and then read the next line etc?

I am assuming you already have the code to read the lines and the code to split a line so I am unsure why there is the extra steps involving populating textbox controls.
 
Its because I am not an advanced coder and am really new to chart controls. I found an example how to make a chart using text boxes so thats where I started, lol I did get this problem sorted out today, here is the finished code:

PHP: 
 Dim ReadChart As String
        ReadChart = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\Charts\chart.txt"

        Dim ChartValues As StreamReader = New StreamReader(ReadChart)



        Chart1.Series.Clear()

        Chart1.Titles.Add("Progress Chart")

        'Create a new series and add data points to it.  

        Dim s As New Series
        Dim t As New Series
        Dim u As New Series

        ' Name of the series

        s.Name = "Weight"
        t.Name = "Oxygen"
        u.Name = "Heartrate"

        'Change to a line graph.  

        s.ChartType = SeriesChartType.Spline
        t.ChartType = SeriesChartType.Spline
        u.ChartType = SeriesChartType.Spline


        While ChartValues.Peek <> -1

            Dim values() As String = ChartValues.ReadLine.Split(","c)


            s.Points.AddXY(values(0), values(1))

            t.Points.AddXY(values(0), values(2))

            u.Points.AddXY(values(0), values(3))


        End While


        'Add the series to the Chart1 control.  

        Chart1.Series.Add(u)
        Chart1.Series.Add(t)
        Chart1.Series.Add(s)

Thanks for trying to help me out guys.
 
Back
Top