Time Vs current reading ploting error

Question

Dear all.
I am trying to plot instantaneous graph time VS current. I am getting data properly . But i could not able to see the  time on x axis. Can some one suggest what need to configure to get x axis data.Which option need to enable . or any changes need to
be made.
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim rnd As New Random
Static counter As Integer = 0
Static average_sum As Double = 0
Static Avg_count As Integer = 0
Dim Power As Double
Static Cc_count As Long = 0
Static watt_hour As Double = 0
Dim Counter_write As Integer = 60
Static WH As Double = 0.0
Try
SerialPort1.Write("c")
System.Threading.Thread.Sleep(250)
Dim ACS_CS As Double = CDbl(SerialPort1.ReadLine())
Dim voltage As Double = 24.0
voltage_text.Text = CStr(voltage)
ListBoxSensor.Text = CStr(ACS_CS)
Power = (ACS_CS * voltage) / 3600
Display.Text = CStr(Power)
WH = WH + Power
If WH > 1000 Then
WH = 1.0 + WH
End If
WH_text.Text = CStr(WH)
' The code to plot instantenous curve.....................................................................
Dim current_val As Double = ACS_CS
Dim r As DataRow = dT.NewRow
r("time") = Now
r("current") = current_val
'add the row
dT.Rows.Add(r)
''remove any row older than 1 minute
'Dim oldestTime As DateTime = Now.AddMinutes(-1)
'Do While DirectCast(dT.Rows(0)("time"), DateTime) < oldestTime
' dT.Rows.RemoveAt(0)
'Loop
''finally bind the chart....
Chart1.DataBind()
' record data into excel sheet...............................................................................
counter = counter + 1
If counter = 2 Then
Dim headerText = ""
Dim csvFile As String = IO.Path.Combine(My.Application.Info.DirectoryPath, "Current.csv")
If Not IO.File.Exists((csvFile)) Then
headerText = "Date,TIME ,Current,voltage, Watt-Hour, "
End If
Using outFile = My.Computer.FileSystem.OpenTextFileWriter(csvFile, True)
If headerText.Length > 0 Then
outFile.WriteLine(headerText)
End If
Dim date1 As String = "24-10-2014"
Dim time1 As String = CStr(TimeOfDay())
Dim current_1 As String = CStr(ACS_CS)
Dim voltage_1 As String = CStr(voltage)
Dim watt_hour1 As String = CStr(Power)
Dim x As String = date1 + "," + time1 + "," + current_1 + "," + voltage_1 + "," + watt_hour1 + "," + vbNewLine
outFile.Write(x)
End Using
End If
If counter > 2 Then
counter = 0
End If
Catch ex As Exception
' MsgBox("Error in Timer1_Tick: " & ex.Message)
End Try
End Sub

Answer 1

Hi AMPS12,
This is a forum for Visio, not for Visual Studio. You’d better post this issue in Visual Studio forum.
http://social.msdn.microsoft.com/Forums/vstudio/en-US/home?category=visualstudio
The reason why we recommend posting appropriately is you will get the most qualified pool of respondents, and other partners who read the forums regularly can either share their knowledge or learn from your interaction with us. Thank you
for your understanding.
Best regards,
Greta Ge
TechNet Community Support
It's recommended to download and install
Configuration Analyzer Tool (OffCAT), which is developed by Microsoft Support teams. Once the tool is installed, you can run it at any time to scan for hundreds of known issues in Office
programs.