Hjælp til udregning i ASP

Du skal ligge stemmerne sammen i databasen og så gemme hvor mange der har stemt, gør du det?

ja det gør jeg..

Hvis du lægger tallene sammen, og antallet af stemmer, er det simpelt nok:

sql = "select * from TabelNavn where id = " & id

...
response.write "procent: " & CBDL( CDBL(rs("rating")) / CInt(rs("antal_stemmer")) )

Egenligt burde det være:

response.write "procent: " & CBDL( CInt(rs("rating")) / CInt(rs("antal_stemmer")) )

Da rating (det man har stemt) og antallet af stemmer, begge er hele tal.

Procent delen kan indeholde kommatal, og er derfor ikke en integer (CInt) men en double (CDbl).

<%
' Antal stemmer
strStemmer = "45"
' Alle stemmer lagt sammen
strResultat = "388"
   
hotStatus = strResultat / strStemmer
hotStatus = formatnumber(hotStatus, 0, 0)
hotStats = hotstatus * 100

response.write(hotstatus)
%>

Nå ja, man skal lige bruger formatnumber.. :-)

response.write "procent: " & FormatNumber( CBDL( CInt(rs("rating")) / CInt(rs("antal_stemmer")) ) )

Man kan også bruger FormatPercent, men man skal lige vende den om, så det er antal_stemmer / rating:

response.write "procent: " & FormatPercent( CBDL(  CInt(rs("antal_stemmer")) / CInt(rs("rating")) ) )

Kan du udbyde forklaring til dette udtræk? bare så jeg forstår til næste gang :-)
response.write "procent: " & CBDL( CInt(rs("rating")) / CInt(rs("antal_stemmer")) )

CInt(værdi) konverterer "værdi" til en integer, dvs, helttal (uden komma/punktum): 5
CDBl(værdi) konverterer "værdi" til en double, dvs, et kommatal: 5,2

Procenten udregnes, ved sige "rating divideret med antallet af stemmer".

Nu skrev du "input fra 1 til 3", så jeg gik ud fra at det var enten 1, 2 eller 3. Altså, at man ikke kan bruge kommatal, som f.eks. 2,4.

Hvis man kan bruge kommatal, skal det være: response.write "procent: " & CBDL( CDBl(rs("rating")) / CInt(rs("antal_stemmer")) )

Dvs, CDBl(rs("rating")) i stedet for CInt(rs("rating")).

Tak jeg prøver mig lige frem..

Jeg får Overflow i denne linie:
hotStatus = strResultat / strStemmer

hvad betyder det?

Hov nu står der:
Division by zero

strStemmer er lig 0. Man kan ikke dividere med 0.

dim intStemmer
intStemmer = CInt(strStemmer)

if intStemmer > 0 then
  ' her udskrives procent
else
  response.write "0 procent"
end if

Må jeg også være med - det er trods alt mig der har smidt med det med:

hotStatus = strResultat / strStemmer

Jeg har bare gjort sådan her...

<%
strStemmer = rs("stemmer")
strResultat = rs("resultat")

if strStemmer > 0 AND strResultat > 0 then
' Regn ud
else
strStemmer = "0"
strResultat = "0"
end if
%>

Okay.
Hvis jeg sætter en stemme nu med input 3 , så burde det vel være 100%??
Hvis jeg sætter 3 stemmer med input 1 skal udtrækket vel være 33.3%??

madeindk> Hehe.. jeg kan da sagtens rette i din kode.. :-)
(og var også lidt hurtigere)

Egenligt er det lidt overflødigt at teste "strResultat > 0", da strResultat automatisk vil være 0 (eller ingenting, men det kommer an på felttype), da der jo ikke har været stemt.. :-)

Så kan man nøjes med:

if intStemmer > 0 then
  ' her udskrives procent
else
  strStemmer = "0"
  strResultat = "0"
end if

kaptajnknas> Du har da ret.. :-)
Tænker lige over det..

Jeg selvfølgelig hæve værdierne til 33 - 66 - 100

Ja, det ville være det nemmeste.. jeg kan ikke lige se hvordan man skulle gøre det, når det er 1,2 og 3.

33, 66 og 100 er nemmere, da 3 stemmer á 1 "points" vil give 100% :-)

Ja det kan bruges, men det er ikke den helt rigtige løsning.
Hvis jeg gørdet, kan jeg så få udskrevet i procenter med komma som eks. 33.3%

Det er egenligt lidt forkert, at bruge 33, 66 og 100, da 1/3 ikke er 33, men "33,3333333...."

Men ja, du kan godt formatere det så det er på "xx,xx%" formatet..

Kan du hjælpe lidt med formatering?
Skal jeg hæve værdien til 3333 - 6666 - 10000 for at gøre det mere præcis?

Jeg ved ikke om det gør det mere præcist, men man kunne jo lave en test..

jo men jeg vil gerne have decimaler med ud, så der eks. står 49,2% er det muligt?

