ChartDirector 6.0 (ASP/COM/VB Edition)

Enhanced Area Chart




This example extends the Simple Area Chart example by decorating the chart using a number of chart formatting features.

Source Code Listing

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

' The data for the area chart
data = Array(30, 28, 40, 55, 75, 68, 54, 60, 50, 62, 75, 65, 75, 89, 60, 55, 53, 35, 50, 66, 56, _
    48, 52, 65, 62)

' The labels for the area chart
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 600 x 360 pixels, with a brushed silver background, 1 pixel 3D
' border effect, rounded corners and soft drop shadow.
Set c = cd.XYChart(600, 360, cd.brushedSilverColor(), cd.Transparent, 1)
Call c.setRoundedFrame()
Call c.setDropShadow()

' Set default directory for loading images from current script directory
Call c.setSearchPath(Server.MapPath("."))

' Add a title box to the chart using 18pt Times Bold Italic font.
Set title = c.addTitle( _
    "<*block,valign=absmiddle*><*img=star.png*><*img=star.png*> Performance Enhancer " & _
    "<*img=star.png*><*img=star.png*><*/*>", "timesbi.ttf", 18)

'
' Use a text box with a depressed 3D border to create the inner depressed region
'

' The width of the frame border
frameWidth = 5

' Set the depressed region position
Set contentBox = c.addText(frameWidth, title.getHeight(), "")
Call contentBox.setSize(c.getDrawArea().getWidth() - 1 - frameWidth * 2, c.getDrawArea( _
    ).getHeight() - title.getHeight() - frameWidth - 1)

' Use -1 as the rasied effect to create a depressed region
Call contentBox.setBackground(cd.Transparent, cd.Transparent, -1)

' Set rounded corners, and put the text box at the back of the chart
Call contentBox.setRoundedCorners(10)
Call contentBox.setZOrder(cd.ChartBackZ)

' Tentatively set the plotarea to 50 pixels from the left depressed edge, and 25 pixels under the
' top depressed edge. Set the width to 75 pixels less than the depressed region width, and the
' height to 75 pixels less than the depressed region height. Use white (ffffff) background,
' transparent border, and grey (cccccc) horizontal and vertical grid lines.
Set plotArea = c.setPlotArea(50 + contentBox.getLeftX(), contentBox.getTopY() + 25, _
    contentBox.getWidth() - 75, contentBox.getHeight() - 75, &Hffffff, -1, -1, &Hcccccc, -1)

' Add a title to the y axis
Call c.yAxis().setTitle("Energy Concentration (KJ per liter)")

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

' Display 1 out of 3 labels on the x-axis.
Call c.xAxis().setLabelStep(3)

' Add a title to the x axis using CDML
Call c.xAxis().setTitle("<*block,valign=absmiddle*><*img=clock.png*>  Elapsed Time (hour)<*/*>")

' Set the axes width to 2 pixels
Call c.xAxis().setWidth(2)
Call c.yAxis().setWidth(2)

' Add an area layer to the chart using a gradient color that changes vertically from
' semi-transparent red (60ff0000) to semi-transparent white (60ffffff)
Call c.addAreaLayer(data, c.linearGradientColor(0, contentBox.getTopY() + 20, 0, _
    contentBox.getTopY() + contentBox.getHeight() - 50, &H60ff0000, &H60ffffff))

' Adjust the plot area size, such that the bounding box (inclusive of axes) is 15 pixels from the
' left depressed edge, 25 pixels below the top depressed edge, 25 pixels from the right depressed
' edge, and 15 pixels above the bottom depressed edge.
Call c.packPlotArea(contentBox.getLeftX() + 15, contentBox.getTopY() + 25, contentBox.getLeftX() + _
    contentBox.getWidth() - 25, contentBox.getTopY() + contentBox.getHeight() - 15)

