Public Class frmTimeSeries
 
    Dim cht As New System.Windows.Forms.DataVisualization.Charting.Chart _
        With {.Parent = Me, .Dock = DockStyle.Fill}
 
 
    'generische Klasse für Zeitreihenwert 
    Private Class TimeValue(Of T As iComparable)
        Implements IComparable(Of TimeValue(Of T))
 
        Private _value As T
        Private _time As DateTime
 
        Private _min, _max As T
 
        Public Sub New(time As DateTime, value As T)
            _time = time
            _value = value : _min = value : _max = value
        End Sub
 
        Public ReadOnly Property GetTime() As DateTime
            Get
                Return _time
            End Get
        End Property
 
        Public ReadOnly Property GetValue() As T
            Get
                Return _value
            End Get
        End Property
 
        Public Property Max() As T
            Set(value As T)
                _max = value
            End Set
            Get
                Return _max
            End Get
        End Property
 
        Public Property Min As T
            Set(value As T)
                _min = value
            End Set
            Get
                Return _min
            End Get
        End Property
 
 
 
        Public Function CompareTo(other As TimeValue(Of T)) As Integer _
            Implements System.IComparable(Of TimeValue(Of T)).CompareTo
            Return _value.CompareTo(other.GetValue)
        End Function
    End Class
 
 
    Dim timeseries As New List(Of TimeValue(Of Double))
 
 
    Private Sub CreateRandomSeries()
 
        Dim rndm As New Random(12345)
        Dim tim As New DateTime(2000, 1, 1)
        For i As Integer = 1 To 50000
            tim = tim.AddMinutes(1)
            timeseries.Add _
                (New TimeValue(Of Double)(tim, rndm.NextDouble + i * 0.000005))
        Next i
    End Sub
 
 
    Private Sub frmTimeSeries_Load(sender As System.Object, _
                    e As System.EventArgs) Handles MyBase.Load
        CreateRandomSeries()
        Dim params As List(Of TimeValue(Of Double)) = _
            CreateTimeSeriesParams(timeseries.Count \ 200)
 
        CreateChart(params)
    End Sub
 
 
    Private Function CreateTimeSeriesParams(stepp As Integer) _
        As List(Of TimeValue(Of Double))
 
        Dim params, vl As New List(Of TimeValue(Of Double))
            For i As Integer = stepp \ 2 To _
                (timeseries.Count - 1) - stepp \ 2 Step stepp
 
                vl.Clear()
                For k As Integer = i - stepp \ 2 To i + stepp \ 2
                    vl.Add(timeseries(k))
                Next k
 
                vl.Sort()
 
                'Anzeigeparameter (Zeiteintrag: evt. als Intervallmitte)
                params.Add(vl(stepp \ 2))
                params(params.Count - 1).Max = vl(stepp \ 4).GetValue
                params(params.Count - 1).Min = vl(stepp \ 4 * 3).GetValue
            Next i
        Return params
    End Function
 
 
    Private Sub CreateChart(params As List(Of TimeValue(Of Double)))
 
        cht.ChartAreas.Clear()
        cht.Series.Clear()
        cht.ChartAreas.Add("Base")
        With cht.Series
            .Add("Values") : .Add("min") : .Add("max")
        End With
        With cht.Series("Values")
            For i As Integer = 0 To params.Count - 1
                .Points.AddXY(params(i).GetTime, params(i).GetValue)
            Next i
            .ChartType = DataVisualization.Charting.SeriesChartType.Line
        End With
        With cht.Series("min")
            For i As Integer = 0 To params.Count - 1
                .Points.AddXY(params(i).GetTime, params(i).Min)
                .ChartType = DataVisualization.Charting.SeriesChartType.Line
            Next i
        End With
        With cht.Series("max")
            For i As Integer = 0 To params.Count - 1
                .Points.AddXY(params(i).GetTime, params(i).Max)
                .ChartType = DataVisualization.Charting.SeriesChartType.Line
            Next i
        End With
 
        With cht.ChartAreas("Base")
            .AxisX.IntervalType = _
              DataVisualization.Charting.DateTimeIntervalType.Minutes
 
            .AxisY.Minimum = -0.2
            .AxisY.Maximum = 1.2
        End With
    End Sub
 
End Class