ChartDirector 6.0 (ASP/COM/VB Edition)

Rotated Line Chart




This example demonstrates swapping the x and y axes to produce a rotated line chart in which the line goes from top to bottom (instead of left to right).

The x and y axes in the example are configured as follows:

For demo purposes, this example uses RanTable to simulate a database table with 4 columns, in which one is a date/time column and the remaining three are data columns. The date/time column is passed to ChartDirector as the x values using Layer.setXData, while the data columns are passed to ChartDirector as y values using Layer.addDataSet.

Source Code Listing

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

'
'    We use a random table to simulate generating 12 months of data
'

' Create the random table object with 4 cols * 12 rows, using 3 as seed
Set rantable = cd.RanTable(3, 4, 12)

' Set the 1st column to be the 12 months of year 2002
Call rantable.setDateCol(0, DateSerial(2002, 1, 1), 86400 * 30)

' Set the 2nd, 3rd and 4th columns to be random numbers starting from 125, 75, and 100 respectively.
' The change between rows is set to -35 to + 35. The minimum value of any cell is 0.
Call rantable.setCol(1, 125, -35, 35, 0)
Call rantable.setCol(2, 75, -35, 35, 0)
Call rantable.setCol(3, 100, -35, 35, 0)

' Get the 1st column (time) as the x data
dataX = rantable.getCol(0)

' Get the 2nd, 3rd and 4th columns as 3 data sets
dataY0 = rantable.getCol(1)
dataY1 = rantable.getCol(2)
dataY2 = rantable.getCol(3)

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

' Add a title to the chart
Call c.addTitle("<*underline=2*>Rotated Line Chart Demo", "timesbi.ttf", 14)

' Set the plotarea at (60, 75) and of size 190 x 320 pixels. Turn on both horizontal and vertical
' grid lines with light grey color (0xc0c0c0)
Call c.setPlotArea(60, 75, 190, 320).setGridColor(&Hc0c0c0, &Hc0c0c0)

' Add a legend box at (270, 75)
Call c.addLegend(270, 75)

' Swap the x and y axis to become a rotated chart
Call c.swapXY()

' Set the y axis on the top side (right + rotated = top)
Call c.setYAxisOnRight()

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

' Reverse the x axis so it is pointing downwards
Call c.xAxis().setReverse()

' Add a line chart layer using the given data
Set layer = c.addLineLayer2()
Call layer.setXData(dataX)
Call layer.addDataSet(dataY0, &Hff0000, "Server A")
Call layer.addDataSet(dataY1, &H338033, "Server B")
Call layer.addDataSet(dataY2, &H0000ff, "Server C")

' Set the line width to 2 pixels
Call layer.setLineWidth(2)

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

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

    Dim cd As New ChartDirector.API

    '
    '    We use a random table to simulate generating 12 months of data
    '

    ' Create the random table object with 4 cols * 12 rows, using 3 as seed
    Dim rantable As RanTable
    Set rantable = cd.RanTable(3, 4, 12)

    ' Set the 1st column to be the 12 months of year 2002
    Call rantable.setDateCol(0, DateSerial(2002, 1, 1), 86400 * 30)

    ' Set the 2nd, 3rd and 4th columns to be random numbers starting from 125, 75, and 100
    ' respectively. The change between rows is set to -35 to + 35. The minimum value of any cell is
    ' 0.
    Call rantable.setCol(1, 125, -35, 35, 0)
    Call rantable.setCol(2, 75, -35, 35, 0)
    Call rantable.setCol(3, 100, -35, 35, 0)

    ' Get the 1st column (time) as the x data
    Dim dataX()
    dataX = rantable.getCol(0)

    ' Get the 2nd, 3rd and 4th columns as 3 data sets
    Dim dataY0()
    dataY0 = rantable.getCol(1)
    Dim dataY1()
    dataY1 = rantable.getCol(2)
    Dim dataY2()
    dataY2 = rantable.getCol(3)

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

    ' Add a title to the chart
    Call c.addTitle("<*underline=2*>Rotated Line Chart Demo", "timesbi.ttf", 14)

    ' Set the plotarea at (60, 75) and of size 190 x 320 pixels. Turn on both horizontal and
    ' vertical grid lines with light grey color (0xc0c0c0)
    Call c.setPlotArea(60, 75, 190, 320).setGridColor(&Hc0c0c0, &Hc0c0c0)

    ' Add a legend box at (270, 75)
    Call c.addLegend(270, 75)

    ' Swap the x and y axis to become a rotated chart
    Call c.swapXY()

    ' Set the y axis on the top side (right + rotated = top)
    Call c.setYAxisOnRight()

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

    ' Reverse the x axis so it is pointing downwards
    Call c.xAxis().setReverse()

    ' Add a line chart layer using the given data
    Dim layer As LineLayer
    Set layer = c.addLineLayer2()
    Call layer.setXData(dataX)
    Call layer.addDataSet(dataY0, &Hff0000, "Server A")
    Call layer.addDataSet(dataY1, &H338033, "Server B")
    Call layer.addDataSet(dataY2, &H0000ff, "Server C")

    ' Set the line width to 2 pixels
    Call layer.setLineWidth(2)

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

    'include tool tip for the chart
    viewer.ImageMap = c.getHTMLImageMap("clickable", "", _
        "title='[{dataSetName}] {x|mm/yyyy}: {value|0} MByte'")

End Sub