Funkar det?
Lotta spelprogram
21 svar · 782 visningar · startad av andreas_lindh · sida 2 av 2
Trådstarten, 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 hela trådstarten →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?