ChartDirector 6.0 (ASP/COM/VB Edition)

Linear Zone Meter




This example demonstrates a linear meter labelled with zones.

The meter in this example is achieved by using LinearMeter.addZone to add labelled zones. The black lines separating the zones are added by using BaseMeter.addLabel with empty spaces as labels.

Source Code Listing

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

' The value to display on the meter
value = 85

' Create an LinearMeter object of size 210 x 45 pixels, using silver background with a 2 pixel black
' 3D depressed border.
Set m = cd.LinearMeter(210, 45, cd.silverColor(), 0, -2)

' Set the scale region top-left corner at (5, 5), with size of 200 x 20 pixels. The scale labels are
' located on the bottom (implies horizontal meter)
Call m.setMeter(5, 5, 200, 20, cd.Bottom)

' Set meter scale from 0 - 100
Call m.setScale(0, 100)

' Add a title at the bottom of the meter with a 1 pixel raised 3D border
Call m.addTitle2(cd.Bottom, "Battery Level", "arialbd.ttf", 8).setBackground(cd.Transparent, -1, 1)

' Set 3 zones of different colors to represent Good/Weak/Bad data ranges
Call m.addZone(50, 100, &H99ff99, "Good")
Call m.addZone(20, 50, &Hffff66, "Weak")
Call m.addZone(0, 20, &Hffcccc, "Bad")

' Add empty labels (just need the ticks) at 0/20/50/80 as separators for zones
Call m.addLabel(0, " ")
Call m.addLabel(20, " ")
Call m.addLabel(50, " ")
Call m.addLabel(100, " ")

' Add a semi-transparent blue (800000ff) pointer at the specified value, using triangular pointer
' shape
Call m.addPointer(value, &H800000ff).setShape(cd.TriangularPointer)

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

[Windows Version (in Visual Basic)] vbdemo\linearzonemeter.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 = 85

    ' Create an LinearMeter object of size 210 x 45 pixels, using silver background with a 2 pixel
    ' black 3D depressed border.
    Dim m As LinearMeter
    Set m = cd.LinearMeter(210, 45, cd.silverColor(), 0, -2)

    ' Set the scale region top-left corner at (5, 5), with size of 200 x 20 pixels. The scale labels
    ' are located on the bottom (implies horizontal meter)
    Call m.setMeter(5, 5, 200, 20, cd.Bottom)

    ' Set meter scale from 0 - 100
    Call m.setScale(0, 100)

    ' Add a title at the bottom of the meter with a 1 pixel raised 3D border
    Call m.addTitle2(cd.Bottom, "Battery Level", "arialbd.ttf", 8).setBackground(cd.Transparent, _
        -1, 1)

    ' Set 3 zones of different colors to represent Good/Weak/Bad data ranges
    Call m.addZone(50, 100, &H99ff99, "Good")
    Call m.addZone(20, 50, &Hffff66, "Weak")
    Call m.addZone(0, 20, &Hffcccc, "Bad")

    ' Add empty labels (just need the ticks) at 0/20/50/80 as separators for zones
    Call m.addLabel(0, " ")
    Call m.addLabel(20, " ")
    Call m.addLabel(50, " ")
    Call m.addLabel(100, " ")

    ' Add a semi-transparent blue (800000ff) pointer at the specified value, using triangular
    ' pointer shape
    Call m.addPointer(value, &H800000ff).setShape(cd.TriangularPointer)

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

End Sub