Ahnungsloser ahnungsloser...

Ahnungsloser ahnungsloser...

    Public Sub ReDraw(ByVal PointsToShow As Integer, ByVal _
      ymin As Double, ByVal ymax As Double,
                    Optional ByVal ShowPointMarker As Boolean = False)
 
        If Not _Initialized Then Exit Sub   'Kein Chart da > Exit
 
        If DataList.Count < PointsToShow Then   > Genügend Messpunkte vorhanden?
            MessageBox.Show("Zu wenig Datenpunkte verfügbar!", "Fehler")
            Exit Sub
        End If
 
        ymax = Math.Max(ymin + 0.0001, ymax)
 
        _maxpoints = PointsToShow : _starttime = Now.Ticks
        _showmarker = ShowPointMarker
 
        'Achsen einrichten
        With MyBase.ChartAreas(0)
            With .AxisX
                .CustomLabels.Clear()
                .MajorGrid.Enabled = False
                .MajorTickMark.TickMarkStyle = Charting.TickMarkStyle.AcrossAxis
                .MajorTickMark.Enabled = True
                .MajorTickMark.Size = 6
                .LabelAutoFitStyle = Charting.LabelAutoFitStyles.DecreaseFont
                .IntervalType = Charting.DateTimeIntervalType.Number
                .Interval = cTicksPerSecond
            End With
            .AxisY.Minimum = ymin : .AxisY.Maximum = ymax
        End With
 
        MyBase.Series.Clear() : MyBase.Legends.Clear()
        'Datenserie einrichten
        MyBase.Series.Add(cDataSeries)
        With MyBase.Series(cDataSeries)
            .ChartType = Charting.SeriesChartType.Line
            .BorderWidth = 2
        End With
        MyBase.Series.Add(cDataSeries2)
 
        With MyBase.Series(cDataSeries2)
            .ChartType = Charting.SeriesChartType.Line
            .BorderWidth = 2
        End With
 
        'Hier müsste ich dann die Daten in das Chart eintragen lassen. Aber wie 
        ' bekomme ich die aus der Datatable rausgelöst? 
 
        If Werte = 1 Then  'Nur eine Kurve?
            For i As Integer = 0 To PointsToShow  'Wieviel Werte?
                t = Zeitwert(i)   'Werte irgendwie aus Datatable holen
                v1 = y(-Wert(i))
                AddDataPoint(t, v1) 'Werte irgendwie ins Diagramm bekommen
            Next
        ElseIf Werte = 2 Then  'Zwei Kurven?
            For i As Integer = 0 To PointsToShow
                t = Zeitwert(i)
                v1 = y-Wert1(i))
                v2 = y - Wert2(i)
                AddDataPoint(t, v1, v2)
            Next
        End If
 
 
        _Initialized = True
    End Sub

Ahnungsloser ahnungsloser...

Imports System.Windows.Forms.DataVisualization
 
