Imports System.Windows.Forms.DataVisualization
 
Public Class clsChartRealTime
    Inherits Charting.Chart
    Dim _maxpoints As Integer   'Anzahl der angezeigten Datenpunkte
    Dim _starttime As Long      'Startzeitpunkt  (Bezugspunkt für Zeitstempel)
    Dim _showmarker As Boolean      'Datenpunkt-Marker zeigen
    Dim _showvaluelabel As Boolean 'Datenpunkt-Wert als Label zeigen 
    Dim _createdatalist As Boolean    'Datenliste führen
    Dim _Initialized As Boolean
    Const cDataSeries As String = "DataSeries"
    Const cTicksPerSecond As Long = CLng(10 ^ 7)  'Anzahl Ticks pro Sekunde
 
    Public Structure strucChartData
        Dim time As Date
        Dim value As Double
    End Structure
 
    Dim DataList As New List(Of strucChartData) 'optionale Liste der Daten
 
    ''' <summary>Definition und Initialisierung des RealTimeCharts</summary>
    ''' <param name="PointsToShow">Wie viele Punkte sollen maximal angezeigt 
    ' werden?</param>
    ''' <param name="ymax">Obergrenze der Y.Achse (größter Datenwert)</param>
    ''' <param name="ymin">Untergrenze der Y-Achse (kleinster Datenwert)</param>
    ''' <param name="ShowPointMarker">Sollen Datenpunkte zusätzlich markiert 
    ' werden?</param>
    ''' <param name="ShowValueAsLabel">Sollen Datenwerte als Label im Chart 
    ' angezeigt werden?</param>
    ''' <param name="CreateDataList">Sollen alle Daten in einer Liste 
    ' gesammelt werden?</param>
    Public Sub Init(ByVal PointsToShow As Integer, ByVal ymax As Double, ByVal _
      ymin As Double, _
                    Optional ByVal ShowPointMarker As Boolean = False, _
                    Optional ByVal ShowValueAsLabel As Boolean = False, _
                    Optional ByVal CreateDataList As Boolean = False)
        'Parameter übernehmen
        If PointsToShow < 3 Then PointsToShow = 3
        ymax = Math.Max(ymin + 0.0001, ymax)
        _maxpoints = PointsToShow : _starttime = Now.Ticks
        _showmarker = ShowPointMarker : _showvaluelabel = ShowValueAsLabel
        _createdatalist = CreateDataList
 
        '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
        DataList.Clear()
        _Initialized = True
    End Sub