<%
hotStatus = formatnumber(hotStatus, 1, 0)
response.write(hotstatus
%>

Man kan faktisk beregne gennemsnittet som en del af selve SQL-kaldet:

SELECT count(*) AS antalStemmer, avg(stemme) AS gennemsnit FROM dinTabel

nielle>
Hmm.. Nu ved jeg ikke hvordan kaptajnknas har lavet det, men "count(*) AS antalStemmer" kræver vel, at man har 1 post per bruger der stemmer?

Hvis man bare har 1 post ("antal_stemmer","rating","afstemningsid") per afstemning, kan man vel ikke bruge den metode?

Jeg er bare nysgerrig.. :-)

Nej, det er rigtigt.

Hvis der ialt er 3 rækker i tabellen - en med antallet af 1-stemmer, en med antallet af 2-stemmer og en med antallet af 3-stemmer - så går det ikke med count() og avg(). Man kan bruge sum() i stedet for count(), men der er vist ikke nogen nem erstatning for avg() i det tilfælde.

Jeg sætter 1 post per. stemme, så jeg prøver lige de forslag..

Jeg forstår ikke helt hvordan det her virker:
SELECT count(*) AS antalStemmer, avg(stemme) AS gennemsnit FROM dinTabel

Kan i forklare det lidt nærmere?
Hvad betyder feks. avg?

avg er gennemsnit...

det som avg(stemme) gør er at tage gennemsnittet for de tal som ligger tabellen dinTabel i kolonnen stemme og gemmer dette i variablen gennemsnit

arhh okay :-D

"avg" er en forkortelse af "average" så betyder "gennemsnit" på dansk.

Ved ikke om jeg har overset noget, men jeg får intet ud med dette:

Set rs = Conn.Execute("SELECT count(*) AS count, avg(input) AS gennemsnit FROM mintabel")
response.write count
response.write gennemsnit

Du skal nok ikke bruge "... AS count" idet count jo er et reserveret ord.

Men ellers er det:

Set rs = Conn.Execute("SELECT count(*) AS antal, avg(input) AS gennemsnit FROM mintabel")
response.write rs("antal") & "<br>"
response.write rs("gennemsnit")

Det var bedre, skal jeg så bruge gennemsnittet i procent beregning herefter?

Jeg har gennemlæst tråden, men jeg synes ikke rigtigt at jeg kan finde ud af hvad det er for et resultat du gerne vil have ud af det til sidst? Hvordan skal output egentlig se ud?

Jamen jeg prøver at få et output der hedder eks. 77.8 %

Du har 3 stemme-muligheder: 1, 2, og 3. Ønsker du at vide hvor mange procent som gar stemt 1, hvor mange procent som har stemt 2, og hvor mange procent som har stemt 3? Eller skal alle tre stemme-muligheder kombineres i et tal?

Alle stemmer kombineres og deraf skal der beregnes procent

Det er lidt svært at se hvad det er for en formel du ønsker at bruge.

Hvad skal to stemmer, 1 hhv. 1, blive til?
Hvad skal to stemmer, 2 hhv. 2, blive til?
Hvad skal to stemmer, 3 hhv. 3, blive til?

Og hvad skal tre stemmer, 1, 2 og 3, blive til?

1 svarer til 0%
2 svarer til 50%
3 svarer til 100%

Dvs.

Hvad skal to stemmer, 1 hhv. 1, blive til? = 0+0/1 = 0%
Hvad skal to stemmer, 2 hhv. 2, blive til? = 50+50/2 = 50%
Hvad skal to stemmer, 3 hhv. 3, blive til? = 100+100+100/3 = 100%

Tre stemmer bliver til: 0+50+100/3 = 75%

sql = "SELECT avg((stemme-1)*50) AS rating FROM dinTabel"
Set rs = Conn.Execute(sql)
Response.Write "Rating: " & Round(rs("rating"), 0) & "%<br>"

Ps:

(0+50+100)/3 = giver 50%

Ja det er rigtig:)

Men jeg synes der kommer nogen mærkelige tal ud med den sql og de kommer ikke ud med decimal 100.0%

Mærkelige tal? Kan du ikke uddybe?

Hvis du vil have 1 decimals nøjagtighed, så er det:

sql = "SELECT avg((stemme-1)*50) AS rating FROM dinTabel"
Set rs = Conn.Execute(sql)
Response.Write "Rating: " & Round(rs("rating"), 1) & "%<br>"

jeg får noget der ligner 47,3258% ud når jeg bruger denne sql

Round() skulle da gerne runde af?

Jeg har ingen holdning til om tallet 47,3258% ellere er det rigtige? Er det det?

Når der ingen poster er overhoved får jeg resultatet 2317,5%

Hvor ved sql'en hvor mange stemmer der er lagt??

SQL'en bliver kørt af databasen. Og, den har skam fuld tjek på de data der ligger i den.

Hvis der ikke er nogen stemmer i tabellen er gennemsnittet udefineret.

Det kan jeg ikke få til at virke, det der kommer tættes på er:

<%
' Antal stemmer
strStemmer = "45"
' Alle stemmer lagt sammen
strResultat = "388"
   
