Funkar det?
Lotta spelprogram
21 svar · 730 visningar · startad av andreas_lindh · sida 2 av 2
Frågan, av andreas_lindh
Försöker göra en lottningsfunktion. Har den här koden. sub lotta(obj as object, e as eventargs) dim lag(4) lag(0) = "Tibro IK" lag(1) ="Skövde IK" lag(2) = "Mariestad Bois" lag(3) ="Skara IK" dim i as integer Dim r As New Random() dim match(15,2) dim match1(15) for i = 0 to 11 match(i,1)=lag(r.Next(0, 4)) match(i,2)=lag(r.Next(0, 4)) match1(i) = match
Läs frågan i sin helhet →ja det fungerar :)
Ny fråga. Hur ska jag göra för att kontrollera att samma lag inte kan spela två matcher i rad och att samma lag inte finns med o någon av de 3 tidigare matcherna?