|
ecGraph Demo9. Two graphs, transparent plot
area.
- Two graphs, transparent plot area.
- Scroll down below the screenshot image to see the VB code that
was used to generate the graph.
The VB code used to generate the above graph...
Public Sub Demo9(ecGraph1 As ecGraph) 'Two graphs, transparent plot area
Dim MathFunc$, S$, i, Color As Long, X As Double, Y As Double
Dim Symbol As Integer, SymbolSize As Single, Line As Integer, Legend$ With ecGraph1
Call .Reset
'Always call "Reset" first
Call .PageColors(ecDarkBlueViolet,
ecBlanchedAlmond, 200, , -5) 'Start the first graph...
Call
.NewGraph("Two graphs, transparent plot
area") Call .GraphPosition(2, 2, 80, 60)
Call
.BorderStyle(, , , , True, , 12, 6, 6,
10) Call
.PlotAreaColors(, , , , , True)
Call
.LegendTableStyle(, , 15, 16, , , , , , , , True)
'First data set for
this graph Call .NewDataSet("Data
1") For i = 1 To 19
X = i: Y = Sqr(i) + Rnd
Call .AddDataPoint(X, Y)
Next i
'Second data set for this graph
Call
.NewDataSet("Data 1")
For i = 1
To 19
X = i: Y = Sqr(i) - Rnd
Call .AddDataPoint(X, Y)
Next i
'Second graph...
Call
.NewGraph("Grab border area with mouse to move
graphs") Call .GraphPosition(28, 40, 65, 55)
Call
.BorderStyle(, , , , True, , 12, 5, 6,
10) Call
.LegendTableStyle(, , 63, 60, , 0, , , , , , True) Call .PlotAreaColors(, , , , , True)
Call
.NewDataSet("Data 1")
Call
.SymbolStyle(2) For i = 1 To 300
X = i / 16: Y = Sqr(X) + Rnd
Call .AddDataPoint(X, Y)
Next i
'Add a math function..
MathFunc$ = "0.5 + sqr(x)"
Call
.NewDataSet("y = " + MathFunc$)
Call
.AddMathFunc(MathFunc$, 0, 20)
'Add a math
function.. MathFunc$ = "2 + sin(x)" Call .NewDataSet("y =
" + MathFunc$) Call .AddMathFunc(MathFunc$, 0, 20)
Call .Refresh 'Always end
with "Refresh" End With End Sub
Copyright © 2007,
Encore Consulting Pty Ltd.
www.encoreconsulting.com.au
|