ecGraph Demos

 

 



ecGraph Demo5.   Stacked 3D Bar Graph, Text labels.


  • Stacked 3D Bar Graph, Text labels.
  • 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 Demo5(ecGraph1 As ecGraph)
  'Stacked 3D Bar Graph, Text labels
  Dim i, X As Double, Y As Double
  With ecGraph1
    Call .Reset 'Always call "Reset" first to clear the page
    
    'Start a new graph on the page..
    Call .NewGraph("Stacked 3D Bar Graph, Text labels")
    Call .GraphTitleStyle(, "bold|16|italic", ecDarkBlue, 15, -10)
    Call .BorderStyle(ecCadetDarkBlue, ecLightCyan, 0, , , , 20, 7, -1, -1)
    Call .PlotAreaColors(ecBurlywood, ecLightCyan, 90)
    Call .LegendTableStyle(, , 2, 4, , 0, , , , , , True)
    Call .AxisStyle(, 3)
    Call .AxisLabelStyle("bold||11|", , -3, 0)
    Call .AxisTitleStyle(, "bold|11|", , 0, False)
    Call .AxisTickStyle(, , False, False, False)
    Call .AxisScaleStyle(0, 30, 6, 0, 2, ",Wombats,Koalas,Possums,Wallabies,Kangaroos")
    Call .SelectYaxis
    Call .AxisStyle(, 3)
    Call .AxisLabelStyle("bold||11|", , -1, 0)
    Call .AxisTitleStyle(, "bold|11|", , -4, False)
    Call .AxisScaleStyle(0, 12, 6, 0, 2, ",low,medium,high,very high")
    Call .AxisTickStyle(, , False, False, False)
    Call .AxisGridStyle(ecGray, , True, False)
    
    'Start a new data set on the graph, and add random points..
    Call .NewDataSet("A")
    Call .SymbolStyle(1, 7, 12431236, 9699328, 1, True, -3) '3D bar, width 5mm
    For i = 1 To 5
      X = 5 * i
      Y = 2 + 2 * Rnd(i)
      Call .AddDataPoint(X, Y)
    Next i
    
    'Start a new data set on the graph, and add random points..
    Call .NewDataSet("B")
    Call .SymbolStyle(1, 7, ecLightPink, ecMaroon, 1, True, -3, , True) '2D bar, width 5mm
    For i = 1 To 5
      X = 5 * i
      Y = 2 + 2 * Rnd(i)
      Call .AddDataPoint(X, Y)
    Next i
    
    'Start a new data set on the graph, and add random points..
    Call .NewDataSet("C")
    Call .SymbolStyle(1, 7, ecLightGreen, ecDarkGreen, 1, True, -3, , True) '2D bar, width 5mm
    For i = 1 To 5
      X = 5 * i
      Y = 2 + 2 * Rnd(i)
      Call .AddDataPoint(X, Y)
    Next i
    
    'Start a new data set on the graph, and add random points..
    Call .NewDataSet("D")
    Call .SymbolStyle(1, 7, ecGray, ecBlack, 1, True, 3.5) '3D bar, width 5mm
    For i = 1 To 5
      X = 5 * i
      Y = 2 + 2 * Rnd(i)
      Call .AddDataPoint(X, Y)
    Next i
    
    'Start a new data set on the graph, and add random points..
    Call .NewDataSet("E")
    Call .SymbolStyle(1, 7, 55295, 26007, 1, True, 3.5, , True) '2D bar, width 5mm
    For i = 1 To 5
      X = 5 * i
      Y = 2 + 2 * Rnd(i)
      Call .AddDataPoint(X, Y)
    Next i
    
    'Start a new data set on the graph, and add random points..
    Call .NewDataSet("F")
    Call .SymbolStyle(1, 7, ecLightPink, ecDarkMagenta, 1, True, 3.5, , True) '2D bar, width 5mm
    For i = 1 To 5
      X = 5 * i
      Y = 2 + 2 * Rnd(i)
      Call .AddDataPoint(X, Y)
    Next i
    
    Call .Refresh 'Always end with "Refresh"
  End With
End Sub


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