Plot graph for CSV file

[AJITnayak]

Dear all,

I am trying to plot graph for CSV file. My file saved as current.csv andwhen open it look like this

Date          	TIME           	Watt-Hour	        Current
26-09-2014	       10:09:55 AM	0.003933333	0.13
26-09-2014	       10:10:10 AM	0.007866667	0.1
26-09-2014	       10:10:25 AM	0.0114	        0.07
26-09-2014 	10:10:40 AM	0.014533333	0.1
26-09-2014	       10:10:55 AM	0.018266667	0.1
26-09-2014	       10:11:10 AM	0.021         	0.1
26-09-2014	       10:11:25 AM	0.024333333	0.07
26-09-2014	       10:11:40 AM	0.028266667	0.13

Now i wanted to import graph and plot intially time Vs watt-hour

2) if i select time intervals hours then i should able to get grapgh betwen start and stop time
3) similarly with date.


TO get started with I need simple example where i can import and plot graph time Vs watt-hour

Here i got simple example but . All are giving error . is any library need to be added

But here he his taking first column data , I need second column data and 3rd cloumn data. How to change column data point here.

 Private Sub OK_Pressed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Pressed.Click
        Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("Current.csv")
            MyReader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
            MyReader.Delimiters = New String() {","}
            Dim currentRow As String()
            Dim CurrentPoint As Integer = 0
            Chart2.Series(0).Points.Clear()
            While Not MyReader.EndOfData
                Try
                    currentRow = MyReader.ReadFields()
                    Dim D As String = currentRow(0)
                    Try
                        Dim Y As Double = CDbl(currentRow(2))
                        Chart2.Series(0).Points.AddY(Y)
                        Chart2.Series(0).Points(CurrentPoint).AxisLabel = D
                        CurrentPoint += 1
                    Catch ex As InvalidCastException
                        If CurrentPoint <> 0 Then
                            MsgBox("Item " & currentRow(2) & " is invalid.  Skipping")
                        End If
                    End Try
                Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                    If CurrentPoint <> 0 Then
                        MsgBox("Line " & ex.Message & " is invalid.  Skipping")
                    End If
                End Try
            End While
        End Using

    End Sub
End Class