random värde

Varför får jag samma värde i arraylisten när jag kör denna kod.

dim arrRandomlevel as new Arraylist
dim intCounter as integer

for intCounter = 0 to 6 
   arrRandomlevel.add(random_level)
next intCounter

function random_level as integer
   dim objRandom_level as random
   objRandom_level = new random
        
   select case objRandom_level.next(100)
      case 0 to 35
         return 1
      case 36 to 55
         return 2
      case 56 to 75
         return 3
      case 76 to 90
         return 4
      case 91 to 100
         return 5
   end select
end function

testa att lägga in Randomize()

Var?

vet inte... lägg in den någonstans.

I vb var man tvungen att använda det för att starta slumpgeneratorn.

Funkar inte. Tror inte det används med random.

testa att lägga

dim objRandom_level as random
objRandom_level = new random

utanför din funktion så att du använder samma instans av random classen för varje gång du vill ha ett värde.

Tack, det funkade. :)