EcGraph Demo8.   Two graphs on the Page.


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