VB6 For petlja

malixx · 14.06.2009., 22:05


   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

malixx · 16.06.2009., 18:55

Riješeno !

14.06.2009., 22:05	#1
malixx Premium Datum registracije: Feb 2009 Lokacija: Zagreb Postovi: 76	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`

16.06.2009., 18:55	#2
malixx Premium Datum registracije: Feb 2009 Lokacija: Zagreb Postovi: 76	Riješeno !

Oglasni prostor
PC Ekspert Forum Oglas