Enquete!

[DELPHI-Man32]

bem pessaoal fiz uma enquete mas para mostrar os resultados quero mostrar alem dos votos, a porcentagem e as barras! como colocar essas barras para representar a porcentagem de votos?

tipo:

WINDWOS: |||||||||||||||||||||||||||||||||||||||||||||||||

LINUX : |||||||||||||||||||||||||||||||||

OUTROS: ||||||

beleza

OLHEM O RESULTADO ATE AGORA!

ENQUETE - SISTEMAS OPERACIONAIS

abraços, VAGNER

[renatacm]

Tenta fazer o seguinte (fiz uma vez e deu certo):

y = tamanho máximo q a barra pode ter

z = percentual para a barra

x = y vezes z / 100

por exemplo:

tamanho máximo da barra será 400pixels e você tem 26% para o item OUTROS, então:

x = 400 x 26 / 100

x = 104

defina a largura da imagem da barra como <%=x%> e a barra terá 104pixels de tamanho, que representa 26% do total.

Entendeu?

qualquer coisa, posta o código pra gente ver...

Bjocas...

;oÞ

[DELPHI-Man32]

minha amiga Renata falou e disse tudo!!!

agradeço a ela!!

tai o resultado!!

<%
'Cria a conecxao com o banco de dados	
	Set Conectar = Server.CreateObject("ADODB.Connection")
	Conectar.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath("enquetes.mdb")

'Determina o sql a ser usado na colsulta
	strSQL = "select * from Sistemas"
	Set RS = Conectar.Execute(strSQL)	

'Soma os valores de cada sistema
	Total = RS("votos1") + RS("votos2") + RS("votos3")

'Variaveis de porcentagem	
Dim v1, v2, v3
'Determina a porcentagem de cada sistema, multiplica a quantd de votos por 100 e divide pelo total de votos
	v1 = RS("votos1") * 100 / Total
	v2 = RS("votos2") * 100 / Total
	v3 = RS("votos3") * 100 / Total
'Soma dos percentuais para resultar na base 100%
	v4 = v1+v2+v3

	'Determina a largura da barra de windows
	B_win = 400
	P_win = v1
	L_win = B_win * P_win / 100

	'Determina a largura da barra de linux
	B_lin = 400
	P_lin = v2
	L_lin = B_lin * P_lin / 100

	'Determina a largura da barra para outros sistemas
	B_out = 400
	P_out = v3
	L_out = B_out * P_out / 100

%>

aqui deu tudo certo, se alguém encontrar algum erro, favor postar pra gente ae!! te mais

abraços, VAGNER

Editado Abril 27, 2005 por DELPHI-Man32

[renatacm]

Ou, poderia ficar assim:

<%
'Cria a conecxao com o banco de dados 
Set Conectar = Server.CreateObject("ADODB.Connection")
Conectar.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath("enquetes.mdb")

'Determina o sql a ser usado na colsulta
strSQL = "select * from Sistemas"
Set RS = Conectar.Execute(strSQL) 

'Soma os valores de cada sistema
Total = RS("votos1") + RS("votos2") + RS("votos3")

'Variaveis de porcentagem 
Dim v1, v2, v3
'Determina a porcentagem de cada sistema, multiplica a quantd de votos por 100 e divide pelo total de votos
v1 = RS("votos1") * 100 / Total
v2 = RS("votos2") * 100 / Total
v3 = RS("votos3") * 100 / Total
'Soma dos percentuais para resultar na base 100%
v4 = v1+v2+v3

'Determina a largura da barra de windows
L_win = 400 * v1 / 100

'Determina a largura da barra de linux
L_lin = 400 * v2 / 100

'Determina a largura da barra para outros sistemas
L_out = 400 * v3 / 100

%>

[]'s

;oÞ

[cyberalexxx]

Legal!!!

Aposto q muita gente na escola pensou, pra q aprender regra de três, nunca vou usar essa porcaria

[]'s

[DELPHI-Man32]

iclusive eu, acredita?

[renatacm]

pois é...

;oÞ