Keskustelu: Ohjelmointikysymykset: VB6: Hedelmäpeli

Joo, eli tarkoituksena olisi tehdä hedelmäpeli pelienohjelmointityöpajaa varten, ja tälläsen oon saanu aikaseks: http://img201.imageshack.us/my.php?image­=fruitslothu3.png

Eli numerot pitäisi korvata hedelmien kuvilla jotka minulla jo on, ei mitään hajua miten saan sen arpomaan ne randomisti. Osaako kukaan auttaa? :)

Yksi tapa on lisätä ohjelmaan joukko PictureBox-kontrolleja:

- Rulla(0), Rulla(1) ja Rulla(2) ovat hedelmäpelin rullat (tässä 3 kpl)
- Kuva(0), Kuva(1), ..., Kuva(9) ovat hedelmien kuvat (tässä 10 kpl)

Pystyt nimeämään kontrollit yllä olevalla tavalla antamalla niille saman Name-arvon mutta eri Index-arvon. Nimeämistavan hyötynä on, että kuviin voi viitata näppärästi koodissa. Hedelmien kuvat eivät saa näkyä käyttäjälle, joten siirrä ne ikkunan ulkopuolelle tai muuta Visible-arvoksi False.

Tämän jälkeen voit arpoa näytettävät hedelmät suunnilleen seuraavasti:

Dim i As Integer
For i = 0 To 2
    Rulla(i).Picture = Kuva(Int(Rnd * 10)).Picture
Next

Lisäksi voisi olla järkevää tallentaa kuvien numerot taulukkoon myöhempää käyttöä varten...

Dim i As Integer
Dim Arpa(0 To 2) As Integer
For i = 0 To 2
    Arpa(i) = Int(Rnd * 10)
    Rulla(i).Picture = Kuva(Arpa(i)).Picture
Next

...joka taas voisi olla seuraava:

If Arpa(0) = Arpa(1) And Arpa(1) = Arpa(2) Then
    MsgBox "Voitto!"
End If