ChartDirector 6.0 (ASP/COM/VB Edition)

Color Vertical Linear Meters


          

This example demonstrates horizontal linear meters in various colors, with different color scales, and with title and value readout.

BaseMeter.addColorScale is used to create the color scales in the meters. The color scales are created with various colors, end point positions and widths at the end points.

The title and value readout are created as TextBox objects using BaseChart.addTitle and BaseChart.addTitle2, with the text box background set to the same color as that of the chart border.

Source Code Listing

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

' This script can draw different charts depending on the chartIndex
chartIndex = CInt(Request("img"))

' The value to display on the meter
value = 74.25

' The background and border colors of the meters
bgColor = Array(&Hbbddff, &Hccffcc, &Hffccff, &Hffffaa, &Hffdddd, &Heeeeee)
borderColor = Array(&H000088, &H006600, &H6600aa, &Hee6600, &H880000, &H666666)

' Create a LinearMeter object of size 70 x 260 pixels with a 3-pixel thick rounded frame
Set m = cd.LinearMeter(70, 260, bgColor(chartIndex), borderColor(chartIndex))
Call m.setRoundedFrame(cd.Transparent)
Call m.setThickFrame(3)

' Set the scale region top-left corner at (28, 30), with size of 20 x 200 pixels. The scale labels
' are located on the left (default - implies vertical meter)
Call m.setMeter(28, 30, 20, 200)

' Set meter scale from 0 - 100, with a tick every 10 units
Call m.setScale(0, 100, 10)

' Demostrate different types of color scales and putting them at different positions
smoothColorScale = Array(0, &H6666ff, 25, &H00bbbb, 50, &H00ff00, 75, &Hffff00, 100, &Hff0000)
stepColorScale = Array(0, &H33ff33, 50, &Hffff33, 80, &Hff3333, 100)
highLowColorScale = Array(0, &H6666ff, 70, cd.Transparent, 100, &Hff0000)

If chartIndex = 0 Then
    ' Add the smooth color scale at the default position
    Call m.addColorScale(smoothColorScale)
ElseIf chartIndex = 1 Then
    ' Add the step color scale at the default position
    Call m.addColorScale(stepColorScale)
ElseIf chartIndex = 2 Then
    ' Add the high low scale at the default position
    Call m.addColorScale(highLowColorScale)
ElseIf chartIndex = 3 Then
    ' Add the smooth color scale starting at x = 28 (left of scale) with zero width and ending at x
    ' = 28 with 20 pixels width
    Call m.addColorScale(smoothColorScale, 28, 0, 28, 20)
ElseIf chartIndex = 4 Then
    ' Add the smooth color scale starting at x = 38 (center of scale) with zero width and ending at
    ' x = 28 with 20 pixels width
    Call m.addColorScale(smoothColorScale, 38, 0, 28, 20)
Else
    ' Add the smooth color scale starting at x = 48 (right of scale) with zero width and ending at x
    ' = 28 with 20 pixels width
    Call m.addColorScale(smoothColorScale, 48, 0, 28, 20)
End If

' Add a blue (0x0000cc) pointer at the specified value
Call m.addPointer(value, &H0000cc)

' Add a title using white (0xffffff) 8pt Arial Bold font with a border color background
Call m.addTitle("Temp C", "arialbd.ttf", 8, &Hffffff).setBackground(borderColor(chartIndex))

' Add a bottom title using white (0xffffff) 8pt Arial Bold font with a border color background to
' display the value
Call m.addTitle2(cd.Bottom, m.formatValue(value, "2"), "arialbd.ttf", 8, &Hffffff).setBackground( _
    borderColor(chartIndex))

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

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

    Dim cd As New ChartDirector.API

    ' The value to display on the meter
    Dim value As Double
    value = 74.25

    ' The background and border colors of the meters
    Dim bgColor()
    bgColor = Array(&Hbbddff, &Hccffcc, &Hffccff, &Hffffaa, &Hffdddd, &Heeeeee)
    Dim borderColor()
    borderColor = Array(&H000088, &H006600, &H6600aa, &Hee6600, &H880000, &H666666)

    ' Create a LinearMeter object of size 70 x 260 pixels with a 3-pixel thick rounded frame
    Dim m As LinearMeter
    Set m = cd.LinearMeter(70, 260, bgColor(chartIndex), borderColor(chartIndex))
    Call m.setRoundedFrame()
    Call m.setThickFrame(3)

    ' Set the scale region top-left corner at (28, 30), with size of 20 x 200 pixels. The scale
    ' labels are located on the left (default - implies vertical meter)
    Call m.setMeter(28, 30, 20, 200)

    ' Set meter scale from 0 - 100, with a tick every 10 units
    Call m.setScale(0, 100, 10)

    ' Demostrate different types of color scales and putting them at different positions
    Dim smoothColorScale()
    smoothColorScale = Array(0, &H6666ff, 25, &H00bbbb, 50, &H00ff00, 75, &Hffff00, 100, &Hff0000)
    Dim stepColorScale()
    stepColorScale = Array(0, &H33ff33, 50, &Hffff33, 80, &Hff3333, 100)
    Dim highLowColorScale()
    highLowColorScale = Array(0, &H6666ff, 70, cd.Transparent, 100, &Hff0000)

    If chartIndex = 0 Then
        ' Add the smooth color scale at the default position
        Call m.addColorScale(smoothColorScale)
    ElseIf chartIndex = 1 Then
        ' Add the step color scale at the default position
        Call m.addColorScale(stepColorScale)
    ElseIf chartIndex = 2 Then
        ' Add the high low scale at the default position
        Call m.addColorScale(highLowColorScale)
    ElseIf chartIndex = 3 Then
        ' Add the smooth color scale starting at x = 28 (left of scale) with zero width and ending
        ' at x = 28 with 20 pixels width
        Call m.addColorScale(smoothColorScale, 28, 0, 28, 20)
    ElseIf chartIndex = 4 Then
        ' Add the smooth color scale starting at x = 38 (center of scale) with zero width and ending
        ' at x = 28 with 20 pixels width
        Call m.addColorScale(smoothColorScale, 38, 0, 28, 20)
    Else
        ' Add the smooth color scale starting at x = 48 (right of scale) with zero width and ending
        ' at x = 28 with 20 pixels width
        Call m.addColorScale(smoothColorScale, 48, 0, 28, 20)
    End If

    ' Add a blue (0x0000cc) pointer at the specified value
    Call m.addPointer(value, &H0000cc)

    ' Add a title using white (0xffffff) 8pt Arial Bold font with a border color background
    Call m.addTitle("Temp C", "arialbd.ttf", 8, &Hffffff).setBackground(borderColor(chartIndex))

    ' Add a bottom title using white (0xffffff) 8pt Arial Bold font with a border color background
    ' to display the value
    Call m.addTitle2(cd.Bottom, m.formatValue(value, "2"), "arialbd.ttf", 8, &Hffffff _
        ).setBackground(borderColor(chartIndex))

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

End Sub