Dynamisches Erstellen von Chart Serien

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von HGR.

    Dynamisches Erstellen von Chart Serien

    Hallo verehrtes Forum,

    ich habe eine Aufgabenstellung bei der ich gerne dynamisch "Series" zu einem "Chart" hinzufügen möchte, je nachdem viele Kurven es zu zeichnen gibt. Des Weiteren möchte ich gerne von allen erstellten Kurven die Anzeige der einzelnen Kurven zur Laufzeit ein- und ausblenden können. Aktuell suche ich nach einem Ansatz, wie ich dies realisieren könnte.

    Hintergrund:
    Wir haben einen Datalogger, der pro Millisekunde bis zu 40 Prozessdaten aufnimmt und puffert realisiert. Wieviele bzw. welche Prozessdaten aufgenommen werden, kann verändert werden und ist daher variable.
    Die Aufzeichnung der Prozessdaten geschieht zunächst auf der ADwin Gold II, einer Echtzeitsteuerung mit recht flotten DSP und mit Ethernet-Anbindung an unsere VB.NET GUI.
    Unsere VB.NET GUI holt die Daten alle 100ms ab und schreibt sie in eine Datei. Es werden nur Wertänderungen geloggt um den die Logdateigröße klein zu halten.

    So ergibt sich folgendes Format der Logfiles:
    Zeitstempel; ID-Prozessdata; VALUE-Processdata; ID-Prozessdata; VALUE-Processdata; ID-Prozessdata; VALUE-Processdata ...etc.

    Ich habe eine Beispiel Datei angehängt!

    Das Loggen funktioniert einwandfrei, jetzt würden wir aber auch ganz gerne diese Daten komfortabel auf unserer GUI visualisieren.

    Ich habe mir hierfür Beiträge vom "Erfinder des Rades" angeschaut wie etwa diesen Hier:

    Chart - Sample

    Ich kann mit meinem Wissensstand schlecht abschätzen ob ich für meinen Verwendungszweck tatsächlich typisierte Datasets benötige oder nicht. Letztendlich möchte ich eine variable Anzahl an XY-Kurven in einem Chart anzeigen (mehr nicht).

    Ich dachte an eine Klasse, die alle Daten sowie eine property "ChartIsVisible" enthält, die dynamisch zur Laufzeit sooft instanziert wird, wie es eben Kurven zum zeichnen gibt.

    Mein Code sieht aktuell wie folgt aus:

    VB.NET-Quellcode

    1. Imports System.Windows.Forms.DataVisualization.Charting
    2. Imports System.IO
    4. Public Class FrmDatalogViewer
    6. Public MetaData As New List(Of String)
    7. Public PDMData As New List(Of String)
    9. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BtLoad.Click
    10. LoadDataFromFile()
    11. DrawChart()
    12. End Sub
    14. Sub LoadDataFromFile()
    15. Try
    16. Dim OFD As New OpenFileDialog()
    17. MetaData.Clear()
    18. PDMData.Clear()
    19. With OFD
    20. .Filter = "CSV-Files (*.csv)|*.csv"
    21. .RestoreDirectory = True
    22. .InitialDirectory = GTG_ODD_DEF_FOCUS_WOBBLE_SAVINGPATH
    23. If .ShowDialog() = Windows.Forms.DialogResult.OK Then
    24. If IO.File.Exists(.FileName) Then
    25. Using reader As StreamReader = New StreamReader(.FileName)
    26. Dim line As String
    27. line = reader.ReadLine ' Read first line.
    28. Dim i As Integer
    29. Do While (Not line Is Nothing) ' Loop over each line in file, While list is Not Nothing.
    30. If i <= 100 Then
    31. MetaData.Add(line) ' Meta
    32. Else
    33. PDMData.Add(line) ' PDM Data
    34. End If
    35. i += 1
    36. line = reader.ReadLine ' Read in the next line.
    37. Loop
    38. End Using
    39. End If
    40. End If
    41. End With
    42. Catch ex As Exception
    43. MsgBox(ex.Message & vbNewLine & ex.StackTrace)
    44. End Try
    45. End Sub
    47. Sub DrawChart()
    48. Try
    50. Dim ArrayLength As Integer
    51. Dim TimeInMs As Long
    52. Dim StringArr() As String
    53. Dim TimeStamp As String
    54. Dim TmpString As String
    55. Dim IxXlist As New List(Of Long)
    56. Dim IxYlist As New List(Of Single)
    57. Dim IyXlist As New List(Of Long)
    58. Dim IyYlist As New List(Of Single)
    59. Dim IlXlist As New List(Of Long)
    60. Dim IlYlist As New List(Of Single)
    61. Dim IbXlist As New List(Of Long)
    62. Dim IbYlist As New List(Of Single)
    63. Dim i As Long
    64. For Each element In PDMData
    65. TmpString = PDMData(i)
    66. i += 1
    67. If TmpString <> "" Then
    68. StringArr = TmpString.Split(";")
    69. ArrayLength = StringArr.Length
    70. TimeStamp = StringArr(0)
    71. Dim YValue As Single
    72. For k = 1 To ArrayLength Step 2
    73. Dim idx As Integer
    74. If Integer.TryParse(StringArr(k), idx) Then
    75. If Single.TryParse(StringArr(k + 1), YValue) Then
    77. Select Case idx
    78. Case 2
    79. IxXlist.Add(i)
    80. IxYlist.Add(YValue)
    81. Case 3
    82. IyXlist.Add(i)
    83. IyYlist.Add(YValue)
    84. Case 4
    85. IlXlist.Add(i)
    86. IlYlist.Add(YValue)
    87. Case 5
    88. IbXlist.Add(i)
    89. IbYlist.Add(YValue)
    90. End Select
    91. End If
    92. End If
    93. Next
    94. End If
    96. Next
    98. Chart1.Series.Clear()
    100. Dim SeriesIX = New DataVisualization.Charting.Series()
    101. SeriesIX.ChartType = DataVisualization.Charting.SeriesChartType.Point
    102. SeriesIX.Points.DataBindXY(IxXlist, IxYlist)
    104. Dim SeriesIY = New DataVisualization.Charting.Series()
    105. SeriesIY.ChartType = DataVisualization.Charting.SeriesChartType.Point
    106. SeriesIY.Points.DataBindXY(IyXlist, IyYlist)
    108. Dim SeriesIL = New DataVisualization.Charting.Series()
    109. SeriesIL.ChartType = DataVisualization.Charting.SeriesChartType.Point
    110. SeriesIL.Points.DataBindXY(IlXlist, IlYlist)
    112. Dim SeriesIB = New DataVisualization.Charting.Series()
    113. SeriesIB.ChartType = DataVisualization.Charting.SeriesChartType.Point
    114. SeriesIB.Points.DataBindXY(IbXlist, IbYlist)
    116. ' IX
    117. If CheckBox1.Checked Then
    118. Chart1.Series.Add(SeriesIX)
    119. Else
    120. Chart1.Series.Remove(SeriesIX)
    121. End If
    123. 'IY
    124. If CheckBox2.Checked Then
    125. Chart1.Series.Add(SeriesIY)
    126. Else
    127. Chart1.Series.Remove(SeriesIY)
    128. End If
    130. 'IL
    131. If CheckBox3.Checked Then
    132. Chart1.Series.Add(SeriesIL)
    133. Else
    134. Chart1.Series.Remove(SeriesIL)
    135. End If
    137. 'IB
    138. If CheckBox4.Checked Then
    139. Chart1.Series.Add(SeriesIB)
    140. Else
    141. Chart1.Series.Remove(SeriesIB)
    142. End If
    144. Catch ex As Exception
    145. MsgBox(ex.Message & vbNewLine & ex.StackTrace)
    146. End Try
    147. End Sub
    149. Private Sub FrmDatalogger_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    151. End Sub
    153. Private Sub Refresh_Click(sender As Object, e As EventArgs) Handles BtRefresh.Click
    154. DrawChart()
    155. End Sub
    156. End Class



    Ich möchte ganz dringend von solchen Konstrukten wie hier:

    VB.NET-Quellcode

    1. Dim SeriesIX = New DataVisualization.Charting.Series()
    2. SeriesIX.ChartType = DataVisualization.Charting.SeriesChartType.Point
    3. SeriesIX.Points.DataBindXY(IxXlist, IxYlist)
    5. Dim SeriesIY = New DataVisualization.Charting.Series()
    6. SeriesIY.ChartType = DataVisualization.Charting.SeriesChartType.Point
    7. SeriesIY.Points.DataBindXY(IyXlist, IyYlist)
    9. Dim SeriesIL = New DataVisualization.Charting.Series()
    10. SeriesIL.ChartType = DataVisualization.Charting.SeriesChartType.Point
    11. SeriesIL.Points.DataBindXY(IlXlist, IlYlist)
    13. Dim SeriesIB = New DataVisualization.Charting.Series()
    14. SeriesIB.ChartType = DataVisualization.Charting.SeriesChartType.Point
    15. SeriesIB.Points.DataBindXY(IbXlist, IbYlist)
    17. ' IX
    18. If CheckBox1.Checked Then
    19. Chart1.Series.Add(SeriesIX)
    20. Else
    21. Chart1.Series.Remove(SeriesIX)
    22. End If
    24. 'IY
    25. If CheckBox2.Checked Then
    26. Chart1.Series.Add(SeriesIY)
    27. Else
    28. Chart1.Series.Remove(SeriesIY)
    29. End If
    31. 'IL
    32. If CheckBox3.Checked Then
    33. Chart1.Series.Add(SeriesIL)
    34. Else
    35. Chart1.Series.Remove(SeriesIL)
    36. End If
    38. 'IB
    39. If CheckBox4.Checked Then
    40. Chart1.Series.Add(SeriesIB)
    41. Else
    42. Chart1.Series.Remove(SeriesIB)
    43. End If


    wegkommen. Ich bin mir sicher, dass die Instanzierung der Serien in einer Schleife geschehen kann, was mir fehlt ist der Ansatz, wie dies zu bewerkstelligen ist.

    Über konstruktive Ideen würde ich mich freuen.
    Dateien

    Willkommen im Forum.

    Ja, eine Instanziierung geht über ne Schleife. Du kannst dabei entscheiden, ob Du direkten Zugriff auf die Series behalten willst oder nicht. In diesem Fall wäre es sinnvoll:

    VB.NET-Quellcode

    1. Dim MySeries As New List(Of DataVisualization.Charting.Series)
    2. '…
    3. For i = 1 To 10 'oder ne andere Schleife oder andere Grenzen
    4. Dim NewSeries = New DataVisualization.Charting.Series
    5. NewSeries.ChartType = DataVisualization.Charting.SeriesChartType.Point
    6. MySeries.Add(NewSeries)
    7. Next

    So kannst Du immer über MySeries auf die einzelnen Series zugreifen. Aber! Der Spaß mit den CheckBoxen klappt nicht, weil Du die quasi mitgenerieren müsstest. Das geht, ist aber sicherlich anders besser zu lösen. Brauchst Du überhaupt CheckBoxen oder ist das ein Notbehelf? Das DataBindXY ist natürlich auch tricky. Du gibst hier fixe Punktdaten vor. Da stellt sich die Frage, was Du daran ändern willst.

    Bevor Du weitermachst, bitte die empfohlenen VS-Einstellungen verwenden. Stichwort VB6-Namespace und Option Strict On
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hi VaporiZed,

    vielen Dank für die super schnelle Antwort und den Tipp mit der Option. Ich habe gleich die Option "Option Strict On" gesetzt und siehe da: Mein Code musste hier und da modifiziert werden, damit es wieder lief ;)

    Deine Frage:

    ​ Brauchst Du überhaupt CheckBoxen oder ist das ein Notbehelf?


    Kann ich wie folgt beantworten:

    Nein, ich brauche keine Checkbox. Mir ist jede Variante die einfach zum Ziel führt recht. Letztendlich möchte ich, nachdem die Logfile eingelesen wurde, komfortabel die einzelnen Kurven ein- / ausblenden können.

    -> Was würdest Du in meinem Fall vorschlagen?

    Dein Ansatz mit der Liste hatte mir gefehlt, jetzt werden alle Kurven in einer Schleife Instanziiert, was ich schon mal sau geil finde! Ich Danke Dir vielmals schonmal dafür! Mein Code ist jetzt viel kompakter geworden:

    VB.NET-Quellcode

    1. ​
    2. Option Strict On
    3. Imports System.Windows.Forms.DataVisualization.Charting
    4. Imports System.IO
    6. Public Class FrmDatalogViewer
    8. Public MetaData As New List(Of String)
    9. Public PDMData As New List(Of String)
    11. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BtLoad.Click
    12. LoadDataFromFile()
    13. DrawChart()
    14. End Sub
    16. Sub LoadDataFromFile()
    17. Try
    18. Dim OFD As New OpenFileDialog()
    19. MetaData.Clear()
    20. PDMData.Clear()
    21. With OFD
    22. .Filter = "CSV-Files (*.csv)|*.csv"
    23. .RestoreDirectory = True
    24. .InitialDirectory = GTG_ODD_DEF_FOCUS_WOBBLE_SAVINGPATH
    25. If .ShowDialog() = Windows.Forms.DialogResult.OK Then
    26. If IO.File.Exists(.FileName) Then
    27. Using reader As StreamReader = New StreamReader(.FileName)
    28. Dim line As String
    29. line = reader.ReadLine ' Read first line.
    30. Dim i As Integer
    31. Do While (Not line Is Nothing) ' Loop over each line in file, While list is Not Nothing.
    32. If i <= 100 Then
    33. MetaData.Add(line) ' Meta
    34. Else
    35. PDMData.Add(line) ' PDM Data
    36. End If
    37. i += 1
    38. line = reader.ReadLine ' Read in the next line.
    39. Loop
    40. End Using
    41. End If
    42. End If
    43. End With
    44. Catch ex As Exception
    45. MsgBox(ex.Message & vbNewLine & ex.StackTrace)
    46. End Try
    47. End Sub
    49. Sub DrawChart()
    50. Dim AlleKurven As New List(Of Kurve)
    51. Dim ClsKurve As New Kurve
    52. Dim TmpString As String
    53. Dim StringArr() As String
    54. Dim TimeStamp As String
    55. Dim i As Integer
    56. Dim AnzahlKurven As Integer
    57. Dim MySeries As New List(Of DataVisualization.Charting.Series)
    58. Dim Separator As Char
    59. Char.TryParse(";", Separator)
    61. AnzahlKurven = 20
    63. Try
    64. For i = 1 To AnzahlKurven
    65. AlleKurven.Add(ClsKurve)
    66. Next
    67. i = 0
    68. For Each element In PDMData
    69. TmpString = PDMData(i)
    70. If TmpString <> "" Then
    71. StringArr = TmpString.Split(Separator)
    72. TimeStamp = StringArr(0)
    73. Dim YValue As Single
    74. For k = 1 To StringArr.Length Step 2
    75. Dim idx As Integer
    76. If Integer.TryParse(StringArr(k), idx) Then
    77. If Single.TryParse(StringArr(k + 1), YValue) Then
    78. AlleKurven(idx).ListX.Add(i)
    79. AlleKurven(idx).ListY.Add(YValue)
    80. End If
    81. End If
    82. Next
    83. End If
    84. i += 1
    85. Next
    87. Chart1.Series.Clear()
    89. i = 0
    90. For Each element In AlleKurven
    91. Dim NewSeries = New DataVisualization.Charting.Series
    92. MySeries.Add(NewSeries)
    93. MySeries(i).ChartType = DataVisualization.Charting.SeriesChartType.Point
    94. MySeries(i).Points.DataBindXY(AlleKurven(i).ListX, AlleKurven(i).ListY)
    95. Chart1.Series.Add(MySeries(i))
    96. i += 1
    97. Next
    98. Catch ex As Exception
    99. MsgBox(ex.Message & vbNewLine & ex.StackTrace)
    100. End Try
    101. End Sub
    103. Private Class Kurve
    104. Public ListX As New List(Of Long)
    105. Public ListY As New List(Of Single)
    106. Public Visible As Boolean
    107. End Class
    109. Private Sub FrmDatalogger_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    111. End Sub
    113. Private Sub Refresh_Click(sender As Object, e As EventArgs) Handles BtRefresh.Click
    114. DrawChart()
    115. End Sub
    117. End Class


    Ich habe im Moment 20 Kurven drin (nicht 40), damit ich nicht immer so lange warten muss bis ich ein Ergebnis sehe.

    Ich habe mich schon etwas gewundert, warum das erzeugen der 20 Kurven ca. 30 Sekunden dauerte und machte einfach mal einen Versuch mit nur einer Kurve:

    VB.NET-Quellcode

    1. ​
    2. Sub DrawChart()
    3. Dim AlleKurven As New List(Of Kurve)
    4. Dim ClsKurve As New Kurve
    5. Dim TmpString As String
    6. Dim StringArr() As String
    7. Dim TimeStamp As String
    8. Dim i As Integer
    9. Dim AnzahlKurven As Integer
    10. Dim NewSeries = New DataVisualization.Charting.Series
    11. Dim MySeries As New List(Of DataVisualization.Charting.Series)
    12. Dim Separator As Char
    13. Char.TryParse(";", Separator)
    15. AnzahlKurven = 20
    17. Try
    18. For i = 1 To AnzahlKurven
    19. AlleKurven.Add(ClsKurve)
    20. Next
    21. i = 0
    22. For Each element In PDMData
    23. TmpString = PDMData(i)
    24. If TmpString <> "" Then
    25. StringArr = TmpString.Split(Separator)
    26. TimeStamp = StringArr(0)
    27. Dim YValue As Single
    28. For k = 1 To StringArr.Length Step 2
    29. Dim idx As Integer
    30. If Integer.TryParse(StringArr(k), idx) Then
    31. If Single.TryParse(StringArr(k + 1), YValue) Then
    32. AlleKurven(idx).xValue = i
    33. AlleKurven(idx).yValue = YValue
    35. If idx = 0 Then
    36. idx = 0
    37. End If
    39. End If
    40. End If
    41. Next
    42. End If
    43. i += 1
    44. Next
    46. Chart1.Series.Clear()
    48. MySeries.Add(NewSeries)
    49. MySeries(0).ChartType = DataVisualization.Charting.SeriesChartType.Point
    50. MySeries(0).Points.DataBindXY(AlleKurven(0).ListX, AlleKurven(0).ListY)
    51. Chart1.Series.Add(MySeries(0))
    53. 'i = 0
    54. 'For Each element In AlleKurven
    55. ' Dim NewSeries = New DataVisualization.Charting.Series
    56. ' MySeries.Add(NewSeries)
    57. ' MySeries(i).ChartType = DataVisualization.Charting.SeriesChartType.Point
    58. ' MySeries(i).Points.DataBindXY(AlleKurven(i).ListX, AlleKurven(i).ListY)
    59. ' Chart1.Series.Add(MySeries(i))
    60. ' i += 1
    61. 'Next
    62. Catch ex As Exception
    63. MsgBox(ex.Message & vbNewLine & ex.StackTrace)
    64. End Try
    65. End Sub


    Es fiel gleich auf, dass ich trotz Darstellung nur einer Kurve, sämtliche Datenpunkte angezeigt wurden was mich etwas stutzig machte.

    Zum Debuggen habe ich die Zeilen

    VB.NET-Quellcode

    1. ​
    2. If idx = 0 Then
    3. idx = 0
    4. End If


    hinzugefügt, und einen Haltepunkt bei

    VB.NET-Quellcode

    1. ​
    2. idx = 0


    gesetzt. Interessanterweise gibt es in der gesamten Logfile keinen einzigen geloggten Wert mit der ID=0, Das heißt im ersten Element der Liste "AlleKurven" sollte eigentlich kein einziger Wert hinzugefügt worden sein. Dennoch werden bei der Verknüpfung der Series(0) mit der Kurve(0) siehe:

    VB.NET-Quellcode

    1. ​
    2. MySeries(0).Points.DataBindXY(AlleKurven(0).ListX, AlleKurven(0).ListY)


    sämtliche Datenpunkte aller ID's, sprich alle Kurven aus dem Log in der Series(0) angezeigt... ?(



    Ich muss hier noch etwas debuggen bevor es weiter geht.

    Naja, der Link ist aber nicht nur Option Strict On betreffend, sondern mehr. Stichworte: MsgBox, vbNewLine

    Auch wenn's gerade nicht das Problem ist, aber kurze Einwürfe kribbeln mir unter den Fußnägeln:
    Das hier

    VB.NET-Quellcode

    1. Dim Separator As Char
    2. Char.TryParse(";", Separator)

    kannst Du durch das hier ersetzen: Dim Separator = ";"c

    Zu Deiner Importprozedur: Probier's mal mit:

    VB.NET-Quellcode

    1. MetaData.Clear()
    2. PDMData.Clear()
    3. '*
    4. If OfdDataFile.ShowDialog() <> Windows.Forms.DialogResult.OK OrElse Not IO.File.Exists(OfdDataFile.FileName) Then Return
    6. Dim DataLines = IO.File.ReadAllLines(OfdDataFile.FileName)
    7. Dim LastMetaDataLineIndex = 101
    8. MetaData.AddRange(DataLines.Take(LastMetaDataLineIndex))
    9. PDMData.AddRange(DataLines.Skip(LastMetaDataLineIndex))

    * in der nächsten Zeile habe ich Deinen lokalen OFD durch einen auf das Form gezogenen ersetzt. Erspart Dir Code in der Prozedur, aber ich tendiere manchmal auch zu einem lokal erstellten …
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Oh ja, ich kann noch viel lernen ;)

    -> Echt hammer geil, wie schnell einem hier im Forum geholfen wird. Top! :thumbsup:

    Ich habe versucht Deinen Code umzusetzen:

    VB.NET-Quellcode

    1. Sub LoadDataFromFile2()
    2. Try
    3. MetaData.Clear()
    4. PDMData.Clear()
    5. Dim OFD As New OpenFileDialog()
    6. With OFD
    7. .Filter = "CSV-Files (*.csv)|*.csv"
    8. .RestoreDirectory = True
    9. .InitialDirectory = GTG_ODD_DEF_FOCUS_WOBBLE_SAVINGPATH
    10. If .ShowDialog() <> Windows.Forms.DialogResult.OK OrElse Not IO.File.Exists(.FileName) Then Return
    11. Dim DataLines = IO.File.ReadAllLines(.FileName)
    12. Dim LastMetaDataLineIndex = 101
    13. MetaData.AddRange(DataLines.Take(LastMetaDataLineIndex))
    14. PDMData.AddRange(DataLines.Skip(LastMetaDataLineIndex))
    15. End With
    16. Catch ex As Exception
    17. MsgBox(ex.Message & vbNewLine & ex.StackTrace)
    18. End Try
    19. End Sub


    Allerdings mag VS die Zeile: "DataLines.Take" nicht, mit dem Hinweis: "Take ist kein member von String()".

    Ist im Moment nich sonderlich tragisch. Und ich bin an anderer Stelle etwas weitergekomen. Ich habe zumindest einen BUG gefunden, was die Darstellung der Kurven anbetrifft. Die folgende Zeile führte dazu, dass Werte wie etwa 0.00012346 zu 12346 geparsed wurden:

    VB.NET-Quellcode

    1. If Single.TryParse(StringArr(k + 1), YValue) Then


    Ich habe nun das daraus gemacht:

    VB.NET-Quellcode

    1. If Single.TryParse(StringArr(k + 1), Globalization.NumberStyles.Number, New Globalization.CultureInfo("en-US"), YValue) Then


    Und siehe da! Die Kurve sieht so aus wie sie sein sollte.

    Was mich noch beschäftigt ist, weshalb ich in AlleKurven(0) alle Werte sehe, die ich eigentlich nur in AlleKurven(4) geschrieben habe...

    ist in diesem Code reproduzierbar:

    VB.NET-Quellcode

    1. Sub DrawChart()
    2. Dim AlleKurven As New List(Of Kurve)
    3. Dim ClsKurve As New Kurve
    4. Dim TmpString As String
    5. Dim StringArr() As String
    6. Dim TimeStamp As String
    7. Dim i As Integer
    8. Dim AnzahlKurven As Integer
    9. Dim NewSeries = New DataVisualization.Charting.Series
    10. Dim MySeries As New List(Of DataVisualization.Charting.Series)
    11. Dim Separator = ";"c
    13. AnzahlKurven = 20
    15. Try
    16. For i = 1 To AnzahlKurven
    17. AlleKurven.Add(ClsKurve)
    18. Next
    19. i = 0
    20. For Each element In PDMData
    21. TmpString = PDMData(i)
    22. If TmpString <> "" Then
    23. StringArr = TmpString.Split(Separator)
    24. TimeStamp = StringArr(0)
    25. Dim YValue As Single
    26. For k = 1 To StringArr.Length Step 2
    27. Dim idx As Integer
    28. If Integer.TryParse(StringArr(k), idx) Then
    29. If Single.TryParse(StringArr(k + 1), Globalization.NumberStyles.Number, New Globalization.CultureInfo("en-US"), YValue) Then
    30. If idx = 4 Then
    31. AlleKurven(idx).xValue = i
    32. AlleKurven(idx).yValue = YValue
    33. End If
    34. End If
    35. End If
    36. Next
    37. End If
    38. i += 1
    39. Next
    41. MsgBox(AlleKurven(0).minPos & vbNewLine & AlleKurven(0).minVal)
    43. Chart1.Series.Clear()
    45. MySeries.Add(NewSeries)
    46. MySeries(0).ChartType = DataVisualization.Charting.SeriesChartType.Point
    47. MySeries(0).Points.DataBindXY(AlleKurven(0).ListX, AlleKurven(0).ListY)
    48. Chart1.Series.Add(MySeries(0))
    50. 'i = 0
    51. 'For Each element In AlleKurven
    52. ' Dim NewSeries = New DataVisualization.Charting.Series
    53. ' MySeries.Add(NewSeries)
    54. ' MySeries(i).ChartType = DataVisualization.Charting.SeriesChartType.Point
    55. ' MySeries(i).Points.DataBindXY(AlleKurven(i).ListX, AlleKurven(i).ListY)
    56. ' Chart1.Series.Add(MySeries(i))
    57. ' i += 1
    58. 'Next
    59. Catch ex As Exception
    60. MsgBox(ex.Message & vbNewLine & ex.StackTrace)
    61. End Try
    62. End Sub


    Es scheint, als ob das Hinzufügen von weiteren Klassen "ClsKurve" in der Schleife:


    VB.NET-Quellcode

    1. For i = 1 To AnzahlKurven
    2. AlleKurven.Add(ClsKurve)
    3. Next


    keine eigenen Instanzen innerhalb der Liste erzeugt. Ich probiere mal weiter...

    Ok, das war es. So muss es lauten:

    VB.NET-Quellcode

    1. For i = 1 To AnzahlKurven
    2. Dim ClsKurve As New Kurve
    3. AlleKurven.Add(ClsKurve)
    4. Next


    Jetzt funktioniert es schon richtig gut ;) Alle kurven werden geladen und das in unter 2 Sekunden! So macht es spaß. Jetzt fehlt mir nur noch die Möglichkeit die Kurven einzeln abwählen zu können. Gibt es dafür nicht eine Property des Charts? Ich suche mal weiter...

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „HGR“ ()

    Nachdem ich versucht habe, Deine LogFile runterzuladen, war bei mir das Forum nicht mehr erreichbar. Komisch ...
    Take ist kein Member von String()? Ich dachte MetaData ist eine List(Of String), kein String-Array. Komisch ...
    Achso, hast Du in den Projekteigenschaften bei Verweisen unten bei Importierte Namespaces bei System.Linq ein Häkchen? Das wäre notwendig.

    ##########

    Jau, die LogFile zerschießt mir meinen Forenzugang. Und wenn dann doch was runterladbar ist, dann ist das hier das Ergebnis:

    HTML-Quellcode

    1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
    2. <html><head>
    3. <title>500 Internal Server Error</title>
    4. </head><body>
    5. <h1>Internal Server Error</h1>
    6. <p>The server encountered an internal error or
    7. misconfiguration and was unable to complete
    8. your request.</p>
    9. <p>Please contact the server administrator at
    10. [no address given] to inform them of the time this error occurred,
    11. and the actions you performed just before this error.</p>
    12. <p>More information about this error may be available
    13. in the server error log.</p>
    14. <hr>
    15. <address>Apache Server at www.vb-paradise.de Port 443</address>
    16. </body></html>

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    ​
    Achso, hast Du in den Projekteigenschaften bei Verweisen unten bei Importierte Namespaces bei System.Linq ein Häkchen? Das wäre notwendig.


    Bingo! Das hatte bei mir gefehlt! Dein Code funktioniert wunderbar!

    Jetzt muss ich Deine Frage noch einmal aufgreifen:

    ​
    Brauchst Du überhaupt CheckBoxen oder ist das ein Notbehelf?


    und mich an dieser Stelle selbst Zitieren:

    ​
    Nein, ich brauche keine Checkbox. Mir ist jede Variante die einfach zum Ziel führt recht. Letztendlich möchte ich, nachdem die Logfile eingelesen wurde, komfortabel die einzelnen Kurven ein- / ausblenden können.-> Was würdest Du in meinem Fall vorschlagen?

    Nun, mir fällt auch Anhieb ne CheckedListBox ein. Ist etwas älter, aber dafür gemacht. Ansonsten könntest Du auch 2 ListBoxen und 2 Buttons nehmen. Eine ListBox zeigt die Namen aller Series an, die 2. die Namen von denen, die angezeigt werden sollen und die Buttons sind dafür da, um eine ausgewählte Series von der einen in die andere ListBox zu schieben bzw. anzuzeigende Series hinzuzufügen bzw. sie zu entfernen.

    Noch einfacher wäre natürlich ne ListBox, bei der du den SelectionMode auf MultiSimple oder MultiExtended schaltest und dann wählt man eben aus, welche Series angezeigt werden sollen.
    Oder Du nimmst n DGV mit 2 Spalten, eine Spalte mit Namen, die 2. mit CheckBoxen. Hach, es gibt so viele Möglichkeiten …
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    ​
    Jau, die LogFile zerschießt mir meinen Forenzugang. Und wenn dann doch was runterladbar ist, dann ist das hier das Ergebnis:


    Krass... das tut mir leid...

    Die Idee mit dem DGV gefällt mir richtig gut! Ich checke das mal aus! Vielen Dank nochmal für die großartige Unterstützung!

    Hallo Zusammen,

    Ich habe es nun auf die schnelle doch mit der CheckedListBox gelöst. Mit dem DGV muss ich mich noch intensiver beschäftigen, ganz so einfach wie mit der CheckedListBox habe ich es mit der DGV nicht lösen können.

    Insgesamt bin ich mit der aktuellen Lösung sehr zufrieden. Vielen Dank noch einmal speziell an VaporiZed und an das ganze Forum! Viele Lösungen meiner Problemstellungen habe ich in eurem Forum gefunden. Eine super Community!


    Hier mein Code (falls jemand mal eine ähnliche Aufgabe hat):

    VB.NET-Quellcode

    1. ​
    2. Option Strict On
    3. Imports System.Windows.Forms.DataVisualization.Charting
    4. Imports System.IO
    6. Public Class FrmDatalogViewer
    8. Public MetaData As New List(Of String)
    9. Public PDMData As New List(Of String)
    10. Private AlleKurven As New List(Of Kurve)
    12. Private Sub FrmDatalogViewer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    13. CLB.CheckOnClick = True
    14. End Sub
    16. Sub LoadDataFromFile()
    17. Try
    18. MetaData.Clear()
    19. PDMData.Clear()
    20. Dim OFD As New OpenFileDialog()
    21. With OFD
    22. .Filter = "CSV-Files (*.csv)|*.csv"
    23. .RestoreDirectory = True
    24. .InitialDirectory = GTG_ODD_PDM_SAVINGPATH
    25. If .ShowDialog() <> Windows.Forms.DialogResult.OK OrElse Not IO.File.Exists(.FileName) Then Return
    26. Dim DataLines = IO.File.ReadAllLines(.FileName)
    27. Dim LastMetaDataLineIndex = 101
    28. MetaData.AddRange(DataLines.Take(LastMetaDataLineIndex))
    29. PDMData.AddRange(DataLines.Skip(LastMetaDataLineIndex))
    30. End With
    31. Catch ex As Exception
    32. MsgBox(ex.Message & vbNewLine & ex.StackTrace)
    33. End Try
    34. End Sub
    36. Sub GetValues()
    37. Dim TmpString As String
    38. Dim StringArr() As String
    39. Dim TimeStamp As String
    40. Dim i, k As Integer
    41. Dim AnzahlKurven As Integer
    42. Dim Separator = ";"c
    44. AnzahlKurven = 40
    45. CLB.Items.Clear()
    47. Try
    48. For i = 1 To AnzahlKurven
    49. Dim ClsKurve As New Kurve
    50. AlleKurven.Add(ClsKurve)
    51. If i < 5 Then
    52. CLB.Items.Add("Series " & i, True)
    53. Else
    54. CLB.Items.Add("Series " & i, False)
    55. End If
    56. Next
    57. i = 0
    58. For Each element In PDMData
    59. TmpString = PDMData(i)
    60. If TmpString <> "" Then
    61. StringArr = TmpString.Split(Separator)
    62. TimeStamp = StringArr(0)
    63. Dim YValue As Single
    64. For k = 1 To StringArr.Length Step 2
    65. Dim idx As Integer
    66. If Integer.TryParse(StringArr(k), idx) Then
    67. If Single.TryParse(StringArr(k + 1), Globalization.NumberStyles.Number, New Globalization.CultureInfo("en-US"), YValue) Then
    68. AlleKurven(idx).xValue = i
    69. AlleKurven(idx).yValue = YValue
    70. AlleKurven(idx).DataExist = True
    71. End If
    72. End If
    73. Next
    74. End If
    75. i += 1
    76. Next
    77. Catch ex As Exception
    78. MsgBox(ex.Message & vbNewLine & ex.StackTrace)
    79. End Try
    80. End Sub
    82. Sub DrawChart()
    83. Try
    84. Dim MySeries As New List(Of DataVisualization.Charting.Series)
    85. Dim i, k As Integer
    86. Chart1.Series.Clear()
    87. i = 0
    88. k = 0
    89. For Each element In AlleKurven
    90. If CLB.CheckedItems.Count > 0 Then
    91. If CLB.GetItemCheckState(i) = CheckState.Checked Then
    92. Dim NewSeries = New DataVisualization.Charting.Series
    93. NewSeries.Name = CLB.GetItemText(CLB.Items(i))
    94. MySeries.Add(NewSeries)
    95. MySeries(k).ChartType = DataVisualization.Charting.SeriesChartType.Line
    96. MySeries(k).Points.DataBindXY(AlleKurven(i).ListX, AlleKurven(i).ListY)
    97. Chart1.Series.Add(MySeries(k))
    98. k += 1
    99. Application.DoEvents()
    100. End If
    101. End If
    102. i += 1
    103. Next
    104. Catch ex As Exception
    105. MsgBox(ex.Message & vbNewLine & ex.StackTrace)
    106. End Try
    107. End Sub
    109. Private Class Kurve
    110. Public ListX As New List(Of Long)
    111. Public ListY As New List(Of Single)
    112. Public Visible As Boolean
    113. Public DataExist As Boolean
    114. Dim i As Integer
    116. Dim _minVal As Single
    117. Dim _maxVal As Single
    118. Dim _minPos As Integer
    119. Dim _maxPos As Integer
    120. Dim _sum As Single
    121. Dim _avg As Single
    122. Dim _xValue As Long
    123. Dim _yValue As Single
    125. Public ReadOnly Property minVal As Single
    126. Get
    127. Return _minVal
    128. End Get
    129. End Property
    131. Public ReadOnly Property maxVal As Single
    132. Get
    133. Return _maxVal
    134. End Get
    135. End Property
    137. Public ReadOnly Property minPos As Integer
    138. Get
    139. Return _minPos
    140. End Get
    141. End Property
    143. Public ReadOnly Property maxPos As Integer
    144. Get
    145. Return _maxPos
    146. End Get
    147. End Property
    149. Public Property xValue As Long
    150. Get
    151. Return _xValue
    152. End Get
    153. Set(value As Long)
    154. _xValue = value
    155. ListX.Add(_xValue)
    156. End Set
    157. End Property
    159. Public Property yValue As Single
    160. Get
    161. Return _yValue
    162. End Get
    163. Set(value As Single)
    164. _yValue = value
    165. If _yValue < _minVal Then
    166. _minVal = _yValue
    167. _minPos = i
    168. End If
    169. If _yValue > _maxVal Then
    170. _minVal = _yValue
    171. _maxPos = i
    172. End If
    173. _sum += _yValue
    174. ListY.Add(_yValue)
    175. i += 1
    176. End Set
    177. End Property
    179. Public Property avg As Single
    180. Get
    181. Return _avg
    182. End Get
    183. Set(value As Single)
    184. _avg = value
    185. _avg = _sum / ListY.Count
    186. End Set
    187. End Property
    189. End Class
    191. Private Sub Refresh_Click(sender As Object, e As EventArgs)
    192. DrawChart()
    193. End Sub
    195. Private Sub OpenFileToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenFileToolStripMenuItem.Click
    196. LoadDataFromFile()
    197. GetValues()
    198. DrawChart()
    199. End Sub
    201. Private Sub CLB_SelectedValueChanged(sender As Object, e As EventArgs) Handles CLB.SelectedValueChanged
    202. DrawChart()
    203. End Sub
    204. End Class

Facebook
Telefonspende