Public Class RealTimeChart_II
    Inherits Charting.Chart
 
    'Datengrenzen 
    Private _MinValue As Double = Double.MinValue
    Private _Maxvalue As Double = Double.MaxValue
    Private _MaxPoints As Integer = 10
 
    'Tabelle und Spaltenangaben
    Private _ColumnList As List(Of String)
    Private _TimeColumn As String
    Private _data As DataTable
 
    Const cDataSeries As String = "DataSeries"
    Const cBaseArea As String = "BaseArea"
    Const cTicksPerSecond As Long = CLng(10 ^ 7)  'Anzahl Ticks pro Sekunde
 
    Private Sub SetYAxis()
        With Me.ChartAreas(cBaseArea)
            .AxisY.Minimum = _MinValue : .AxisY.Maximum = _Maxvalue
        End With
    End Sub
 
    Public Property MinValue() As Double
        Set(ByVal value As Double)
            If _Maxvalue < value Then _Maxvalue += Math.Abs(value) * 1.1
            _MinValue = value
            SetYAxis()
        End Set
        Get
            Return _MinValue
        End Get
    End Property
 
    Public Property MaxValue() As Double
        Set(ByVal value As Double)
            If _MinValue > value Then _MinValue -= Math.Abs(value) * 1.1
            _Maxvalue = value
            SetYAxis()
        End Set
        Get
            Return _Maxvalue
        End Get
    End Property
 
    Public Property MaxPoints() As Integer
        Set(ByVal value As Integer)
            If value < 5 Then value = 5
            _MaxPoints = value
        End Set
        Get
            Return _MaxPoints
        End Get
    End Property
 
    Public Sub New(ByVal dt As DataTable, _
        ByVal ChartMinvalue As Double, ByVal ChartMaxValue As Double, _
        ByVal ChartMaxDataPoints As Integer, _
        ByVal ChartTimeColumn As String, ByVal ParamArray DataColumns() As _
        String)
 
        Me.ChartAreas.Add(cBaseArea)
        MinValue = ChartMinvalue : MaxValue = ChartMaxValue
        MaxPoints = ChartMaxDataPoints
        _TimeColumn = ChartTimeColumn
        _ColumnList = New List(Of String)(DataColumns)
        _data = dt
        Init()
    End Sub
 
    Private Sub Init()
        'Achsen einrichten
        With MyBase.ChartAreas(cBaseArea)
          With .AxisX
            .CustomLabels.Clear()
            .MajorGrid.Enabled = False
            .MajorTickMark.TickMarkStyle = Charting.TickMarkStyle.AcrossAxis
            .MajorTickMark.Enabled = True
            .MajorTickMark.Size = 6
            .LabelAutoFitStyle = Charting.LabelAutoFitStyles.DecreaseFont
            .IntervalType = Charting.DateTimeIntervalType.Number
            .Interval = cTicksPerSecond
          End With
          .AxisY.Minimum = _MinValue : .AxisY.Maximum = _Maxvalue
        End With
 
        Dim colors As New List(Of Color)
        With colors
            .Add(Color.Red) : .Add(Color.Green) : .Add(Color.Blue)
        End With
 
        MyBase.Series.Clear() : MyBase.Legends.Clear()
        'Datenserien einrichten
        For i As Integer = 0 To _ColumnList.Count - 1
            Dim sn As String = cDataSeries & "_" & _ColumnList(i)
            MyBase.Series.Add(sn)
            With MyBase.Series(sn)
                .ChartType = Charting.SeriesChartType.Line 
                .BorderWidth = 2
                .Color = colors(i Mod colors.Count)
            End With
        Next i
    End Sub
 
    Public Sub AddRow(ByVal values() As Object)
        _data.Rows.Add(values)
        Dim IndexFirstChartPoint As Integer = _
        Math.Max(0, _data.Rows.Count - _MaxPoints - 1)
        Dim value As Double
 
        For col As Integer = 0 To _ColumnList.Count - 1
            With MyBase.Series(cDataSeries & "_" & _ColumnList(col))
 
              .Points.Clear()
              For rowindex As Integer = _
                  IndexFirstChartPoint To _data.Rows.Count - 1
                 value = CDbl(_data.Rows(rowindex)(_ColumnList(col)))
                 value = Math.Min(value, MyBase.ChartAreas(0).AxisY.Maximum)
                 value = Math.Max(value, MyBase.ChartAreas(0).AxisY.Minimum)
                 .Points.AddXY(CDate(_data.Rows(rowindex)(_TimeColumn)), value)
              Next rowindex
            End With
        Next col
        With MyBase.Series(0)
            MyBase.ChartAreas(0).AxisX.Minimum = .Points(0).XValue
            MyBase.ChartAreas(0).AxisX.Maximum = _
                   .Points(.Points.Count - 1).XValue
        End With
        Me.Invalidate()
    End Sub
 
End Class

Public Class frmRealtimeChart
 
    Dim rtc As RealTimeChart_II
    Dim WithEvents dt As DataTable
    Dim WithEvents tim As New Timer With {.Enabled = True, .Interval = 500}
    Dim rndm As New Random(123456)
 
    Private Sub frmRealtimeChart_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
 
        dt = New DataTable
        dt.Columns.Add("TimeStamp", GetType(Date))
        dt.Columns.Add("Channel1", GetType(Double))
        dt.Columns.Add("Channel2", GetType(Double))
        rtc = New RealTimeChart_II(dt, -100, 100, 10, _
        "Timestamp", "Channel1", "Channel2")
 
        rtc.Parent = Me : rtc.Dock = DockStyle.Fill
 
    End Sub
 
    Private Sub tim_Tick(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles tim.Tick
 
        If rndm.NextDouble > 0.6 Then
            If dt.Rows.Count Mod 10 = 0 Then
                With rtc
                    'Anzeigewerte ändern 
                    .MaxValue = 1.2 * .MaxValue : .MinValue = 1.2 * .MinValue
                    .MaxPoints += 4
                End With
            End If
            rtc.AddRow({Now, -100 + rndm.NextDouble * 200, -80 + _
              rndm.NextDouble * 160})
        End If
 
    End Sub
End Class

Ahnungsloser ahnungsloser...