Componente profissional de gráficos para Windows e aplicações Web.
Possui diversos modelos, suporta customatizações e interações com AJAX. O código está todo comentado e é de fácil entendimento.
<%
' Cria uma instância do controle
Set ChartDirector = Server.CreateObject("ChartDirector.API")
' Cria um array com os títulos do gráfico
array_Titulo = Array("Domínio 01", "Domínio 02", "Domínio 03", "Domínio 04", "Domínio 05")
' Cria um array com os valores do gráfico
array_Valores = Array(250, 190, 244, 85, 125)
' Informa o tamanho do gráfico
Set grafico = ChartDirector.XYChart(400, 240)
' Adiciona o título do gráfico usando a fonte Times Bold Italic tamanho 14
Call grafico.addTitle("Acesso aos Domínios", "timesbi.ttf", 14)
' Define a área do gráfico e as cores de alternância no fundo
Call grafico.setPlotArea(45, 40, 300, 160, &Hf8f8f8, &Hffffff)
' Define os valores do gráfico e informa que cada barra terá uma cor
Set layer = grafico.addBarLayer3(array_Valores)
' Informa que o gráfico será em 3D com 15 pixels de profundidade
Call layer.set3D(15)
' Informa que o gráfica terá a forma circular (cilíndrica)
Call layer.setBarShape(ChartDirector.CircleShape)
' Informa os títulos do gráfico
Call grafico.xAxis().setLabels(array_Titulo)
' Adiciona o título esquerdo do gráfico
Call grafico.yAxis().setTitle("Nº de Acessos")
' Adiciona o título do rodapé do gráfico
Call grafico.xAxis().setTitle("Novembro de 2007")
' Imprime a imagem do gráfico na tela
Response.ContentType = "image/png"
Response.BinaryWrite grafico.makeChart2(ChartDirector.PNG)
' Tira os objetos da memória
Set layer = Nothing
Set grafico = Nothing
Set ChartDirector = Nothing
%>