hotStatus = strResultat / strStemmer
hotStatus = formatnumber(hotStatus, 0, 0)
hotStats = hotstatus * 100

response.write(hotstatus)
%>
Det kommer ud med det korrekte procent, dog ikke med decimel som jeg gerne vil ha'

<%
' Antal stemmer
strStemmer = "45"
' Alle stemmer lagt sammen
strResultat = "388"
   
hotStatus = strResultat / strStemmer
hotStatus = Round(hotStatus, 1)
hotStats = hotstatus * 100

response.write(hotstatus)
%>

Men det giver jo faktisk ikke det resultat som du ønsker i følge 19/08-2006 13:12:16.

<%
' Antal stemmer
strStemmer = "45"
' Alle stemmer lagt sammen
strResultat = "388"
   
hotStatus = strResultat / strStemmer
hotStatus = Round(hotstatus * 100, 1)

response.write(hotstatus)
%>

Jo får det er de samme værdier der er samlet i en anden kolonne, så det skulle være det samme.

Nej, for med den formel så tæller en stemme på 1 som noget mere end 0%

Men hvorfår siger du: avg((stemme-1)*50)
Det er jeg ikke med på.

Trin 1) Regnestykket stemme-1 giver:

1 -> 0
2 -> 1
3 -> 2

Trin 2) Regnestykket (stemme-1)*50 giver:

1 -> 0 -> 0
2 -> 1 -> 50
3 -> 2 -> 100

Det var de procenter du ville i følge 19/08-2006 13:12:16.

Trin 3) Regnestykket avg((stemme-1)*50) udregnmer gennemsnittet af alle stemmerne:

1+2+3 -> (0+50+100)/3 = 50%

Ja det lyder rigtig nok. hm. men ikk om jeg kan få det til at fungerer.
Men ligger det i mine input's jeg sætter nemlig ikke værdierne 1 - 2 - 3 ind i kolonnen, men 0 - 50 - 100

Hvad står der i databasen 1,2,3 eller 0,50,100?

0,50,100

Hvorfor i alverdene har du så skrevet 1, 2, og 3 hele tide?

Så skal koden jo passe på disse tal i stedet:

sql = "SELECT avg(stemme) AS rating FROM dinTabel"
Set rs = Conn.Execute(sql)
Response.Write "Rating: " & Round(rs("rating"), 1) & "%<br>"

- og så er det rigtogt nok at koden i 19/08-2006 14:06:02 også giver det rigtige.

Ja nu virker det :-) min fejl med 1-2-3 Sorry.
Nu er det kun en sidste ting, nemlig når der ikke er stemt kommer fejlen:

Invalid use of Null: 'round'
Er det muligt at omgås dette på en eller anden måde?

Sådan:

sql = "SELECT count(*) AS antalStemmer, avg(stemme) AS rating FROM dinTabel"
Set rs = Conn.Execute(sql)

If rs("antalStemmer") = 0 Then
    Response.Write "Der er ikke stemt.<bt>"
Else
    Response.Write "Rating: " & Round(rs("rating"), 1) & "%<br>"
End If



- eller muligvis noget i denne stil:

sql = "SELECT avg(stemme) AS rating FROM dinTabel"
Set rs = Conn.Execute(sql)

If rs("rating") = Nothing Then
    Response.Write "Der er ikke stemt.<bt>"
Else
    Response.Write "Rating: " & Round(rs("rating"), 1) & "%<br>"
End If

- eller:

If rs("rating") = Null Then
    Response.Write "Der er ikke stemt.<bt>"
Else
    Response.Write "Rating: " & Round(rs("rating"), 1) & "%<br>"
End If

Jeg er dog ikke helt sikker på om de to sidste virker.

Jeg tror dog mest på den sidste af de to. :^)

Ingen af dem virker.:( Har også prøvet:

If not rs.eof then
Response.Write "Rating: " & Round(rs("rating"), 1) & "%<br>"
    else
Response.Write "Der er ikke stemt.<bt>"
End If

Ja, den virker i hvert fald ikke for der vil altid blive returneret præcis en række med resultater.

Men denne her skal altså fungere:

sql = "SELECT count(*) AS antalStemmer, avg(stemme) AS rating FROM dinTabel"
Set rs = Conn.Execute(sql)

If rs("antalStemmer") = 0 Then
    Response.Write "Der er ikke stemt.<br>"
Else
    Response.Write "Rating: " & Round(rs("rating"), 1) & "%<br>"
End If

Perfekt det virker bare :-)

Hmm, men det var jo også den første af dem jeg viste i 19/08-2006 15:00:57. Hvorfor skrev du så at der ikke var nogen af dem der virkede?

Jeg havde ikke fået count(*) AS antalstemmer med.

Ok, det forklare jo det jo. :^)

:-) så er svar = point herfra.

Der er vist også andre end mig som kan tillade sig at smide svar på denne her. :^)

Jeps vi venter...

Svar.

Lægger også lige et svar :^)

Ingen points til mig, tak.

Points :^)