PC Ekspert Forum - VB6 For petlja

Bok svima, radim poker u vb6, imam 5 karata označenih kao broj(), dok
ono *54 predstavlja koliko ih zapravo je (svaka karta ima svoj broj),
e sad, ja sam to napravio bez ove petlje, ali mi je onda predugački cijeli
kod, pa sam probao ovako s ovom petljom ali problem je u tom šta mi
kad pokrenem on u svih 5 pozicija za karte stavi istu kartu, zato jer je
valjda For i = 1 To 5, stavljo sam taj for za svaki posebno al je onda
predugačak kod ! pa ako možda ovako neš može netko izvest slično kako
sam ja započeo, znači da bude u ovih 5 pozicija svaka karta različita.

PHP kod:


		
			
   Dim broj(1 To 5) As Integer
   Randomize
       broj(1) = Int(Rnd * 54) + 1
       broj(2) = Int(Rnd * 54) + 1
       broj(3) = Int(Rnd * 54) + 1
       broj(4) = Int(Rnd * 54) + 1
       broj(5) = Int(Rnd * 54) + 1
       
       For i = 1 To 5
         For u = 1 To 5
          karta(i).Picture = LoadPicture(broj(u) & ".gif")
         Next u
       Next i