Simple Bar Chart (2)

This example extends the Simple Bar Chart (1) example to demonstrates various methods to control the chart appearance and to add titles.

Use XYChart.setPlotArea to configure the plot area to have transparent border and light grey (CCCCCC) grid lines.
Use BaseChart.addTitle and Axis.setTitle to add chart and axis titles.
Use Axis.setColors to set the axis stem and ticks to Transparent.
Use Axis.setLabelStyle to set the label style to grey 12pt Arial.
Use XYChart.addBarLayer to add a bar layer with light navy blue color (6699BB).
Use Layer.setBorderColor to configure the border color to Transparent to disable the bar border.
Use Axis.setTickDensity to configure a minimum label spacing for automatically generated labels. Although a chart will be more precise with more axis labels so long as they do not overlap, sometimes less labels are desirable for aesthetic reasons. Setting the minimum label spacing can control the label density without knowing how many labels would be produced (which depends on actual data).

[Web Version (in ASP)] aspdemo\simplebar2.asp

<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")

' The data for the bar chart
data = Array(85, 156, 179, 211, 123, 189, 166)

' The labels for the bar chart
labels = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")

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

' Add a title box using grey (0x555555) 24pt Arial Bold font
Call c.addTitle("    Bar Chart Demonstration", "Arial Bold", 24, &H555555)

' Set the plotarea at (70, 60) and of size 500 x 300 pixels, with transparent background and border
' and light grey (0xcccccc) horizontal grid lines
Call c.setPlotArea(70, 60, 500, 300, cd.Transparent, -1, cd.Transparent, &Hcccccc)

' Set the x and y axis stems to transparent and the label font to 12pt Arial
Call c.xAxis().setColors(cd.Transparent)
Call c.yAxis().setColors(cd.Transparent)
Call c.xAxis().setLabelStyle("Arial", 12)
Call c.yAxis().setLabelStyle("Arial", 12)

' Add a blue (0x6699bb) bar chart layer with transparent border using the given data
Call c.addBarLayer(data, &H6699bb).setBorderColor(cd.Transparent)

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

' For the automatic y-axis labels, set the minimum spacing to 40 pixels.
Call c.yAxis().setTickDensity(40)

' Add a title to the y axis using dark grey (0x555555) 14pt Arial Bold font
Call c.yAxis().setTitle("Y-Axis Title Placeholder", "Arial Bold", 14, &H555555)

' Output the chart
Set viewer = cd.WebChartViewer(Request, "chart1")
Call viewer.setChart(c, cd.SVG)

' Include tool tip for the chart
viewer.ImageMap = c.getHTMLImageMap("", "", "title='{xLabel}: {value} kg'")
%>

<!DOCTYPE html>
<html>
<head>
    <title>Simple Bar Chart (2)</title>
    <!-- Include ChartDirector Javascript Library to support chart interactions -->
    <script type="text/javascript" src="cdjcv.js"></script>
</head>
<body style="margin:5px 0px 0px 5px">
    <div style="font:bold 18pt verdana;">
        Simple Bar Chart (2)
    </div>
    <hr style="border:solid 1px #000080; background:#000080" />
    <div style="font:10pt verdana; margin-bottom:1.5em">
        <a href="viewsource.asp?file=<%= Request("SCRIPT_NAME") %>">View Chart Source Code</a>
    </div>
    <!-- ****** Here is the chart image ****** -->
    <%= viewer.renderHTML() %>
</body>
</html>

[Windows Version (in Visual Basic)] vbdemo\simplebar2.cls

Public Sub createChart(viewer As Object, chartIndex As Integer)

    Dim cd As New ChartDirector.API

    ' The data for the bar chart
    Dim data()
    data = Array(85, 156, 179, 211, 123, 189, 166)

    ' The labels for the bar chart
    Dim labels()
    labels = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")

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

    ' Add a title box using grey (0x555555) 24pt Arial Bold font
    Call c.addTitle("    Bar Chart Demonstration", "arialbd.ttf", 24, &H555555)

    ' Set the plotarea at (70, 60) and of size 500 x 300 pixels, with transparent background and
    ' border and light grey (0xcccccc) horizontal grid lines
    Call c.setPlotArea(70, 60, 500, 300, cd.Transparent, -1, cd.Transparent, &Hcccccc)

    ' Set the x and y axis stems to transparent and the label font to 12pt Arial
    Call c.xAxis().setColors(cd.Transparent)
    Call c.yAxis().setColors(cd.Transparent)
    Call c.xAxis().setLabelStyle("arial.ttf", 12)
    Call c.yAxis().setLabelStyle("arial.ttf", 12)

    ' Add a blue (0x6699bb) bar chart layer with transparent border using the given data
    Call c.addBarLayer(data, &H6699bb).setBorderColor(cd.Transparent)

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

    ' For the automatic y-axis labels, set the minimum spacing to 40 pixels.
    Call c.yAxis().setTickDensity(40)

    ' Add a title to the y axis using dark grey (0x555555) 14pt Arial Bold font
    Call c.yAxis().setTitle("Y-Axis Title Placeholder", "arialbd.ttf", 14, &H555555)

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

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

End Sub