ChartDirector 7.0 (ASP/COM/VB Edition)

Arbitrary XY Line Chart




This example demonstrates drawing a line chart with arbitrary x coordinates (not increasing or decreasing in one direction), and adding custom data labels to data points.

The x values of the data points are set into the chart using Layer.setXData. ChartDirector merely joins the points together with lines. It does not require the points to following any particular direction.

Note that this example has special labels for the start and end points of the lines. They are created using Layer.addCustomDataLabel.

Source Code Listing

[Web Version (in ASP)] aspdemo\xyline.asp
<%@ language="vbscript" %> <% Set cd = CreateObject("ChartDirector.API") ' The (x, y) data for the first line dataX0 = Array(20, 90, 40, 30, 12) dataY0 = Array(10, 40, 75, 54, 20) ' The (x, y) data for the second line dataX1 = Array(10, 40, 75, 54, 60) dataY1 = Array(50, 90, 40, 30, 10) ' Create a XYChart object of size 450 x 450 pixels Set c = cd.XYChart(450, 450) ' Set the plotarea at (55, 65) and of size 350 x 300 pixels, with white background and a light grey ' border (0xc0c0c0). Turn on both horizontal and vertical grid lines with light grey color ' (0xc0c0c0) Call c.setPlotArea(55, 65, 350, 300, &Hffffff, -1, &Hc0c0c0, &Hc0c0c0, -1) ' Add a legend box at (50, 30) (top of the chart) with horizontal layout. Use 12pt Times Bold Italic ' font. Set the background and border color to Transparent. Call c.addLegend(50, 30, False, "Times New Roman Bold Italic", 12).setBackground(cd.Transparent) ' Add a title to the chart using 18pt Times Bold Itatic font Call c.addTitle("Reaction Path", "Times New Roman Bold Italic", 18) ' Add a title to the y axis using 12pt Arial Bold Italic font Call c.yAxis().setTitle("Temperature (Celcius)", "Arial Bold Italic", 12) ' Set the y axis line width to 3 pixels Call c.yAxis().setWidth(3) ' Add a title to the x axis using 12pt Arial Bold Italic font Call c.xAxis().setTitle("Pressure (Pa)", "Arial Bold Italic", 12) ' Set the x axis line width to 3 pixels Call c.xAxis().setWidth(3) ' Add a red (0xff3333) line layer using dataX0 and dataY0 Set layer1 = c.addLineLayer(dataY0, &Hff3333, "Compound AAA") Call layer1.setXData(dataX0) ' Set the line width to 3 pixels Call layer1.setLineWidth(3) ' Use 9 pixel square symbols for the data points Call layer1.getDataSet(0).setDataSymbol(cd.SquareSymbol, 9) ' Add custom text labels to the first and last point on the scatter plot using Arial Bold font Call layer1.addCustomDataLabel(0, 0, "Start", "Arial Bold") Call layer1.addCustomDataLabel(0, 4, "End", "Arial Bold") ' Add a green (0x33ff33) line layer using dataX1 and dataY1 Set layer2 = c.addLineLayer(dataY1, &H33ff33, "Compound BBB") Call layer2.setXData(dataX1) ' Set the line width to 3 pixels Call layer2.setLineWidth(3) ' Use 11 pixel diamond symbols for the data points Call layer2.getDataSet(0).setDataSymbol(cd.DiamondSymbol, 11) ' Add custom text labels to the first and last point on the scatter plot using Arial Bold font Call layer2.addCustomDataLabel(0, 0, "Start", "Arial Bold") Call layer2.addCustomDataLabel(0, 4, "End", "Arial Bold") ' 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='[{dataSetName}] Pressure = {x} Pa, Temperature = {value} C'") %> <!DOCTYPE html> <html> <head> <title>Arbitrary XY Line Chart</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;"> Arbitrary XY Line Chart </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\xyline.cls
Public Sub createChart(viewer As Object, chartIndex As Integer) Dim cd As New ChartDirector.API ' The (x, y) data for the first line Dim dataX0() dataX0 = Array(20, 90, 40, 30, 12) Dim dataY0() dataY0 = Array(10, 40, 75, 54, 20) ' The (x, y) data for the second line Dim dataX1() dataX1 = Array(10, 40, 75, 54, 60) Dim dataY1() dataY1 = Array(50, 90, 40, 30, 10) ' Create a XYChart object of size 450 x 450 pixels Dim c As XYChart Set c = cd.XYChart(450, 450) ' Set the plotarea at (55, 65) and of size 350 x 300 pixels, with white background and a light ' grey border (0xc0c0c0). Turn on both horizontal and vertical grid lines with light grey color ' (0xc0c0c0) Call c.setPlotArea(55, 65, 350, 300, &Hffffff, -1, &Hc0c0c0, &Hc0c0c0, -1) ' Add a legend box at (50, 30) (top of the chart) with horizontal layout. Use 12pt Times Bold ' Italic font. Set the background and border color to Transparent. Call c.addLegend(50, 30, False, "timesbi.ttf", 12).setBackground(cd.Transparent) ' Add a title to the chart using 18pt Times Bold Itatic font Call c.addTitle("Reaction Path", "timesbi.ttf", 18) ' Add a title to the y axis using 12pt Arial Bold Italic font Call c.yAxis().setTitle("Temperature (Celcius)", "arialbi.ttf", 12) ' Set the y axis line width to 3 pixels Call c.yAxis().setWidth(3) ' Add a title to the x axis using 12pt Arial Bold Italic font Call c.xAxis().setTitle("Pressure (Pa)", "arialbi.ttf", 12) ' Set the x axis line width to 3 pixels Call c.xAxis().setWidth(3) ' Add a red (0xff3333) line layer using dataX0 and dataY0 Dim layer1 As LineLayer Set layer1 = c.addLineLayer(dataY0, &Hff3333, "Compound AAA") Call layer1.setXData(dataX0) ' Set the line width to 3 pixels Call layer1.setLineWidth(3) ' Use 9 pixel square symbols for the data points Call layer1.getDataSet(0).setDataSymbol(cd.SquareSymbol, 9) ' Add custom text labels to the first and last point on the scatter plot using Arial Bold font Call layer1.addCustomDataLabel(0, 0, "Start", "arialbd.ttf") Call layer1.addCustomDataLabel(0, 4, "End", "arialbd.ttf") ' Add a green (0x33ff33) line layer using dataX1 and dataY1 Dim layer2 As LineLayer Set layer2 = c.addLineLayer(dataY1, &H33ff33, "Compound BBB") Call layer2.setXData(dataX1) ' Set the line width to 3 pixels Call layer2.setLineWidth(3) ' Use 11 pixel diamond symbols for the data points Call layer2.getDataSet(0).setDataSymbol(cd.DiamondSymbol, 11) ' Add custom text labels to the first and last point on the scatter plot using Arial Bold font Call layer2.addCustomDataLabel(0, 0, "Start", "arialbd.ttf") Call layer2.addCustomDataLabel(0, 4, "End", "arialbd.ttf") ' Output the chart Set viewer.Picture = c.makePicture() 'include tool tip for the chart viewer.ImageMap = c.getHTMLImageMap("clickable", "", _ "title='[{dataSetName}] Pressure = {x} Pa, Temperature = {value} C'") End Sub