MS Chart nur fünf Messwerte anzeigen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von tulla.

    MS Chart nur fünf Messwerte anzeigen

    Hi,

    wie stelle ich es im Chart ein das er nur die aktuellsten 4 Einträge (1 komplette Stunde) anzeigt und dann mit einer Scrollbar arbeitet?!?!?

    In meinem Beispiel dann nur rechts vom roten senkrechten strich und alles was links daneben steht "verschwindet" dann hinter der Scrollmaske.

    Hi,
    kann ich gerne machen, nur ist da nicht viel was die Scrollbar betrifft. Das wir ja irgendeine Einstellung in den Eigenschaften sein...


    VB.NET-Quellcode

    1. Chart1.Series.Add("Ofen")
    3. Dim blockSize As Integer = 1
    4. Dim mypath As String = TextBox1.Text
    7. For series As Integer = 0 To 18 Step 1
    8. Chart1.Series(series).YValueType = DataVisualization.Charting.ChartValueType.Double
    9. Chart1.Series(series).IsVisibleInLegend = True
    10. Chart1.Series(series).BorderWidth = 2
    11. Chart1.Series(series).ChartType = DataVisualization.Charting.SeriesChartType.Spline
    12. ' Chart1.Series(series).ChartType = DataVisualization.Charting.SeriesChartType.FastLine
    13. Next
    16. 'Zoomen einstellen
    17. Chart1.ChartAreas(0).CursorX.IsUserSelectionEnabled = True
    18. Chart1.ChartAreas(0).CursorX.IsUserEnabled = True
    19. Chart1.ChartAreas(0).CursorX.IntervalType = DataVisualization.Charting.DateTimeIntervalType.Minutes
    22. '#################################################
    23. 'scrollen
    24. ' disable zoom-reset button (only scrollbar's arrows are available)
    25. Chart1.ChartAreas(0).AxisX.ScrollBar.ButtonStyle = DataVisualization.Charting.ScrollBarButtonStyles.None
    28. ' Enable zooming on the chart for the end-user.
    29. Chart1.ChartAreas(0).AxisX.ScaleView.Zoomable = True
    34. '#################################################
    37. Chart1.ChartAreas(0).AxisY.LabelStyle.ForeColor = Color.Gray
    38. Chart1.ChartAreas(0).AxisY.LabelStyle.Format = "{0.0} °C"
    39. Chart1.ChartAreas(0).AxisY.IsStartedFromZero = False
    42. ' Set the size of the view.
    43. Chart1.ChartAreas(0).AxisX.IntervalType = DataVisualization.Charting.DateTimeIntervalType.Minutes
    44. Chart1.ChartAreas(0).AxisX.LabelStyle.ForeColor = Color.Gray
    45. Chart1.ChartAreas(0).AxisX.LabelStyle.Format = "dd.MM. - HH:mm"
    46. Chart1.ChartAreas(0).AxisX.Interval = 15
    47. Chart1.ChartAreas(0).CursorX.AutoScroll = True
    50. Dim RaumAnzahlInsg As Integer = Form_Settings.DataGridView1.Columns.Count - 1 ' Messpunkte (Keller,Wohnzimer...)
    51. Dim MaxMessungen As Integer = Form_Settings.DataGridView1.Rows.Count - 1 'Temperaturwerte in °C
    53. TextBox2.Text = MaxMessungen
    54. TextBox3.Text = RaumAnzahlInsg
    58. For i = 1 To RaumAnzahlInsg
    60. For j = 0 To MaxMessungen
    63. Dim temperatur As Double = Form_Settings.DataGridView1(i, j).Value
    64. Dim datum As Date = Form_Settings.DataGridView1(0, j).Value
    66. TextBox4.Text = Form_Settings.DataGridView1(0, MaxMessungen).Value
    68. Select Case (i)
    69. Case 1
    70. If Me.CB_Ofen.Checked Then
    71. Chart1.Series("Ofen").Points.AddXY(datum, temperatur)
    72. End If
    73. End Select
    74. Next
    75. Next

    Zeigt er in dem Chart die gesamte aufzeichnungszeit an oder nur aus dem aktuellen stand?

    Wenn es die gesamte aufzeichnungszeit ist, musst die Daten vorher Filtern eingrenzen mit der aktuellen zeit.

    Wegen der scrollbar probier mal:

    VB.NET-Quellcode

    1. Chart1.ChartAreas(0).AxisX.ScrollBar.Visible = True

    Du kannst die Schleife von Series von 18 Messwerten auf 4 setzten da wird doch auch nur die Auswahl von 4 Werten also eine Stunde angezeigt.

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

Facebook
Telefonspende