Software Siglo XXI

Example 14: X/Y scatter with spline chart

This is the classic X/Y chart with a spline joining all the points.

Steps:

1. Create a new Windows application project (VB.NET)

2. Add Super 2d/3d Graph Library to the toolbox pallete and drag it to Form1.

3. Copy and paste de following code:

Note: the code in the Form1_Load event could be used in ASP.NET applications as well.

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      Dim seriesFactory As New SeriesFactory

      With oGraph
         .AutoRefresh = False
         .LicenseeIdentifier = "STAND"
         .Title = "Scatter X/Y with spline example"
         .Calculation = CALCULATION.CALCULATION_AVERAGE_SPLINE
         .CalculationLineStyle = New Pen(Color.Brown, 1)
         .Style = STYLE2D3D.STYLE2D_XY
         .ShowDataTable = False
         .ShowValues = False
         .ShowLegend = False
         .XAxisDividersCount = 5
         .ShowDividerX = True
         .ShowXAxis = True
         .XAxisLabelsRotated = True
         .XAxisTitle = "Test #1 - Amoeba progression"
         .WallsBackStyle = STYLEWALLBACKGROUND.
                  STYLEWALLBACKGROUND_GRADIENT_INVERTED
         .PointSize = 3
         .PointStyle = STYLEPOINT.STYLEPOINT_CIRCLE
      End With

      ' Add some random data
      Dim x As Single = 0
      For k As Integer = 1 To 30
         seriesFactory.AddPoint(x, Rnd())
         x += Rnd() * 100
      Next
      seriesFactory.ApplyTo(oGraph)

      oGraph.RefreshChart()

   End Sub

End Class