Notifikationer

Markér alle som læst Log ud

superraider Nybegynder

06. september 2004 - 14:14 Der er 8 kommentarer og
1 løsning

find system og lav lykke

der er 100 point til den der kan sætte det her op i et system, med nogle lykker.
og yderlig 50 point, hvis det kan lade sig gøre at ændre andtallet af hold, og det stadig virker.

alle skal spille mod hianden en gang, og max en kamp pr uge.
antal hold er lig med lige tal, så at antal uger altid er lig med antalhold - 1

Kode http://www.s-web.dk/kampplan.asp
-----------
<%
Hold = "hold1, hold2, hold3, hold4, hold5, hold6, hold7, hold8"
arrHold = split(Hold,",")
antalhold = Ubound(arrHold) - Lbound(arrHold)
startdato = "04-09-2004 15:00:00"
dato = startdato

response.write "Den " & dato & " skal " & arrHold(0) & " spille imod " & arrHold(7) & " "
response.write "Den " & dato & " skal " & arrHold(1) & " spille imod " & arrHold(6) & " "
response.write "Den " & dato & " skal " & arrHold(2) & " spille imod " & arrHold(5) & " "
response.write "Den " & dato & " skal " & arrHold(3) & " spille imod " & arrHold(4) & " "
dato = DateAdd("d",7,dato)
response.write " "

response.write "Den " & dato & " skal " & arrHold(0) & " spille imod " & arrHold(6) & " "
response.write "Den " & dato & " skal " & arrHold(1) & " spille imod " & arrHold(5) & " "
response.write "Den " & dato & " skal " & arrHold(2) & " spille imod " & arrHold(4) & " "
response.write "Den " & dato & " skal " & arrHold(3) & " spille imod " & arrHold(7) & " "
dato = DateAdd("d",7,dato)
response.write " "

response.write "Den " & dato & " skal " & arrHold(0) & " spille imod " & arrHold(5) & " "
response.write "Den " & dato & " skal " & arrHold(1) & " spille imod " & arrHold(4) & " "
response.write "Den " & dato & " skal " & arrHold(2) & " spille imod " & arrHold(3) & " "
response.write "Den " & dato & " skal " & arrHold(6) & " spille imod " & arrHold(7) & " "
dato = DateAdd("d",7,dato)
response.write " "

response.write "Den " & dato & " skal " & arrHold(0) & " spille imod " & arrHold(4) & " "
response.write "Den " & dato & " skal " & arrHold(1) & " spille imod " & arrHold(3) & " "
response.write "Den " & dato & " skal " & arrHold(2) & " spille imod " & arrHold(6) & " "
response.write "Den " & dato & " skal " & arrHold(5) & " spille imod " & arrHold(7) & " "
dato = DateAdd("d",7,dato)
response.write " "

response.write "Den " & dato & " skal " & arrHold(0) & " spille imod " & arrHold(3) & " "
response.write "Den " & dato & " skal " & arrHold(1) & " spille imod " & arrHold(2) & " "
response.write "Den " & dato & " skal " & arrHold(4) & " spille imod " & arrHold(7) & " "
response.write "Den " & dato & " skal " & arrHold(5) & " spille imod " & arrHold(6) & " "
dato = DateAdd("d",7,dato)
response.write " "

response.write "Den " & dato & " skal " & arrHold(0) & " spille imod " & arrHold(2) & " "
response.write "Den " & dato & " skal " & arrHold(1) & " spille imod " & arrHold(7) & " "
response.write "Den " & dato & " skal " & arrHold(3) & " spille imod " & arrHold(5) & " "
response.write "Den " & dato & " skal " & arrHold(4) & " spille imod " & arrHold(6) & " "
dato = DateAdd("d",7,dato)
response.write " "

response.write "Den " & dato & " skal " & arrHold(0) & " spille imod " & arrHold(1) & " "
response.write "Den " & dato & " skal " & arrHold(2) & " spille imod " & arrHold(7) & " "
response.write "Den " & dato & " skal " & arrHold(3) & " spille imod " & arrHold(6) & " "
response.write "Den " & dato & " skal " & arrHold(4) & " spille imod " & arrHold(5) & " "
dato = DateAdd("d",7,dato)
response.write " "

