[Resolvido] Media em ASP

[Morpheus#2005 1]

Salve galera..

 

Eu nao sei como fazer, mas sei quem pode me ajudar voces..rsssss

 

Eu preciso fazer uma média dessa base abaixo.. para cada numero ele ira mostrar uma imagem, isso esta funcionando..mas como eu posso tirar uma media ??

 

 

 

<%
	 If (CStr((View_Cad_NP.Fields.Item("cad_risco_4_receita").Value)) = CStr("10")) Then Response.Write"<img src=""../img/alto.gif"">"


	 If (CStr((View_Cad_NP.Fields.Item("cad_risco_4_receita").Value)) = CStr("6")) Then Response.Write"<img src=""../img/medio.gif"">"
	  
	 If (CStr((View_Cad_NP.Fields.Item("cad_risco_4_receita").Value)) = CStr("3")) Then Response.Write"<img src=""../img/baixo.gif"">"


	 If (CStr((View_Cad_NP.Fields.Item("cad_risco_4_receita").Value)) > CStr("0")) Then Response.Write"<img src=""../img/na.gif"">"

%>

Abraços e obrigado

[Ted k' 126]

tirar uma média??

 

como assim???

 

dos mais mostrados??

[Morpheus#2005 1]

Hum...a soma eu consegui :

 

<%

Soma=
(View_Cad_NP.Fields.Item("cad_risco_1_receita").Value)+
(View_Cad_NP.Fields.Item("cad_risco_1_igq").Value)+
(View_Cad_NP.Fields.Item("cad_risco_1_pc_desp").Value)+
(View_Cad_NP.Fields.Item("cad_risco_1_processo").Value)+
(View_Cad_NP.Fields.Item("cad_risco_1_pessoas").Value) 

response.write (Soma) 
%>

Eu preciso tirar a media dessa soma acima....mas na media nao pode contar quando tiver (zero).

 

 

Poderia ficar response.write (Soma) / 5....mas se eu preencher somente 3 valores eu tenho que didivir por 3...sacou ??

[Ted k' 126]

então primeiro você vai ter que fazer um filtro para saber os campos que estão vindo vazios assim você pode calcular

 

if campo01 = "" then
campo01 = 1
else
....outros dados...
campo01 = 0
end if

if campo02 = "" then
campo02 = 1
else
....outros dados...
campo02 = 0
end if

if campo03 = "" then
campo03 = 1
else
....outros dados...
campo03 = 0
end if

valor = campo01 + campo02 + campo03

response.write (Soma) / valor

tipo isso!!

[Morpheus#2005 1]

Olha so nao esta indo o que eu estou fazendo de errado..

 

<%
	   If(View_Cad_NP.Fields.Item("cad_risco_1_receita").Value)=""  Then 
		 (View_Cad_NP.Fields.Item("cad_risco_1_receita").Value)="1" Else 
		 (View_Cad_NP.Fields.Item("cad_risco_1_receita").Value)="0" End If
		 
		 
	   If(View_Cad_NP.Fields.Item("cad_risco_1_pessoas").Value)=""  Then 
		 (View_Cad_NP.Fields.Item("cad_risco_1_pessoas").Value)="1" Else 
		 (View_Cad_NP.Fields.Item("cad_risco_1_pessoas").Value)="0" End If
		


valor=(View_Cad_NP.Fields.Item("cad_risco_1_receita").Value)+(View_Cad_NP.Fields.Item("cad_risco_1_pessoas").Value)

Soma=(View_Cad_NP.Fields.Item("cad_risco_1_receita").Value)+(View_Cad_NP.Fields.Item("cad_risco_1_pessoas").Value)

response.write (Soma) / (valor)
	   %>

O Erro é esse:

 

Erro de compilação do Microsoft VBScript erro '800a0400'

 

Instrução esperada

 

/gerot/g_cadastro/test_view.asp, line 106

 

(View_Cad_NP.Fields.Item("cad_risco_1_receita").Value)="1" Else

^

Valew pela ajuda..

[Ted k' 126]

faça do jeito que falei

 

If (View_Cad_NP.Fields.Item("cad_risco_1_receita").Value) = ""  Then
		 campo = "1"
	 End If

teste assim!

 

e o valor você coloca assim

 

valor= campo1 + campo2 + .....

[Morpheus#2005 1]

kra perfeito..agora ele esta mostrando um erro de divisao por zero nessa linha :

 

response.write CINT((soma)) / CINT((valor))

[Ted k' 126]

veja se as variaveis, campo1, campo2... estão retornado valores

 

dê um response.write na variável valor e veja como está vindo!

[Morpheus#2005 1]

Descobri o que era....quando eu faço a soma de algum campo que esteja NULO da pau...como contornar isso.. ???

[Ted k' 126]

faz o else e diz que o valor = 0

[Morpheus#2005 1]

Putzzz.. Ate que enfim funcionou..valew Ted´k.

 

Segue o resultado caso alguém precise um dia.

 

Para somar ,multiplicar, Diminuir ou Dividir NUNCA esqueça de formatar os campos para "INT".

 

A Soma ficou assim :

 

<%
Soma_R1 = INT(View_Cad_NP.Fields.Item("cad_risco_1_receita").Value)+_ 
INT(View_Cad_NP.Fields.Item("cad_risco_1_igp").Value)+_
INT(View_Cad_NP.Fields.Item("cad_risco_1_pc_desp").Value)+_
INT(View_Cad_NP.Fields.Item("cad_risco_1_processo").Value)+_
INT(View_Cad_NP.Fields.Item("cad_risco_1_pessoas").Value)


Soma_R2 = INT(View_Cad_NP.Fields.Item("cad_risco_2_receita").Value)+_ 
INT(View_Cad_NP.Fields.Item("cad_risco_1_igp").Value)+_
INT(View_Cad_NP.Fields.Item("cad_risco_1_pc_desp").Value)+_
INT(View_Cad_NP.Fields.Item("cad_risco_1_processo").Value)+_
INT(View_Cad_NP.Fields.Item("cad_risco_1_pessoas").Value)
%>

 

 

<% Riscos = int(Risco1)+int(Risco2)%> ----- Aqui eu calculo os Riscos

 

A média ficou assim :

 

<%Media_Final = (Media_R1+Media_R2) / Riscos%>

Valew galera...

[Ted k' 126]

você é um verme mesmo!!!

Relamente não pode esquecer de tranformar em Inteiro, os valores vem mais apresentáveis!!

 

Parabéns!!!!

 

qualquer coisa amigo #2005 tamos æ!!