Keskustelu: Ohjelmointikysymykset: VB6: Millä arpoa kuvia?

Millä koodilla pystyy arpomaan kuvia?

Aika paha sanoa näin tyhjältä pöydältä, sillä toteutustapoja on lukuisia. Yksi tapa on laittaa kuvat taulukkoon ja ottaa sieltä satunnaislukugeneraattorilla arvottu alkio. Miettimällä ja soveltamalla tällaiset ongelmat ratkotaan.

Sub main
  Randomize timer 'alustetaan randomoijja
  mikäs = (rnd * kuva.count) - 1 'heitellääs lukuja ilmaan

  for i = 0 to kuva.count - 1 'vedellään tätä kuvien määrän verran
    kuva(i).visible = false 'varmistetaan ettei vanhat kuvat näy, jotenka tehdään niistä shadowweij!1
  next i

  kuva(mikäs).visible = true 'kappas, otetaan esille kuva, jonka indeksinä toimii äskön arvottu luku.
End sub

Tosta taitaa olla melko helppo soveltaa.
Ja niinkuin Juice jo mainitsi, Toteutustapoja on kiljoonia erilaisia, Itse suosin kyllä kuvien pitämistä yhdessä isommassa kuvassa josta otetaan tietty pala annettuilla arvoilla.