Plotting grapgh on VB net

[AJITnayak]

Dear all,

I am leaner . I wanted to plot graph time VS current. CUrrently i can get data serially from arduino. Now i wanted to plot graph for every 1 min w.r.t time.
As shown in below Link. I am facing problem in configuring the chart.If you can share link How he exactly uploaidng inputs will be help full.

http://www.dreamincode.net/forums/to...&#entry2055191


My code fine to this part.

Imports System
Imports System.IO.Ports
Imports System.ComponentModel
Imports System.Threading

Imports System.Drawing

Public Class Form1
    Dim myPort As Array
    Dim Distance As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        myPort = IO.Ports.SerialPort.GetPortNames()
        PortComboBox.Items.AddRange(myPort)
        BaudComboBox.Items.Add(9600)
        BaudComboBox.Items.Add(19200)
        BaudComboBox.Items.Add(38400)
        BaudComboBox.Items.Add(57600)
        BaudComboBox.Items.Add(115200)
        ConnectButton.Enabled = True
        DisconnectButton.Enabled = False

    End Sub

    Private Sub ConnectButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectButton.Click
        SerialPort1.PortName = PortComboBox.Text
        SerialPort1.BaudRate = BaudComboBox.Text
        SerialPort1.Open()
        Timer1.Start()

        'lblMessage.Text = PortComboBox.Text & " Connected."
        ConnectButton.Enabled = False
        DisconnectButton.Enabled = True
    End Sub

    Private Sub DisconnectButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisconnectButton.Click
        SerialPort1.Close()

        DisconnectButton.Enabled = False
        ConnectButton.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            SerialPort1.Write("c")
            System.Threading.Thread.Sleep(250)
            Dim k As Double
            Dim distance As String = SerialPort1.ReadLine()
            k = CDbl(distance)
            ListBoxSensor.Text = k
        Catch ex As Exception

        End Try



    End Sub

    Private Sub Relay_ON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Relay_ON.Click
        SerialPort1.Write("1")
    End Sub

    Private Sub Relay_Off_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Relay_Off.Click
        SerialPort1.Write("0")
    End Sub




End Class

[kebo]

Here is an example of how to chart a random number every second while showing no more than the last 1 minute of data. Hopefully you can adapt it to your needs.

Start a new project, add a chart and a timer to the form and copy this following code.

Public Class Form1
 
    'create a datatable to hold the values that will bind to the chart series
    Dim dT As DataTable
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Call initializeDataTable()
        Call initializeChart()
 
        'set the datasource for the chart....
        Chart1.DataSource = dT
 
 
        Timer1.Interval = 1000
        Timer1.Start()
 
    End Sub
 
 
    Private Sub initializeDataTable()
 
        dT = New DataTable
        dT.Columns.Add(New DataColumn("time", GetType(DateTime)))
        dT.Columns.Add(New DataColumn("current", GetType(Double)))
 
 
 
    End Sub
 
    Private Sub initializeChart()
 
        Chart1.Series.Clear()
        'create the new charting series....
        Dim newSeries As New DataVisualization.Charting.Series
        With newSeries
            'assign the series to a chart area....
            .ChartArea = Chart1.ChartAreas(0).Name
 
            'define the xvalue member. It must match the datatable's column name
            .XValueMember = "time"
            .XValueType = DataVisualization.Charting.ChartValueType.DateTime
            'define the yValue meber. It too must match the datatable column name
            .YValueMembers = "current"
            .XValueType = DataVisualization.Charting.ChartValueType.Double
 
            'select the chart type
            .ChartType = DataVisualization.Charting.SeriesChartType.Line
        End With
 
        'turn off the xAxis labels
        Chart1.ChartAreas(0).AxisX.LabelStyle.Enabled = False
 
        'add the series to the chart
        Chart1.Series.Add(newSeries)
 
    End Sub
 
    Dim rnd As New Random
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
 
        'add a new point
        Dim current As Double = rnd.NextDouble
        Dim r As DataRow = dT.NewRow
        r("time") = Now
        r("current") = current
        '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()
 
    End Sub
 
 
End Class

kevin

[AJITnayak]

Imports System
Imports System.IO.Ports
Imports System.ComponentModel
Imports System.Threading
''Imports 
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms

Public Class Form1
    Dim dT As DataTable
    Dim myPort As Array
    Dim Distance As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call initializeDataTable()
        Call initializeChart()
        myPort = IO.Ports.SerialPort.GetPortNames()
        PortComboBox.Items.AddRange(myPort)
        BaudComboBox.Items.Add(9600)
        BaudComboBox.Items.Add(19200)
        BaudComboBox.Items.Add(38400)
        BaudComboBox.Items.Add(57600)
        BaudComboBox.Items.Add(115200)
        PortComboBox.Enabled = True
        DisconnectButton.Enabled = False
        'set the datasource for the chart....
        Chart1.DataSource = dT


        Timer1.Interval = 1000
        Timer1.Start()
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectButton.Click
        SerialPort1.PortName = PortComboBox.Text
        SerialPort1.BaudRate = BaudComboBox.Text
        SerialPort1.Open()
        Timer1.Start()

        'lblMessage.Text = PortComboBox.Text & " Connected."
        ConnectButton.Enabled = False
        DisconnectButton.Enabled = True
    End Sub

    Private Sub DisconnectButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisconnectButton.Click
        SerialPort1.Close()

        DisconnectButton.Enabled = False
        ConnectButton.Enabled = True
    End Sub









    Private Sub initializeDataTable()

        dT = New DataTable
        dT.Columns.Add(New DataColumn("time", GetType(DateTime)))
        dT.Columns.Add(New DataColumn("current", GetType(Double)))



    End Sub


    Private Sub initializeChart()

        Chart1.Series.Clear()
        'create the new charting series....
        Dim newSeries As New DataVisualization.Charting.Series
        With newSeries
            'assign the series to a chart area....
            .ChartArea = Chart1.ChartAreas(0).Name

            'define the xvalue member. It must match the datatable's column name
            .XValueMember = "time"
            .XValueType = DataVisualization.Charting.ChartValueType.DateTime
            'define the yValue meber. It too must match the datatable column name
            .YValueMembers = "current"
            .XValueType = DataVisualization.Charting.ChartValueType.Double

            'select the chart type
            .ChartType = DataVisualization.Charting.SeriesChartType.Line
        End With

        'turn off the xAxis labels
        Chart1.ChartAreas(0).AxisX.LabelStyle.Enabled = False

        'add the series to the chart
        Chart1.Series.Add(newSeries)

    End Sub

    Dim rnd As New Random

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        Try
            SerialPort1.Write("c")
            System.Threading.Thread.Sleep(250)
            Dim k As Double
            Dim distance As String = SerialPort1.ReadLine()
            k = CDbl(distance)
            ListBoxSensor.Text = k
            ' Dim current As Double = rnd.NextDouble
            Dim current As Double = k
            Dim r As DataRow = dT.NewRow
            r("time") = Now
            r("current") = current
            '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()
        Catch ex As Exception

        End Try


        'add a new point


    End Sub

End Class

I changed the code as you said, I tried with assign value and taken your code . But in my above code i am not getting data on ListBoxSensor . How i make ensure data read from serial and displayed on curve are accurate???