Montar Grafico

[Neco 0]

<%function makechart(title, numarray, labelarray, imagename, maxheight, maxwidth, addvalues) ' title: Título do Grafico ' numarray: Uma Array de valores para montar o Gráfico ' labelarray: Uma Array com os títulos dos valores passados pela Array numarray ' imagename: Nome da imagem a ser utilizada para construir o gráfico. Utilize um Gif de 1 pixel da cor que você preferir... ' maxheight: Altura do Gráfico, sem contar os títulos dos valores ' maxwidth: Largura de cada coluna ' addvalues: True ou False. Se você quer que os valores apareçam ou não no gráfico ' para usar esta função: response.write makechart(parameters) dim tablestring dim max dim tempnumarray dim templabelarray dim heightarray dim tempnum if maxheight > 0 and maxwidth > 0 and ubound(labelarray) = ubound(numarray) then templabelarray = labelarray tempnumarray = numarray heightarray = array() max = 0 maxlength = 0 tablestring = "<TABLE border='1' bordercolor='#000000'>" & vbCrLf for each stuff in tempnumarray if stuff > max then max = stuff end if next tempnum = maxheight/max for counter = 0 to ubound(tempnumarray) if tempnumarray(counter) = max then redim preserve heightarray(counter) heightarray(counter) = maxheight else redim preserve heightarray(counter) heightarray(counter) = tempnumarray(counter) * tempnum end if next tablestring = tablestring & "<TR bgcolor='#CCCCFF'><TH colspan='" & ubound(tempnumarray)+1 & "'>" & title & "</TH></TR>" & _ vbCrLf & "<TR bordercolor='#FFFFFF'>" & vbCrLf for counter = 0 to ubound(tempnumarray) tablestring = tablestring & vbTab & "<TD valign='bottom' align='center'><img src='" & imagename & "' width='" & maxwidth & "' height='" & _ heightarray(counter) & "'>" if addvalues then tablestring = tablestring & "<BR>" & tempnumarray(counter) end if tablestring = tablestring & "</TD>" & vbCrLf next tablestring = tablestring & "</TR>" & vbCrLf for each stuff in labelarray tablestring = tablestring & vbTab & "<TD align='center' bordercolor='#FFFFFF'><B> " & stuff & " </TD>" & vbCrLf next tablestring = tablestring & "</TABLE>" & vbCrLf makechart = tablestring else Response.Write "Erro! A altura e a largura devem ser maiores que zero (0), ou o número de títulos não é igual ao número de valores passados..." end if end function %><%' esta parte você coloca onde realmente deseja que o gráfico apareça em seu site...dim stuff dim labelstuffdim titulo, imagem, altura, largura, valorestitulo = "Meu Gráfico"imagem = "img_grafico.gif"altura = 100largura = 10valores = "True"stuff = Array(200,100,50,74,50.5) labelstuff = Array("Campo1","Campo2","Campo3","Campo4","Campo5") Response.Write makechart(titulo, stuff, labelstuff, imagem, altura, largura, valores) %>

[angus 0]

Para que serve este código?

[Neco 0]

Montar um grafico de estatisticas......

[zanelati2002 0]

tipo se eu quizer mostrar um grafico ficticio de numeros de usuarios que se cadstram dentro de um mês como que eu faço tipo isto daqui

http://www.estruturasbroilo.com.br/salamito/index.asp

 

é a pagina inicila e em baixo tem um grafico como fazer isto

[-_KIKO_- 0]

não seria mais facil contar quantos usuários tem no DB por exemplo e montar uma proporção?tipo, o maximo que a imagem pode ter é 200 pixels , a cada 5 registros adiciona 4 pixels?! s

[zanelati2002 0]

tqa mais me ensina como se faz isto