Example 11: Single or multi-series chart (using SeriesFactory)
This sample project uses
SeriesFactory helper class to populate the
chart objects.
Steps:
1. Create a new Windows
application project (VB.NET)
2. Add Super 2d/3d Graph
Library to the toolbox pallete and drag two
charts
to Form1
3. Copy and paste de
following code:
Form Code
Imports Super2d3dGraphLibrary
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim v As New Super2d3dGraphLibrary.SeriesFactory
Dim x As Single
' Single-serie chart
For k As Integer = 0 To 8
x = Int(Rnd() *
1000)
v.AddValue(x)
Next
' Customize the chart
With Super2D3dGraph1
.AutoRefresh = False
.Title = "Single serie chart"
.Style = STYLE2D3D.STYLE3D_STACKED_AREA
.ShowDataTable = False
.ShowValues = False
.ShowLegend = False
.YAxisNumericFormat = "0"
End With
' Assign the previous calculated values to
the chart
v.ApplyTo(Super2D3dGraph1)
Super2D3dGraph1.RefreshChart()
' Multi-serie chart
v.Reset() ' (clears previous values from single-serie chart)
' First...
For k As Integer = 0 To 8
x = Int(Rnd() *
1000)
v.AddValue(x)
Next
' Second...
v.NewSerie()
For k As Integer = 0 To 8
x = Int(Rnd() *
700)
v.AddValue(x)
Next
' Third and last one...
v.NewSerie()
For k As Integer = 0 To 8
x = Int(Rnd() *
500)
v.AddValue(x)
Next
' Customize the chart
With Super2D3dGraph2
.AutoRefresh = False
.LicenseeIdentifier = "STAND" ' This is the
demo license
.Title = "Multi series chart"
.Style = STYLE2D3D.STYLE3D_STACKED_AREA
.ShowDataTable = False
.ShowValues = False
.ShowLegend = False
.YAxisNumericFormat = "0"
End With
' Assign the previous calculated values to
the chart
v.ApplyTo(Super2D3dGraph2)
Super2D3dGraph2.RefreshChart()
End Sub
End Class
Result:

|