Rolling Chart

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von nafets.

    Rolling Chart

    Hallo Gemeinde,

    ich möchte Daten die von einem µC über RS232 kommen (10ms Takt, evtl. auch schneller min. 2ms) grafisch in einem rolling Chart darstellen (und in eine txt-Datei schreiben).
    Zur Simulation generiert der Timer gerade Daten.
    Im 1. Schritt habe ich in dem Timer Event alles gemacht. Ergebnis: Chart hat funktioniert, aber die Zeit zwischen den einzelnen Punkten
    war nicht genau die Zeit des Timers, sondern um die Zeit der Abarbeitungszeit in dem Timer Event länger.
    Also z.B. Timer Tick war 20ms --> Abstand Datenpunkte: 20ms + x
    Eigentlich für die geplante Anwendung kein Problem, da ja RS232 benutzt wir. Gestört hat es mich aber trotzdem.

    Dann die Auslagerung mit Backgroundworker.
    Zuerst Chart Aktualisierung im DoWork Sub. Ergebnis: Chart zeigt nach wenigen Punkten ein rotes, Diagonales Kreuz und keine Linien mehr.
    Dann das auf MSDN gelesen:
    DoWork event handler.' data-guid="680180d0b7d73f68e3fd066e114af957">Im DoWork-Ereignishandler dürfen keine Benutzeroberflächenobjekte bearbeitet werden. ProgressChanged and RunWorkerCompleted events.' data-guid="929f2a39d2cc27c359372cfb4cef4c58">Verwenden Sie stattdessen zum Kommunizieren mit der Benutzeroberfläche das ProgressChanged-Ereignis und das RunWorkerCompleted-Ereignis.


    und die Chart Aktualisierung in das RunWorkerCompleted Event gepackt.
    Ergebnis: rotes, diagonal Kreuz kommt immer noch

    Woran liegt es jetzt noch?

    Für jede weitere Anregung ob das Chart Control für mein Vorhaben das Richtige ist bin ich dankbar, da das hier mein erstes VB Programm ist...

    Beste Grüße
    Marcus

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    3. Imports System.Windows.Forms.DataVisualization.Charting
    5. Imports System.Threading
    7. 　
    9. 　
    11. Public Class Form1
    13. Dim datenreihe1 As New Series
    15. Dim datarow2 As New Series
    17. 'Dim datenreihetemp As New Series
    19. 'Dim datenreihetemp1 As New Series
    21. Dim queue As New Queue(Of Pointd)
    23. Dim queuetemp As New Queue(Of Pointd)
    25. Dim startzeit As Date = Now
    27. Dim jetzt As Date = Now
    29. Dim delta As New TimeSpan(10000)
    31. Dim zufall As New Random
    33. Dim first As Boolean = True
    35. Dim xachse As Double
    37. 　
    39. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    41. Control.CheckForIllegalCrossThreadCalls = False
    43. 　
    45. Dim titel As New System.Windows.Forms.DataVisualization.Charting.Title
    47. With Chart1
    49. .Series.Clear()
    51. titel = .Titles.Add("Speedtest")
    53. titel.ForeColor = Color.Black
    55. End With
    57. 　
    59. 　
    61. datenreihe1.ChartType = SeriesChartType.Line
    63. datarow2.ChartType = SeriesChartType.Line
    65. 'datenreihetemp.ChartType = SeriesChartType.Line
    67. 'datenreihetemp1.ChartType = SeriesChartType.Line
    69. 'Chart1.ChartAreas(0).AxisX.MajorGrid.Interval = 0.2
    71. 'Chart1.ChartAreas(0).AxisX.Interval = 0.1
    73. 'Chart1.ChartAreas(0).AxisX.IntervalAutoMode = IntervalAutoMode.FixedCount
    75. Chart1.ChartAreas(0).AxisY.MajorGrid.Interval = 10
    77. Chart1.ChartAreas(0).AxisY.Interval = 50
    79. 　
    81. End Sub
    83. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    85. If BackgroundWorker1.IsBusy Then
    87. MsgBox("Busy")
    89. Else
    91. BackgroundWorker1.RunWorkerAsync()
    93. End If
    95. End Sub
    97. Private Sub btn_stop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_stop.Click
    99. Timer1.Stop()
    101. End Sub
    103. Private Sub btn_start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_start.Click
    105. Timer1.Start()
    107. End Sub
    109. Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    111. Dim liste As IList(Of Series) = New List(Of Series)
    113. Static datenreihetemp As New Series
    115. Static datenreihetemp1 As New Series
    117. datenreihetemp.ChartType = SeriesChartType.Line
    119. datenreihetemp1.ChartType = SeriesChartType.Line
    121. 　
    123. If first = True Then
    125. first = False
    127. startzeit = Now
    129. End If
    131. jetzt = Now
    133. delta = jetzt - startzeit
    135. Dim i_dummy As Integer = 0
    137. Dim zaehler As Integer = 0
    139. Static schleifenzaehler As Integer = 0
    141. Dim punkt As New Pointd(0, 0)
    143. Dim y As Double = zufall.Next(0, 300)
    145. Dim x As Double = CType(delta.TotalSeconds, Double)
    147. punkt.x = x
    149. punkt.y = y
    151. queue.Enqueue(punkt)
    153. queuetemp.Enqueue(punkt)
    155. zaehler = queue.Count
    157. schleifenzaehler += 1
    159. 　
    161. If zaehler = 300 Then
    163. punkt = queue.Dequeue
    165. datenreihetemp.Points.Clear()
    167. datenreihetemp1.Points.Clear()
    169. For i As Integer = 0 To zaehler - 2 Step 1
    171. punkt = queue.ElementAt(i)
    173. x = punkt.x
    175. y = punkt.y
    177. datenreihetemp.Points.AddXY(x, y)
    179. datenreihetemp1.Points.AddXY(x, zaehler)
    181. Next
    183. Else
    185. datenreihetemp.Points.AddXY(x, y)
    187. datenreihetemp1.Points.AddXY(x, zaehler)
    189. End If
    191. 'datenreihetemp.Name = "qwertz"
    193. 'datenreihe1 = datenreihetemp
    195. 'datenreihetemp1.Name = "affe"
    197. 'datarow2 = datenreihetemp1
    199. 'i_dummy = Chart1.Series.Count
    201. 'Chart1.Series.Clear()
    203. 'i_dummy = Chart1.Series.Count
    205. 'Chart1.Series.Add(datenreihe1)
    207. 'Chart1.Series.Add(datarow2)
    209. 'Chart1.ChartAreas(0).AxisX.Minimum = x - 0.5
    211. 'Timer1.Stop()
    213. liste.Add(datenreihetemp)
    215. liste.Add(datenreihetemp1)
    217. e.Result = liste
    219. xachse = x
    221. End Sub
    223. Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    225. Dim liste1 As List(Of Series) = New List(Of Series)
    227. Static counter As Integer = 0
    229. counter += 1
    231. If counter = 9 Then
    233. counter = 0
    235. End If
    237. liste1 = CType(e.Result(), Global.System.Collections.Generic.List(Of Global.System.Windows.Forms.DataVisualization.Charting.Series)
    239. Chart1.Series.Clear()
    241. datenreihe1.Name = "qwertz"
    243. datenreihe1 = liste1.Item(0)
    245. datarow2.Name = "qwertz1"
    247. datarow2 = liste1.Item(1)
    249. Chart1.Series.Add(datenreihe1)
    251. Chart1.Series.Add(datarow2)
    253. 'Chart1.ChartAreas(0).AxisX.Minimum = xachse - 2
    255. End Sub
    257. End Class

    Willkommen im Forum. :thumbup:

    elnillo schrieb:

    in einem rolling Chart darstellen
    Gugst Du hier.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Um die

    elnillo schrieb:

    Performance
    solltest Du Dich erst kümmern, wenn es nach Deinen Vorstellungen läuft.
    Diese Frage solltest Du eig. selbest beantworten können. ;)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Das MS-Chart ist ein Koloss, und nur schlecht für Animationen geeignet.
    Winforms ist insgesamt für Animationen schlecht geeignet - die Performance von Rods Oszi ist übrigens überraschend gut.

    Aber das ist im Grunde erstmal egal, denn deine Anwendungs-Architektur taugt nix ( bzw. da ist gar keine ).
    Wenn du einen Daten-Generator codest, dann könnte ich spasseshalber mal gucken, wie man das ins MS-Chart popelt, sodass es sich etwa alle 500ms aktualisiert.

    denn deine Anwendungs-Architektur taugt nix ( bzw. da ist gar keine ).


    es ging nur darum mal zu gucken was das Chart Control so macht, wenn man es alle x ms mit neuen Daten füttert.
    Dafür sollte es doch inkl. recht simplen "Daten-Generator" reichen. Oder nicht? Ich lasse mich gerne belehren. Programmierung unter Windows ist für mich absolutes Neuland.

    Alle 500ms ist viel zu langsam. Auf dem Atmel µC läuft eine Lageregelung die aktuell im 100Hz Takt neu gerechnet wird. Daraus sollen maximal 4 Messwerte mit ja max. 4 Byte , + 2 Byte für Start+Ende + 1 Byte Checksumme gesendet werden.
    @RodFromGermany
    Performance: Sollte man sich da nicht vorher Gedanken drüber machen bevor man sich entscheidet welchen Weg man geht?
    Aber die Aussage von EDR "MS-Chart ist ein Koloss" scheint die Frage zu beantworten.

    elnillo schrieb:

    vorher Gedanken drüber machen bevor
    Jein oder Na :D .
    Manchmal ist es sinnvoll, mehrere Lösungen zu implementieren und sich dann anhand der geforderten Prioritäten zu entscheiden.
    Meine Lösung weiß halt nix von Zeitmarken, natürlich kann man da ganz easy noch ein Gitter drunter legen.
    Aber dann geht die Performance sofort in die Knie.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    elnillo schrieb:

    Alle 500ms ist viel zu langsam. Auf dem Atmel µC läuft eine Lageregelung die aktuell im 100Hz Takt neu gerechnet wird. Daraus sollen maximal 4 Messwerte mit ja max. 4 Byte , + 2 Byte für Start+Ende + 1 Byte Checksumme gesendet werden.
    Scheinbar willst du einen Chart-Ticker mit 4 Series, oder?
    Wie gesagt: Überleg dir als erstes den Datentyp. Ein Messwert von 4 Bytes wäre etwa ein Integer. Lageberechnung - bedeuten die 4 Messwerte Millimeter oder Winkel oder was?
    Also angenommen die bedeuten x, y und zwei Winkel, dann könnte der Datentyp so aussehen:

    VB.NET-Quellcode

    1. Public Class ComplexPosition
    2. Public X, Y As Integer
    3. Public Alpha, Betha As Double
    4. Public Timestamp As Date
    5. End Class
    Mit solchen Datensätzen kann man was anfangen.

    Die ganze Lageregelung läuft auf dem Atmel und das recht gut inzwischen. Um den dort implementierten PID Regler und noch weitere Parameter zu optimieren möchte ich mir Messwerte ausgeben lassen. Die Einheiten der Messwerte spielt auf der PC Ebene keine Rolle. Messwerte können Rohwerte von der Sensorik, gefilterte Werte, Reglerwerte usw. sein. Was kommt, wird vorher über das Formular eingestellt.

    Datentyp ist schon klar, wobei manche Werte vom Controller auch unsigned kommen. Aber das weiß ich ja vorher und kann darauf entsprechend reagieren.
    Die Klasse so ähnlich ist in dem eigentlichen Programm vorhanden für die Werte
    Das oben gepostete sollte nur mal als Test dienen für das Chart Control. Dabei gab es dann das Problem dass das Chart nach wenigen Werten ein rotes Kreuz zeigt wenn man mit dem Backgroundworker arbeitet.
    macht man das alles im Timer Event klappts.

    elnillo schrieb:

    ... Datentyp ist schon klar,...
    Offensichtlich nicht.
    Du scheinst das Wesen von Datenmodellierung zu verkennen.
    Es geht nicht um Bytes oder Doubles, sondern um ein Modell von dem, was diese Sachen bedeuten.
    Du musst ein Modell der Bedeutung dessen konzipieren, was der µc macht.
    Und am (Daten-) Empfang muss als erstes eine Konvertierung der Roh-Daten in dieses sinnvolle Modell erfolgen, damit die Werte Namen bekommen, die aussagen, was die Werte bedeuten.
    Du scheinst Chart-daten nur als Point verstehen zu können, aber es sind eiglich keine Points, die das Chart anzeigt, sondern es sind (in meim Beispiel) Winkel und Strecken zu Zeitpunkten.

    Aber ich versuche grade, dich auf ein anneres Gleis zu bringen, wo du deine Entwicklung bisserl grundlegender anschaust, bevor du dich in die Details der Präsentation verlierst.
    Und es scheint nicht zu klappen, sonst würdest du meinen Daten-Modell-Versuch mal aufgreifen, und etwas an deine Realität anpassen.

    Die Konvertierung der Empfangenen Daten findet doch statt. Da gibts dann auch eine Klasse die den Namen des Messwertes, seine Länge, signed/unsigned, min/max Wert usw. beinhaltet.
    Natürlich nicht in dem von mir geposteten Code oben.
    Der war doch nur um das Chart Control zu testen.
    Es sollte hier einzig und allein um die Frage gehen warum das Chart Control nach wenigen Aktualisierungen ein rotes Kreuz anzeigt.
    Bis jetzt habe ich die gesendeten Daten einfach mit einem Terminalprogramm aufgezeichnet und in Excel dann aufbereitet zur Anzeige.
    Das wollte ich jetzt mal versuchen mit VB zu machen, um einen Einstieg zu bekommen.

    elnillo schrieb:

    ein rotes Kreuz
    wird angezeigt, wenn intern im Chart eine wie auch immer geartete Exception bei der Darstellung ausgelöst wird.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Was brauchst du denn alles für Funktionen? Man kann sowas nämlich mit geringem Aufwand selbst schreiben. Dadurch kriegt man natürlich deutlich bessere Performance hin. Hier mal ein kleines Beispiel von einem von mir programmierten Control (sowas in der Art willst du doch auch haben, oder?):

    Da könnte man ohne weiteres noch ne Skala dazu zeichnen, mehrere Kurven benutzen, den Stil ändern, ... und so ein Ding kriegt locker 1000 Aktualisierungen in der Sekunde hin (ca. 0,1 Millisekunden pro Aktualisierung inklusive Rendering).

    Backgroundworker finde ich ehrlich gesagt nicht so toll: mach lieber einen Thread, welcher einer Klasse die Werte übergibt. Diese Klasse "leert" dann diese gespeicherten Werte X mal die Sekunde per Invoke in das Control. Du könntest das sogar mit nem SyncLock machen, sodass es fast unmöglich ist, dass Fehler auftreten.

Facebook
Telefonspende