ChartDirector 7.0 (ASP/COM/VB Edition)
Y Zone Coloring
Source Code Listing
<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")
' The data for the 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 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 500 x 300 pixels, with a pale yellow (0xffffc0) background, a
' black border, and 1 pixel 3D border effect
Set c = cd.XYChart(500, 300, &Hffffc0, &H000000, 1)
' Set default directory for loading images from current script directory
Call c.setSearchPath(Server.MapPath("."))
' Set the plotarea at (55, 50) and of size 420 x 205 pixels, with white background. Turn on both
' horizontal and vertical grid lines with light grey color (0xc0c0c0)
Call c.setPlotArea(55, 50, 420, 205, &Hffffff).setGridColor(&Hc0c0c0, &Hc0c0c0)
' Add a legend box at (55, 25) (top of the chart) with horizontal layout. Use 8pt Arial font. Set
' the background and border color to Transparent.
Set legendBox = c.addLegend(55, 25, False, "", 8)
Call legendBox.setBackground(cd.Transparent)
' Add keys to the legend box to explain the color zones
Call legendBox.addKey("Normal Zone", &H8033ff33)
Call legendBox.addKey("Alert Zone", &H80ff3333)
' Add a title box to the chart using 13pt Arial Bold Italic font. The title is in CDML and includes
' embedded images for highlight. The text is white (0xffffff) on a black background, with a 1 pixel
' 3D border.
Call c.addTitle( _
"<*block,valign=absmiddle*><*img=star.png*><*img=star.png*> Y Zone Color Demo " & _
"<*img=star.png*><*img=star.png*><*/*>", "Arial Bold Italic", 13, &Hffffff).setBackground( _
&H000000, -1, 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. The area is using a y zone color, where the color is
' semi-transparent green below 60, and semi-transparent red above 60.
Call c.addAreaLayer(data, c.yZoneColor(60, &H8033ff33, &H80ff3333))
' Add a custom CDML text at the bottom right of the plot area as the logo
Call c.addText(475, 255, _
"<*block,valign=absmiddle*><*img=small_molecule.png*> <*block*><*font=Times New Roman Bold " & _
"Italic,size=10,color=804040*>Molecular<*br*>Engineering<*/*>").setAlignment(cd.BottomRight)
' 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='Hour {xLabel}: {value} KJ/liter'")
%>
<!DOCTYPE html>
<html>
<head>
<title>Y Zone Coloring</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;">
Y Zone Coloring
</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>
Public Sub createChart(viewer As Object, chartIndex As Integer)
Dim cd As New ChartDirector.API
' The data for the 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 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 500 x 300 pixels, with a pale yellow (0xffffc0) background, a
' black border, and 1 pixel 3D border effect
Dim c As XYChart
Set c = cd.XYChart(500, 300, &Hffffc0, &H000000, 1)
' Set the plotarea at (55, 50) and of size 420 x 205 pixels, with white background. Turn on both
' horizontal and vertical grid lines with light grey color (0xc0c0c0)
Call c.setPlotArea(55, 50, 420, 205, &Hffffff).setGridColor(&Hc0c0c0, &Hc0c0c0)
' Add a legend box at (55, 25) (top of the chart) with horizontal layout. Use 8pt Arial font.
' Set the background and border color to Transparent.
Dim legendBox As LegendBox
Set legendBox = c.addLegend(55, 25, False, "", 8)
Call legendBox.setBackground(cd.Transparent)
' Add keys to the legend box to explain the color zones
Call legendBox.addKey("Normal Zone", &H8033ff33)
Call legendBox.addKey("Alert Zone", &H80ff3333)
' Add a title box to the chart using 13pt Arial Bold Italic font. The title is in CDML and
' includes embedded images for highlight. The text is white (0xffffff) on a black background,
' with a 1 pixel 3D border.
Call c.addTitle( _
"<*block,valign=absmiddle*><*img=star.png*><*img=star.png*> Y Zone Color Demo " & _
"<*img=star.png*><*img=star.png*><*/*>", "arialbi.ttf", 13, &Hffffff).setBackground( _
&H000000, -1, 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. The area is using a y zone color, where the color is
' semi-transparent green below 60, and semi-transparent red above 60.
Call c.addAreaLayer(data, c.yZoneColor(60, &H8033ff33, &H80ff3333))
' Add a custom CDML text at the bottom right of the plot area as the logo
Call c.addText(475, 255, _
"<*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