' Add a custom CDML text with the bottom right corner is anchored to the bootom right corner of the
' plot area, with 5 pixels margin.
Call c.addText(plotArea.getLeftX() + plotArea.getWidth() - 5, plotArea.getTopY() + _
    plotArea.getHeight() - 5, _
    "<*block,valign=absmiddle*><*img=small_molecule.png*> <*block*>" & _
    "<*font=timesbi.ttf,size=10,color=804040*>Molecular<*br*>Engineering<*/*>").setAlignment( _
    cd.BottomRight)

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

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

    Dim cd As New ChartDirector.API

    ' The data for the area chart
    Dim data()
    data = Array(30, 28, 40, 55, 75, 68, 54, 60, 50, 62, 75, 65, 75, 89, 60, 55, 53, 35, 50, 66, _
        56, 48, 52, 65, 62)

    ' The labels for the area chart
    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 600 x 360 pixels, with a brushed silver background, 1 pixel 3D
    ' border effect, rounded corners and soft drop shadow.
    Dim c As XYChart
    Set c = cd.XYChart(600, 360, cd.brushedSilverColor(), cd.Transparent, 1)
    Call c.setRoundedFrame()
    Call c.setDropShadow()

    ' Add a title box to the chart using 18pt Times Bold Italic font.
    Dim title As ChartDirector.TextBox
    Set title = c.addTitle( _
        "<*block,valign=absmiddle*><*img=star.png*><*img=star.png*> Performance Enhancer " & _
        "<*img=star.png*><*img=star.png*><*/*>", "timesbi.ttf", 18)

    '
    ' Use a text box with a depressed 3D border to create the inner depressed region
    '

    ' The width of the frame border
    Dim frameWidth As Long
    frameWidth = 5

    ' Set the depressed region position
    Dim contentBox As ChartDirector.TextBox
    Set contentBox = c.addText(frameWidth, title.getHeight(), "")
    Call contentBox.setSize(c.getDrawArea().getWidth() - 1 - frameWidth * 2, c.getDrawArea( _
        ).getHeight() - title.getHeight() - frameWidth - 1)

    ' Use -1 as the rasied effect to create a depressed region
    Call contentBox.setBackground(cd.Transparent, cd.Transparent, -1)

    ' Set rounded corners, and put the text box at the back of the chart
    Call contentBox.setRoundedCorners(10)
    Call contentBox.setZOrder(cd.ChartBackZ)

    ' Tentatively set the plotarea to 50 pixels from the left depressed edge, and 25 pixels under
    ' the top depressed edge. Set the width to 75 pixels less than the depressed region width, and
    ' the height to 75 pixels less than the depressed region height. Use white (ffffff) background,
    ' transparent border, and grey (cccccc) horizontal and vertical grid lines.
    Dim plotArea As PlotArea
    Set plotArea = c.setPlotArea(50 + contentBox.getLeftX(), contentBox.getTopY() + 25, _
        contentBox.getWidth() - 75, contentBox.getHeight() - 75, &Hffffff, -1, -1, &Hcccccc, -1)

    ' Add a title to the y axis
    Call c.yAxis().setTitle("Energy Concentration (KJ per liter)")

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

    ' Display 1 out of 3 labels on the x-axis.
    Call c.xAxis().setLabelStep(3)

    ' Add a title to the x axis using CDML
    Call c.xAxis().setTitle( _
        "<*block,valign=absmiddle*><*img=clock.png*>  Elapsed Time (hour)<*/*>")

    ' Set the axes width to 2 pixels
    Call c.xAxis().setWidth(2)
    Call c.yAxis().setWidth(2)

    ' Add an area layer to the chart using a gradient color that changes vertically from
    ' semi-transparent red (60ff0000) to semi-transparent white (60ffffff)
    Call c.addAreaLayer(data, c.linearGradientColor(0, contentBox.getTopY() + 20, 0, _
        contentBox.getTopY() + contentBox.getHeight() - 50, &H60ff0000, &H60ffffff))

    ' Adjust the plot area size, such that the bounding box (inclusive of axes) is 15 pixels from
    ' the left depressed edge, 25 pixels below the top depressed edge, 25 pixels from the right
    ' depressed edge, and 15 pixels above the bottom depressed edge.
    Call c.packPlotArea(contentBox.getLeftX() + 15, contentBox.getTopY() + 25, _
        contentBox.getLeftX() + contentBox.getWidth() - 25, contentBox.getTopY() + _
        contentBox.getHeight() - 15)

    ' Add a custom CDML text with the bottom right corner is anchored to the bootom right corner of
    ' the plot area, with 5 pixels margin.
    Call c.addText(plotArea.getLeftX() + plotArea.getWidth() - 5, plotArea.getTopY() + _
        plotArea.getHeight() - 5, _
        "<*block,valign=absmiddle*><*img=small_molecule.png*> <*block*>" & _
        "<*font=timesbi.ttf,size=10,color=804040*>Molecular<*br*>Engineering<*/*>").setAlignment( _
        cd.BottomRight)

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

    'include tool tip for the chart
    viewer.ImageMap = c.getHTMLImageMap("clickable", "", "title='Hour {xLabel}: {value} KJ/liter'")

End Sub