Hi Joseph,
did you generated every 500 ms a new data array with ca. 100 new values and add this data array with PlotXYappend to the Scattergaphs? If I add only one big data array (with e.g. 10000 values) to the scattergraphs, this "overplot-error" does not appear. Only with updated data every 500 ms.
But one thing you mentioned could be a very interesting issue: overlapping of the elements. Because I wanted to reduce the space between PlotArea and Control-Border (described above) I overlapped the elements. Maybe you can see something “suspicious” in the added source-code (I bet on line 56 -> something * 0.95). This Function is realized in the form load event. I hope this is not too cryptic…
' Inputs: Startnumber: a number between 1 - 60 that represents the startgraph
' Stopnumber: a number between 1 - 60 that represents the stopgraph
' HistoryCount: HistoryCount-Value of new generated Scattergraphs
Public Sub ArrangeScatterGraphs(ByVal StartNumber As Short, ByVal StopNumber As Short, ByVal HistoryCount As Integer)
Dim i As Int32, j As Int16
Dim iHeight As Int32
Dim ctrl As Object
Dim GraphCaptionNr As Int16
' Number of shown Scattergraphs
Dim GraphCount As Short = (StopNumber - StartNumber) + 1
' adjust height of Scattergraphs if at least one Scattergraph is added to form
If GraphCount > 0 Then
iHeight = (Me.Height - 30) / GraphCount
End If
' remove existing controls(scattergraphs) in form
GraphList.RemoveAll()
For i = 0 To 5
For Each ctrl In Me.Controls
If TypeOf (ctrl) Is NationalInstruments.UI.WindowsForms.ScatterGraph Then
Me.Controls.Remove(ctrl)
End If
Next ctrl
Next i
GraphCaptionNr = StartNumber ' start caption with startgraph number
' loop to add every new scattergraph to form
For i = 0 To (GraphCount - 1)
GraphList.Add() ' add scattergraphs to list (code see below)
''##### add scattergraph to List############
' Dim myList As New List(Of NationalInstruments.UI.WindowsForms.ScatterGraph) '- classinternal liste of graphs
' 'procedure to add additional graphs to list
'Public Sub Add()
' Dim Graph As NationalInstruments.UI.WindowsForms.ScatterGraph = New NationalInstruments.UI.WindowsForms.ScatterGraph
' Graph.SelectionColor = Color.Blue
' myList.Add(Graph)
' AddHandler Graph.Pan, AddressOf lGraphPan
'End Sub
'#######################################################
AddHandler GraphList.Item(GraphList.Count - 1).XAxisRangeChanged, AddressOf xAxisChanged
AddHandler GraphList.Item(GraphList.Count - 1).CursorChanged, AddressOf GraphCursorChanged
' add scattergraph and adjustsettings
With GraphList.Item(GraphList.Count - 1)
Me.Controls.Add(GraphList.Item(GraphList.Count - 1)) ' add scattergraph to form from GraphList
.Name = GraphCaptionNr
.Top = ((iHeight * i) * 0.95) ' to realize an overlap of the scattergraphs
.Left = 0
.Width = Me.Width
' adjust height of each scattergraph
If i = (GraphCount - 1) Then
' letzte graph
If (GraphCount > 1) Then
' more than one graph
.Height = iHeight + 30
Else
' only one graph
.Height = Me.Height - frmMain.ssStatus.Height
End If ' (GraphCount > 1)
Else
' not last graph - a little bit bigger to realize overlap
.Height = iHeight * 1.05
End If ' i = (GraphCount - 1)
' border and padding of each added scattergraph
Dim SizeArray As System.Drawing.Size = .PlotAreaBounds.Size
.Border = .Border.None
.Padding = New Padding(0, 0, 0, 0)
Dim newMargin As New System.Windows.Forms.Padding
newMargin.Top = 0
newMargin.Bottom = 0
.Margin = newMargin
.Caption = "#" + Str(GraphCaptionNr)
.CaptionBackColor = System.Drawing.Color.LightGreen
.CaptionPosition = CaptionPosition.Right
GraphCaptionNr += 1
' alternate PlotArea colors
If (i + 1) Mod 2 = 0 Then
' even graph number
.PlotAreaColor = System.Drawing.Color.LightGray
Else
'odd graph number
.PlotAreaColor = System.Drawing.Color.OldLace
End If
.InteractionModeDefault = GraphDefaultInteractionMode.None
.InteractionMode = GraphInteractionModes.DragCursor + GraphInteractionModes.PanX + GraphInteractionModes.ZoomX + GraphInteractionModes.ZoomY
' y-axis ###############################################
.YAxes.Add(New NationalInstruments.UI.YAxis)
With .YAxes(0)
.Caption = "[mm]"
.MajorDivisions.GridVisible = True
' y-axis scaling mode with range
.Mode = AxisMode.Fixed
.Range = New Range(-2, 2)
' alternate gridcolors
If (i + 1) Mod 2 = 0 Then
' even graph number
.MajorDivisions.GridColor = System.Drawing.Color.OldLace
.MinorDivisions.GridColor = System.Drawing.Color.OldLace
Else
'odd graph number
.MajorDivisions.GridColor = System.Drawing.Color.LightGray
.MinorDivisions.GridColor = System.Drawing.Color.LightGray
End If
.MajorDivisions.GridLineStyle = LineStyle.Dash
.MinorDivisions.GridVisible = True
.MinorDivisions.GridLineStyle = LineStyle.Dash
.Position = YAxisPosition.LeftRight
.MinimumWidth = 60
.EndLabelsAlwaysVisible = False
End With
' x-axis ###############################################
.XAxes.Add(New NationalInstruments.UI.XAxis)
With .XAxes(0)
' show axis caption only for last added graph
If i = (GraphCount - 1) Then
' last graph
.CaptionVisible = True
Else
' other graphs without axis caption
.CaptionVisible = False
.Visible = False
End If ' check if i = (GraphCount - 1)
'###
' adjust caption and formatstring of x-axis
.Caption = "Time [hh:mm:ss]"
.MajorDivisions.LabelFormat = New NationalInstruments.UI.FormatString(NationalInstruments.UI.FormatStringMode.DateTime, "HH:mm:ss")
.MajorDivisions.GridVisible = True
' alternate gridcolors
If (i + 1) Mod 2 = 0 Then
' even graph number
.MajorDivisions.GridColor = System.Drawing.Color.OldLace
.MinorDivisions.GridColor = System.Drawing.Color.OldLace
Else
' odd graph number
.MajorDivisions.GridColor = System.Drawing.Color.LightGray
.MinorDivisions.GridColor = System.Drawing.Color.LightGray
End If
.MajorDivisions.GridLineStyle = LineStyle.Dash
.MinorDivisions.GridVisible = True
.MinorDivisions.GridLineStyle = LineStyle.Dash
.Mode = AxisMode.AutoScaleLoose
.EndLabelsAlwaysVisible = False
End With
' add plots to each scattergraph
For j = 0 To 7
.Plots.Add(New NationalInstruments.UI.ScatterPlot)
.Plots(j).HistoryCapacity = HistoryCount
Next j
.Update()
End With
Next i
End Sub ' arrangeScatterGraphs
Thanks a lot for your help
Robert
