ecGraph Demos

 

 


ecGraph Demo8.   Two graphs on the Page.


  • Two graphs on the Page.
  • 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 Demo8(ecGraph1 As ecGraph)
  'Two graphs on the Page
  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(ecCoral, ecBlanchedAlmond)
    'Start the first graph...
    Call .NewGraph("Graph 1")
    Call .GraphPosition(2, 2, 80, 50)
    Call .BorderStyle(ecHotPink, ecBlanchedAlmond, , , , , 12, 6, 6, 10)
    Call .PlotAreaColors(ecLightPink, ecBlanchedAlmond)
    
    '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
    
    'Add text..
    Call .NewDataSet("Text")
    S$ = "Click to bring graph to front" + vbCrLf + "Drag graphs to reposition" + vbCrLf + "Drag legend table"
    Call .AddText(S$, 5, 95, 0, "bold", ecDarkRed, 0, True)
    
    'Second graph...
    Call .NewGraph("Graph 2")
    Call .GraphPosition(40, 40, 55, 55)
    Call .BorderStyle(ecAquaMarine, ecBlanchedAlmond, , , , , 12, 5, 6, 10)
    Call .LegendTableStyle(, , 15, 10, ecGray, 0, , , , , , True)
    Call .PlotAreaColors(ecLightDarkBlue, ecBlanchedAlmond)
    
    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)
    
    'Add text..
    Call .NewDataSet("Text")
    S$ = "Click & drag to zoom in" + vbCrLf + "Use scroll bars when zooming" + vbCrLf + "Right click to unzoom"
    Call .AddText(S$, 35, 27, 0, "bold", vbDarkRed, 0, True)
    
    Call .Refresh 'Always end with "Refresh"
  End With
End Sub


  Copyright 2007, Encore Consulting Pty Ltd.                                                     www.encoreconsulting.com.au