Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

sr.silva

Gerar Graficos - Barras Horizontais

Por , em ASP Clássico

Recommended Posts

sr.silva    1

sr.silva
Postado

Ola Pessoal!Estou precisando construir graficos( barras horizontais ).Mais pelo que vi, somente exitem componentes que fazem isso.Dei uma pesquisada aqui, e vi que outras duvidas ja pintaram sobre isso. Em alguns post, disseram que seria possivel fazer com o Excel, mais como??Em outro momento, com HTML basico ( uso de tabelas ). Sera que alguem ja passou por isso e possa me ajudar?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

A forma mais simples é utilizando imagens e alterando sua largura com base nos dados que você tem.

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

segue uma ideia em puro html

 

total_votos = 125dim votos(3)votos(1) = 10votos(2) = 35votos(3) = 80for i = 1 to 3  If (total_votos = 0) Then	porcentagem = FormatPercent(votos(i) / 1, 2)  Else	  porcentagem = FormatPercent(votos(i) / total_votos, 2)   End If   Response.Write "<table width='"& porcentagem &"' border='0' cellspacing='1' cellpadding='0'>" & VbCrLf   Response.Write "<tr>" & VbCrLf....next
estou procurando um esquema na net que vi sobre graficos, se achar posto aqui

 

outras referencias sobre graficos

http://www.planet-source-code.com/vb/scrip...30&lngWId=4

http://www.planet-source-code.com/vb/scrip...52&lngWId=4

http://www.planet-source-code.com/vb/scrip...62&lngWId=4

http://www.planet-source-code.com/vb/scrip...42&lngWId=4

http://www.planet-source-code.com/vb/scrip...59&lngWId=4

http://www.planet-source-code.com/vb/scrip...47&lngWId=4

Compartilhar este post

Link para o post
Compartilhar em outros sites

sr.silva    1

sr.silva
Postado

pessoal, estou com um codigo e gostaria de fazer com que as barras fossem horizontais..

 

tem como alguem me ajudar

 

<!--#include file="config.asp"--><!--#include file="db.asp"--><%'definindo a largura e a altura em pixels Const grafaltura = 10Const graflargura = 600Const barImage =  ""'"imgs/empreendimento-detalhes/grafico.jpg" sub BarChart(data, rotulos , titulo, eixos)   'Imprime o cabeçalho   Response.Write("<TABLE CELLSPACING=0 CELLPADDING=1 BORDER=0 WIDTH=" & graflargura & ">" & chr(13))   Response.Write("<TR><TH COLSPAN=" & UBound(data) - LBound(data) + 2 & ">")   Response.Write("<FONT SIZE=+2>" & titulo & "</FONT></TH></TR>" & chr(13))   Response.Write("<TR><TD VALIGN=TOP ALIGN=RIGHT>" & 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("<b>" & maior_valor & "</b>-" & "</TD>")   Dim largura_percentual   largura_percentual = CInt((1 / (UBound(data) - LBound(data) + 1)) * 100)For i = LBound(data) to UBound(data) - 1    Response.Write(" <TD VALIGN=BOTTOM ROWSPAN=2 WIDTH=" & largura_percentual & "% >" & chr(13))  Response.Write("   <IMG SRC=""" & barImage & """ WIDTH=100% HEIGHT=" & CInt(data(i)/maior_valor * grafaltura) & ">" & chr(13))  Response.Write(" </TD>" & chr(13))Next  Response.Write("</TR>")  Response.Write("<TR><TD VALIGN=BOTTOM ALIGN=RIGHT><b>0</b></TD></TR>")  'Imprime o rodape  Response.Write("<TR><TD ALIGN=RIGHT VALIGN=BOTTOM>" & eixos & "</TD>" & chr(13))  for i = LBound(rotulos) to UBound(rotulos) - 1	Response.Write("<TD VALIGN=BOTTOM ALIGN=CENTER>" & rotulos(i) & "</TD>" & chr(13))  next  Response.Write("</TR>" & chr(13))  Response.Write("</TABLE>")end sub'abre conexao com banco de dadosDim SQLSQL = "SELECT idimovel, idimovelobra from timovelobra "Dim rsFaltasSet rsFaltas = Server.CreateObject("ADODB.Recordset")rsFaltas.Open SQL, Conn, 1, 3'Encontra o total de registros do arquivoDim numRegistrosnumRegistros = rsFaltas.RecordCount'Define os vetores que irão armazenar as faltas e o nome dos alunosDim VetorFaltas(), VetorNomes()Redim VetorFaltas(numRegistros)Redim VetorNomes(numRegistros)Dim ifor i = 0 to numRegistros-1	VetorFaltas(i) = rsFaltas("idimovel")	VetorNomes(i) = rsFaltas("idimovelobra")	rsFaltas.MoveNextnext%><HTML><BODY><CENTER><% BarChart VetorFaltas,VetorNomes,"Andamento das Obras","Grafico" %></CENTER></BODY></HTML><%	rsFaltas.Close	Set rsFaltas = Nothing	Conn.Close	Set Conn = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito