|
VB6 For petlja
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
-->
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
|