کامپونت chart real time برای vb.net

[goldpower]

یه کامپوننت چارت برای وی بی می خوام که به صورت real time باشه.

[Mani_rf]

کامپاننت چارت چندین بار در انجمن معرفی شده که می توانی با کمی جستمو آن را پیدا کنی.realtime بودن آن هم بسته به کدی که برای رفرش شدن آن مینویسی دارد نه خود چارت.

[goldpower]

متغیر به اسم X_data تعریف کنم که مقادیرش رو به صورت real time نشون بده .

http://axgig.com/images/04694270954644120251.png

چه تغییری در کد زیر بدهم .

Imports System.Windows.Forms.DataVisualization.Charting
...
Private addDataRunner As Thread
Private rand As New Random()
Private chart1 As System.Windows.Forms.DataVisualization.Charting.Ch art
Public Delegate Sub AddDataDelegate()
Public addDataDel As AddDataDelegate
...

Private Sub RealTimeSample_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load

Dim addDataThreadStart As New ThreadStart(AddressOf AddDataThreadLoop)
addDataRunner = New Thread(addDataThreadStart)

addDataDel = New AddDataDelegate(AddressOf AddData)

End Sub 'RealTimeSample_Load

Private Sub startTrending_Click(sender As Object, e As System.EventArgs) Handles startTrending.Click
' Disable all controls on the form
startTrending.Enabled = False
' and only Enable the Stop button
stopTrending.Enabled = True

' Predefine the viewing area of the chart
minValue = DateTime.Now
maxValue = minValue.AddSeconds(120)

chart1.ChartAreas(0).AxisX.Minimum = minValue.ToOADate()
chart1.ChartAreas(0).AxisX.Maximum = maxValue.ToOADate()

' Reset number of series in the chart.
chart1.Series.Clear()

' create a line chart series
Dim newSeries As New Series("Series1")
newSeries.ChartType = SeriesChartType.Line;
newSeries.BorderWidth = 2
newSeries.Color = Color.OrangeRed
newSeries.XValueType = ChartValueType.DateTime
chart1.Series.Add(newSeries)

' start worker threads.
If addDataRunner.IsAlive = True Then
addDataRunner.Resume()
Else
addDataRunner.Start()
End If
End Sub 'startTrending_Click

Private Sub stopTrending_Click(sender As Object, e As System.EventArgs) Handles stopTrending.Click
If addDataRunner.IsAlive = True Then
addDataRunner.Suspend()
End If

' Enable all controls on the form
startTrending.Enabled = True
' and only Disable the Stop button
stopTrending.Enabled = False
End Sub 'stopTrending_Click

'/ Main loop for the thread that adds data to the chart.
'/ The main purpose of this function is to Invoke AddData
'/ function every 1000ms (1 second).
Private Sub AddDataThreadLoop()
While True
chart1.Invoke(addDataDel)

Thread.Sleep(1000)
End While
End Sub 'AddDataThreadLoop

Public Sub AddData()
Dim timeStamp As DateTime = DateTime.Now

Dim ptSeries As Series
For Each ptSeries In chart1.Series
AddNewPoint(timeStamp, ptSeries)
Next ptSeries
End Sub 'AddData

'/ The AddNewPoint function is called for each series in the chart when
'/ new points need to be added. The new point will be placed at specified
'/ X axis (Date/Time) position with a Y value in a range +/- 1 from the previous
'/ data point's Y value, and not smaller than zero.
Public Sub AddNewPoint(timeStamp As DateTime, ptSeries As System.Windows.Forms.DataVisualization.Charting.Se ries)
Dim newVal As Double = 0

If ptSeries.Points.Count > 0 Then
newVal = ptSeries.Points((ptSeries.Points.Count - 1)).YValues(0) +(rand.NextDouble() * 2 - 1)
End If

If newVal < 0 Then
newVal = 0
End If
' Add new data point to its series.
ptSeries.Points.AddXY(timeStamp.ToOADate(), rand.Next(10, 20))

' remove all points from the source series older than 1.5 minutes.
Dim removeBefore As Double = timeStamp.AddSeconds((CDbl(90) * - 1)).ToOADate()
'remove oldest values to maintain a constant number of data points
While ptSeries.Points(0).XValue < removeBefore
ptSeries.Points.RemoveAt(0)
End While

chart1.ChartAreas(0).AxisX.Minimum = ptSeries.Points(0).XValue
chart1.ChartAreas(0).AxisX.Maximum = DateTime.FromOADate(ptSeries.Points(0).XValue).Add Minutes(2).ToOADate()

chart1.Invalidate()
End Sub 'AddNewPoint

'/ Clean up any resources being used.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If(addDataRunner.ThreadState And ThreadState.Suspended) = ThreadState.Suspended Then
addDataRunner.Resume()
End If
addDataRunner.Abort()

If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub 'Dispose

[goldpower]

کسی نبود راهنمایی کنه ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟

[elecont89]

سلام عرض شد.منم به این مشکل برخورد کردم ولی به نتیجه ای نرسیدم.شما به نتیجه ای رسیدین؟