Criando gráficos com ASP

Embora existem muitas técnicas para gerar gráficos com arquivos de scripts ASP , iremos mostrar uma técnica bem simples , mas que leva a um resultado suscinto e objetivo.

Na verdade o grande trabalho para gerar o gráfico não é o fazer o gráfico em si mesmo , mas preparar os dados que desejamos exibir de forma adequada para que o trabalho seja rápido e atinja o objetivo desejado.

Suponha que você seja um programador de uma escola e que tenha que gerar um gráfico para ser visualizado no site da escola que exiba a relação alunos x faltas em determinado período. O primeiro trabalho que você vai ter e coletar os dados e dispô-los de forma a facilitar o seu trabalho.

Para fazer o trabalho você criou um arquivo access chamado grafico.mdb e criou uma tabela chamada alunos com a seguinte estrutura:

A tabela alunos irá armazenar o código , nome e o total de faltas de cada aluno. Cadastre alguns alunos com suas respectivas notas.

Agora só falta gerar um script em asp para montar o gráfico e exibir o resultado no site da escola.

Para montar o gráfico iremos precisar de uma imagem que irá ser usada para exibir o gráfico. 
Voce pode gerar um pequeno quadrado no Paint dando a ele a cor que quiser e depois usá-lo para montar o gráfico. 

Criamos um arquivo de script ASP chamado graf_faltas.asp com uma função chamada BarChar(data,rotulos, titulo, eixos); ela deverá receber os seguintes parâmetros:

Data - dos dados que desejamos exibir
rotulos - o rotulo a ser exibido no eixo X
titulo - O titulo do gráfico
Eixos - O nome da coordenada X

E realizar o processamento gerando o gráfico no site. Abaixo temos o código do arquivo graf_faltas.asp
----------------------------------------------------------------------------------------
Arquivo: faltas.asp





" 
& chr(13))
   Response.Write("")
   Response.Write("" & titulo & "" & chr(13))
   Response.Write("" & chr(13))

   'encontra o maior valor
   Dim maior_valor
   maior_valor = data(LBound(data))

   Dim i
   for i = LBound(data) to UBound(data) - 1
  	if data(i) > maior_valor then maior_valor = data(i)
   next

   'imprime o maior valor no topo do gráfico
   Response.Write("" & maior_valor & "-" & "")

   Dim largura_percentual
   largura_percentual = CInt((1 / (UBound(data) - LBound(data) + 1)) * 100)

For i = LBound(data) to UBound(data) - 1
  Response.Write(" " & chr(13))
  Response.Write("   " & chr(13))
  Response.Write(" " & chr(13))
Next

  Response.Write("")
  Response.Write("0")

  'Imprime o rodape
  Response.Write("" & eixos & "" & chr(13))
  for i = LBound(rotulos) to UBound(rotulos) - 1
    Response.Write("" & rotulos(i) & "" & chr(13))
  next
  Response.Write("" & chr(13))
  Response.Write("")
end sub

'abre conexao com banco de dados
Dim objConnection
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.Open "DSN=Faltas"

Dim SQL
SQL = "SELECT Aluno,Faltas FROM Alunos"

Dim rsFaltas
Set rsFaltas = Server.CreateObject("ADODB.Recordset")
rsFaltas.Open SQL, objConnection, adOpenStatic

Encontra o total de registros do arquivo
Dim numRegistros
numRegistros = rsFaltas.RecordCount

Define os vetores que irão armazenar as faltas e o nome dos alunos
Dim VetorFaltas(), VetorNomes()
Redim VetorFaltas(numRegistros)
Redim VetorNomes(numRegistros)

Dim i
for i = 0 to numRegistros-1
	VetorFaltas(i) = rsFaltas("Faltas")
	VetorNomes(i) = rsFaltas("Aluno")
	rsFaltas.MoveNext
next

%>











-------------------------------------------------
Vamos destacar somente as partes principais do código do arquivo graf_faltas.asp:

1- Define a largura e altura do gráfico e o arquivo de imagem que usamos para montar o gráfico

Const grafaltura = 300
Const graflargura = 600
Const barImage = "img_graf.gif"

2-As funções UBound() e LBound() são usadas para determinar o maior e o menor valores dos Vetores

Dim maior_valor
maior_valor = data(LBound(data))

3-Utilizamos vetores para armazenar os valores da tabela alunos

Dim VetorFaltas(), VetorNomes()
Redim VetorFaltas(numRegistros)
Redim VetorNomes(numRegistros)

for i = 0 to numRegistros-1
VetorFaltas(i) = rsFaltas("Faltas")
VetorNomes(i) = rsFaltas("Aluno")
rsFaltas.MoveNext
next

4- A chamada da função é feita pela seguinda linha de código:

Tags:

• ASP,
• Diversos,
• Gráficos