[Resolvido] gráfico simples

[xanburzum 169]

A função abaixo, cria um gráfico simples HTML .

 

sintaxe:

 

string = Grafico( arraygra, arraynomes, bordasize, alinhamento, width, cor, titulo )

exemplo:

 

<%
Dim input, nomes, borda, align, width, cor, titulo 

 ' array de valores.
input  = Array( 181, 2325, 2142, 3010, 416, 1124, 621, _
	 500, 1021, 1421, 2325, 1842, 1010, 1416, 1124, _
	 2621, 3500, 1121 )

 ' array de nomes para cada item.
nomes  = Array( "Item 1", "Item 2", "Item 3", "Item 4", _
	 "Item 5", "Item 6", "Item 7", "Item 8", "Item 9", _
	 "Item 10", "Item 11", "Item 12", "Item 13", _
	 "Item 14", "Item 15", "Item 16", "Item 17", _
	 "Item 18" )

 ' borda 
borda = 1

 ' alinhamento
align  = "LEFT"

 ' width (out of 100%) of the graph
width  = 50

 ' cor da barra
color  = "#CF230F"

 ' titulo
titulo= "Exemplo"

response.write Grafico( input, nomes, borda, align, width, cor, titulo )  
%>

 

code:

 

<%
Private Function Grafico(byVal arraygra, byVal arraynomes, _
			 byVal bordasize, byVal alinhamento, _
			 byVal width, byVal cor, byVal titulo)
	Dim i, tmp
	tmp = "<TABLE BORDER=" & bordasize & " ALIGN=""" & _
		  alinhamento & """ WIDTH=""" & width & "%""><TR><TD>" & vbCrLf
	tmp = tmp & "<CENTER><B>" & titulo & "</B></CENTER>" & vbCrLf
	tmp = tmp & "<TABLE WIDTH=""100%"" STYLE=""font-size:7pt;"" " & _
			"ALIGN=CENTER>" & vbCrLf
	for i = 0 to ubound( arraygra )
		tmp = tmp & "<TR><TD ALIGN=LEFT WIDTH=""5%"" " & _
			"NOWRAP>" & CStr( arraynomes( i ) ) & _
			"</TD><TD ALIGN=CENTER " & _
			"WIDTH=""5%"" NOWRAP>[ " & _
			CDbl( arraygra( i ) ) & " ]</TD><TD WIDTH" & _
			"=""90%""><SPAN BGCOLOR=""" & cor & _
			""" STYLE=""width:" & _
			CLng( 2 * (arraygra( i ) / _
			ubound( arraygra ) + 4) ) & _
			";background-color:" & cor & _
			";"" WIDTH=""" & CLng( 2 * (arraygra( i ) / _
			ubound( arraygra ) + 4) ) & _
			"""> </SPAN></TD></TR>" & vbCrLf
	next
	tmp = tmp & "</TABLE>" & vbCrLf
	tmp = tmp & "</TD></TR></TABLE>" & vbCrLf
	Grafico = tmp
End Function
%>