%>

Synes godt om

phuc69 Juniormester

06. september 2004 - 19:37 #1

Så skulle det virke...
<%
Hold = "hold1,hold2,hold3,hold4,hold5,hold6,hold7,hold8"
startdato = "04-09-2004 15:00:00"
dato = startdato

for pt=1 to 7
arrHold = split(Hold,",")

for hold1=0 to 3
hold2=7-hold1
response.write "Den " & dato & " skal " & arrHold(hold1) & " spille imod " & arrHold(hold2) & " "

Next
gem=arrHold(1) & "," & arrHold(2) & "," & arrHold(3) & "," & arrHold(4) & "," & arrHold(5) & "," & arrHold(6) & "," & arrHold(7) & "," & arrHold(0)
Hold=gem
Response.write " "
dato = DateAdd("d",7,dato)
next
%>

Synes godt om

phuc69 Juniormester

06. september 2004 - 19:43 #2

PT er lige med antal runder.
Hvis du vil have flere hold skal du i din hold Variabel tilføje 2 nye hold navne.
I for hold1=0 to 3 ændres til 0 to 4
Og når du laver gem variablen skal du forsætte rækkeen altså sådan at tilføjer arrhold(7) og (8) husk bare at arrhold(0) skal være til sidst Dette kan også laves i en løkke

Synes godt om

tofte Juniormester

06. september 2004 - 19:57 #3

Det har jeg også tænkt på, men efter 4 gennemløb, starter den forfra. Så den 5 blok er identisk med den 1 og den 6. med den 2. På den måde får du ikke alle kampene.

Synes godt om

tofte Juniormester

07. september 2004 - 17:27 #4

sub dispFight()
Response.Write " "
for a = 0 to count/2
' Her udskrives outputtet
Response.Write "Den "&dato&" skal "&arrHold(0+2*a)&" spille mod "&arrHold(1+2*a)&" "
next
end sub

function rotate(arr)
' den meget sindrige algoritme som får det hele til at virke
str=cstr(arr(0))&","
for cnt = 1 to count
if (cnt mod 2) = 1 then cn=cnt+2
if (cnt mod 2) = 0 then cn=cnt-2
if cn = 0 then cn = 1
if cnt = count then cn = count-1
str=str&arr(cn)&","
next
rot = split(Left(str,len(str)-1),",")
rotate = rot
end function
' Her tastes navnene på alle de hold som deltager. Denne streng kan udvides til 10,12,...., bare det er et lige tal
Hold = "hold1, hold2, hold3, hold4, hold5, hold6, hold7, hold8"
arrHold = split(Hold,",")
dato = "04-09-2004 15:00:00"
count = Ubound(arrHold)
for b = 1 to count
dispFight()
arrHold=rotate(arrHold)
dato = DateAdd("d",7,dato)
next

Så skulle den være hjemme

Synes godt om

phuc69 Juniormester

08. september 2004 - 09:51 #5

Ja det ser rigtigt ud.

LABR

Synes godt om

tofte Juniormester

10. september 2004 - 12:17 #6

Har du fået det til at virker??

Synes godt om

tofte Juniormester

20. september 2004 - 15:23 #7

Har du glemt at du har oprettet spørgsmålet, eller er du ikke interesseret i løsningen? Jeg ønsker bare en kommentar! Det er ikke fordi jeg går meget op i points, men jeg har trods alt brugt tid på at hjælpe!!!! Og forventer derfor at du i det mindste lige giver lyd fra dig.

Synes godt om

phuc69 Juniormester

28. september 2004 - 15:40 #8

Nu må det snart være lukke tid!!!!!!!!!!!!!!!!!!

Synes godt om

superraider Nybegynder

23. oktober 2004 - 12:27 #9

jal lukke tid, men har ikke haft internet, sturer.net er ldit langsomme, så jeg har lige internet i dag.
får først den 10nov

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS