Gráfico

[Guest - André -]

Alguém tem um esquema simples de gerar gráfico em ASP??

Se alguém puder me ajudar eu agradeço!!

[dipreza]

Ola,

você pode criar gráficos usando OWC, um componente Ofice.

<%
path=left(Request.ServerVariables("PATH_INFO"),InstrRev(Request.ServerVariables("PATH_INFO"),"/"))
path=right(path,len(path)-1)
if InStr(path,"/") then
	path=left(path,len(path)-1)
end if

Dim catnom(), valor(), caminho
caminho="/" & path & "/temp"


For i = 1 to 10 
	With Server.CreateObject("OWC.Chart")
  set c = .constants
  With .charts.add

  	.HasTitle=True
  	if .HasTitle then
    .Title.Caption = "TESTE ABB"
    .Title.Font.Size = 10
    .Title.Font.Name = "Arial"
    .Title.Font.Bold = True
    .Title.Font.Italic = False
    .Title.Font.Underline = False
  	end if
  	
  	.HasLegend = True
  	if .HasLegend then
    .Legend.Font.Size = 10
    .Legend.Font.Name = "Tahoma"
    .Legend.Font.Bold = true
    .Legend.Font.Italic = False
    .Legend.Font.Underline = False
  	end if

  	tipo = i
  	
  	Select Case tipo
  	Case 1
    .Type = c.chChartTypeArea
  	Case 2
    .Type = c.chChartTypeAreaStacked
  	Case 3
    .Type = c.chChartTypeBarClustered
  	Case 4
    .Type = c.chChartTypeBarStacked
  	Case 5
    .Type = c.chChartTypeColumnClustered
  	Case 6
    .Type = c.chChartTypeColumnStacked
  	Case 7
    .Type = c.chChartTypeLine
  	Case 8
    .Type = c.chChartTypeLineMarkers
  	Case 9
    .Type = c.chChartTypeLineStacked
  	Case 10
    .Type = c.chChartTypePie
  	Case 11
    .Type = c.chChartTypeArea3D
  	Case 12
    .Type = c.chChartTypeBubble
  	Case 13
    .Type = c.chChartTypeBar3D
  	Case 14
    .Type = c.chChartTypeColumn3D
  	Case 15
    .Type = c.chChartTypeColumnStacked3D
  	Case 16
    .Type = c.chChartTypeCombo3D
  	Case Default
    .Type = c.chChartTypeCombo3D
  	End Select

  	x=5
  	ReDim catnom(x), valor(x)
  	
  	catnom(0) = "Teste 1"
  	valor(0) = 10
  	catnom(1) = "Teste 2"
  	valor(1) = 20
  	catnom(2) = "Teste 3"
  	valor(2) = 10
  	catnom(3) = "Teste 4"
  	valor(3) = 20
  	catnom(4) = "Teste 5"
  	valor(4) = 10
  	catnom(5) = "Teste 6"
  	valor(5) = 20


  	With .seriescollection.add
    .caption = "TESTE X"
    .setdata c.chdimcategories,c.chdataliteral, catnom
    .setdata c.chdimvalues,c.chdataliteral, valor
  	End With
  	
  	y=5
  	ReDim catnom1(y), valor1(y)
  	
  	catnom1(0) = "Teste 1"
  	valor1(0) = 34
  	catnom1(1) = "Teste 2"
  	valor1(1) = 35
  	catnom1(2) = "Teste 3"
  	valor1(2) = 17
  	catnom1(3) = "Teste 4"
  	valor1(3) = 20

  	catnom1(4) = "Teste 7"
  	valor1(4) = 10
  	catnom1(5) = "Teste 6"
  	valor1(5) = 1

  	With .seriescollection.add
    .caption = "TEXTE Y"
    .setdata c.chdimcategories,c.chDataLiteral, catnom1
    .SetData c.chDimValues,c.chDataLiteral, valor1

  	End With
  End With  

  .border.color = c.chColorNone

  Set arquivo=Server.CreateObject("Scripting.FileSystemObject")
  arquivo="grafico"& i &".gif"

  .ExportPicture Server.MapPath(caminho) &"/"& arquivo, "gif", 400, 400
  
  Response.Write "<img src=""temp/"&arquivo&""" width=402 height=402>"
  
	End With

Next

%>

Ou mesmo usando operações matemáticas, gráficos barra simples:

<TABLE ALIGN="center" WIDTH="35%" BORDER="1" CELLPADDING="0" CELLSPACING="0">
  <TR>
    <TD height="116"> 
      <% 
  dado1 = 5
  dado2 = 8
  dado3 = 2
  dado4 = 5

  Total = 20
	%>
         <p><b><font size="2" face="Arial, Helvetica, sans-serif"><IMG HEIGHT="15" SRC="bgcolor.gif" BORDER="0" WIDTH="<%= 

CInt(dado1*100/total)%>%"> 
        <%= formatnumber((dado1/total)*100,1)  %> %<br>
        <IMG HEIGHT="15" SRC="bgcolor.gif" BORDER="0" WIDTH="<%= CInt(dado2*100/total)%>%"> 
        <%= formatnumber((dado2/total)*100,1)  %> % <br>
        <IMG HEIGHT="15" SRC="bgcolor.gif" BORDER="0" WIDTH="<%= CInt(dado3*100/total)%>%"> 
        <%= formatnumber((dado3/total)*100,1)  %> % <br>
        <IMG HEIGHT="15" SRC="bgcolor.gif" BORDER="0" WIDTH="<%= CInt(dado4*100/total)%>%"> 
        <%= formatnumber((dado4/total)*100,1)  %> %</font></b> <br>
        <br>
        <font size="2" face="Arial, Helvetica, sans-serif">Total : <b><%= formatnumber 

(dado1+dado2+dado3+dado4)%></b></font></p>
    </TD></TR></TABLE>

Qualquer duvida GRITE

[Guest Guest]

Valeu cara , com operações matemáticas pareceu ser bem mais fácil

[dipreza]

Disponha