ChartDirector 6.0 (ASP/COM/VB Edition)

Depth Area Chart




This example demonstrates using multiple area layers with semi-transparent colors to create a depth area chart.

ChartDirector allows an XYChart to containing multiple layers of the same or different types. In this example, all layers are 3D area layers. The areas are filled using semi-transparent colors to avoid the area on the front hiding the areas at the back.

Source Code Listing

[Web Version (in ASP)] aspdemo\deptharea.asp
<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")

' The data for the area chart
data0 = Array(42, 49, 33, 38, 51, 46, 29, 41, 44, 57, 59, 52, 37, 34, 51, 56, 56, 60, 70, 76, 63, _
    67, 75, 64, 51)
data1 = Array(50, 55, 47, 34, 42, 49, 63, 62, 73, 59, 56, 50, 64, 60, 67, 67, 58, 59, 73, 77, 84, _
    82, 80, 84, 89)
data2 = Array(87, 89, 85, 66, 53, 39, 24, 21, 37, 56, 37, 22, 21, 33, 13, 17, 4, 23, 16, 25, 9, _
    10, 5, 7, 6)
labels = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", _
    "15", "16", "17", "18", "19", "20", "21", "22", "23", "24")

' Create a XYChart object of size 350 x 230 pixels
Set c = cd.XYChart(350, 230)

' Set the plotarea at (50, 30) and of size 250 x 150 pixels.
Call c.setPlotArea(50, 30, 250, 150)

' Add a legend box at (55, 0) (top of the chart) using 8pt Arial Font. Set background and border to
' Transparent.
Call c.addLegend(55, 0, False, "", 8).setBackground(cd.Transparent)

' Add a title to the x axis
Call c.xAxis().setTitle("Network Load for Jun 12")

' Add a title to the y axis
Call c.yAxis().setTitle("MBytes")

' Set the labels on the x axis.
Call c.xAxis().setLabels(labels)

' Display 1 out of 2 labels on the x-axis. Show minor ticks for remaining labels.
Call c.xAxis().setLabelStep(2, 1)

' Add three area layers, each representing one data set. The areas are drawn in semi-transparent
' colors.
Call c.addAreaLayer(data2, &H808080ff, "Server #1", 3)
Call c.addAreaLayer(data0, &H80ff0000, "Server #2", 3)
Call c.addAreaLayer(data1, &H8000ff00, "Server #3", 3)

' Output the chart
Response.ContentType = "image/png"
Response.BinaryWrite c.makeChart2(cd.PNG)
Response.End
%>

[Windows Version (in Visual Basic)] vbdemo\deptharea.cls
Public Sub createChart(viewer As Object, chartIndex As Integer)

    Dim cd As New ChartDirector.API

    ' The data for the area chart
    Dim data0()
    data0 = Array(42, 49, 33, 38, 51, 46, 29, 41, 44, 57, 59, 52, 37, 34, 51, 56, 56, 60, 70, 76, _
        63, 67, 75, 64, 51)
    Dim data1()
    data1 = Array(50, 55, 47, 34, 42, 49, 63, 62, 73, 59, 56, 50, 64, 60, 67, 67, 58, 59, 73, 77, _
        84, 82, 80, 84, 89)
    Dim data2()
    data2 = Array(87, 89, 85, 66, 53, 39, 24, 21, 37, 56, 37, 22, 21, 33, 13, 17, 4, 23, 16, 25, _
        9, 10, 5, 7, 6)
    Dim labels()
    labels = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", _
        "15", "16", "17", "18", "19", "20", "21", "22", "23", "24")

    ' Create a XYChart object of size 350 x 230 pixels
    Dim c As XYChart
    Set c = cd.XYChart(350, 230)

    ' Set the plotarea at (50, 30) and of size 250 x 150 pixels.
    Call c.setPlotArea(50, 30, 250, 150)

    ' Add a legend box at (55, 0) (top of the chart) using 8pt Arial Font. Set background and border
    ' to Transparent.
    Call c.addLegend(55, 0, False, "", 8).setBackground(cd.Transparent)

    ' Add a title to the x axis
    Call c.xAxis().setTitle("Network Load for Jun 12")

    ' Add a title to the y axis
    Call c.yAxis().setTitle("MBytes")

    ' Set the labels on the x axis.
    Call c.xAxis().setLabels(labels)

    ' Display 1 out of 2 labels on the x-axis. Show minor ticks for remaining labels.
    Call c.xAxis().setLabelStep(2, 1)

    ' Add three area layers, each representing one data set. The areas are drawn in semi-transparent
    ' colors.
    Call c.addAreaLayer(data2, &H808080ff, "Server #1", 3)
    Call c.addAreaLayer(data0, &H80ff0000, "Server #2", 3)
    Call c.addAreaLayer(data1, &H8000ff00, "Server #3", 3)

    ' Output the chart
    Set viewer.Picture = c.makePicture()

    'include tool tip for the chart
    viewer.ImageMap = c.getHTMLImageMap("clickable", "", _
        "title='{dataSetName} load at hour {xLabel}: {value} MBytes'")

End Sub