Private Sub AddDataThreadLoop() While True Chart1.Invoke (AddDataDel) 'AddDataDel is a Delegate. Thread.Sleep(200) End While End Sub
ptSeries.Points.AddXY(timestamp.ToOADate(),Received_DATA)
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
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)