vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Oszilloskop über MS Chart 
Autor: HenryV
Datum: 08.11.19 09:31

Hallo Alois

Der Trick um das Chart zu "scrollen", ist das du beim hinzufügen des letzten Punktes den ersten aus der Serie entfernst.

Hier das Beispiel (WorkingWithData>RealTimeData) von Windows Forms Samples Environment for Microsoft Chart Controls.

Imports System.Windows.Forms.DataVisualization.Charting
...
 
Private random As New Random()
Private pointIndex As Integer = 0
...
 
Private Sub timerRealTimeData_Tick(sender As Object, e As System.EventArgs)
   ' Define some variables
   Dim numberOfPointsInChart As Integer = 200
   Dim numberOfPointsAfterRemoval As Integer = 150
 
   ' Simulate adding new data points
   Dim numberOfPointsAddedMin As Integer = 5
   Dim numberOfPointsAddedMax As Integer = 10
   Dim pointNumber As Integer
   For pointNumber = 0 To (random.Next(numberOfPointsAddedMin, _
     numberOfPointsAddedMax)) - 1
      chart1.Series(0).Points.AddXY(pointIndex + 1, random.Next(1000, 5000))
      pointIndex += 1
   Next pointNumber
 
   ' Adjust Y & X axis scale
   chart1.ResetAutoValues()
 
   ' Keep a constant number of points by removing them from the left
   While chart1.Series(0).Points.Count > numberOfPointsInChart
      ' Remove data points on the left side
      While chart1.Series(0).Points.Count > numberOfPointsAfterRemoval
         chart1.Series(0).Points.RemoveAt(0)
      End While
 
      ' Adjust X axis scale
      chart1.ChartAreas("Default").AxisX.Minimum = pointIndex - _
        numberOfPointsAfterRemoval
      chart1.ChartAreas("Default").AxisX.Maximum = chart1.ChartAreas( _
      "Default").AxisX.Minimum + numberOfPointsInChart
   End While
 
   ' Invalidate chart
   chart1.Invalidate()
End Sub 'timerRealTimeData_Tick
...
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Oszilloskop über MS Chart824Ortech06.11.19 14:56
Re: Oszilloskop über MS Chart466HenryV08.11.19 09:31

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel