Beräkning med asp

6 svar · 526 visningar · startad av Trumpf 20 dec. 2006

TrumpfMedlem sedan feb. 2004213 inlägg

Frågan20 dec. 2006 07:45#1

Hej,
Jag har ett jätte projekt och det är att beräkna rating tal i schack.
Titta på följande länk:
http://www.stockholmschack.nu/rating_kalkyl.asp

Man har exempel ett fast ratingtal på 2000 och min motståndare har 1500.
Skillnad 500 poäng. Vinner den bättre får man +1 Vinner den sämre så förlorar man -31 Och remi får man -15.

Är det någon som kan hjälpa mig hur formeln kan se ut om man fyller i fälten som jag har tagit fram.

Kan detta vara en morot åt er också tro?!

yohpopsMedlem sedan feb. 20011 198 inlägg

20 dec. 2006 09:15#2

Jag hade lagt in alla data i en databas.
Då blir det inte så mycket asp-kod.

TrumpfMedlem sedan feb. 2004213 inlägg

20 dec. 2006 09:34#3

Ok, Men hur gör du sen då?
Jag lägger upp i en accessbas i kolomner. Det är ju inge problem.
Även kopplingen kan jag fixa. Men beräkningen har jag lite svårt att förstå hur den ska se ut.
Det blir så mycket if eller?!

yohpopsMedlem sedan feb. 20011 198 inlägg

20 dec. 2006 09:49#4

Hur lägger du in datat i databasen?
Jag skulle gjort såhär.

Diff start	Diff end	Value	Type	MaxRating
0	10	16	WH	2200
11	33	15	WH	2200
34	56	14	WH	2200
57	79	13	WH	2200
80	102	12	WH	2200
103	126	11	WH	2200
127	151	10	WH	2200
152	178	9	WH	2200
179	207	8	WH	2200
208	236	7	WH	2200
237	270	6	WH	2200
271	308	5	WH	2200
309	352	4	WH	2200
353	409	3	WH	2200
410	499	2	WH	2200
500		1	WH	2200
0	10	16	WL	2200
11	33	17	WL	2200
34	56	18	WL	2200
57	79	19	WL	2200
80	102	20	WL	2200
103	126	21	WL	2200
127	151	22	WL	2200
152	178	23	WL	2200
179	207	24	WL	2200
208	236	25	WL	2200
237	270	26	WL	2200
271	308	27	WL	2200
309	352	28	WL	2200
353	409	29	WL	2200
410	499	30	WL	2200
500		31	WL	2200

WH är Vinst för bättre.
WL är Vinst för sämre.
osv.
Och sen ställa frågan "select value,maxrating from table where ((DiffStart<=" & mydiff &" and DiffEnd>="& mydiff &") or DiffEnd is null) and type='"& mytype &"'"
Om sedan personens rating är högre än maxrating så delas value med 2.

shrating.xls (21 kB)

TrumpfMedlem sedan feb. 2004213 inlägg

20 dec. 2006 20:41#5

Va!? Har du gjort lite åt mig. Jag är hedrad! Ska kolla direkt. Kul..............Återkommer som sagt....

TrumpfMedlem sedan feb. 2004213 inlägg

21 dec. 2006 20:57#6

Jag har access inte xls.

TrumpfMedlem sedan feb. 2004213 inlägg

21 dec. 2006 21:12#7

Jag har gjort lite men hur går jag vidare?
Har lagt upp allt i en accessbas.

<H3>TEST BERÄKNING</H3>
<br>

<%
Dim con1
Set con444 = Server.CreateObject("ADODB.Connection")

con1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/db/rating.mdb")
con1.open

strSQL = "SELECT value,maxrating from rating where ((DiffStart<=" & mydiff &" and DiffEnd>="& mydiff &") or DiffEnd is null) and type='"& mytype &"'"
Set rs = con1.Execute(strSQL)

<%Do While not rs.eof%>

rs.movenext
Loop
rs.Close
con1.Close
Set con1 = Nothing
%>