[vb] Control array afbakenen

[Redshark]

okay peeps,

ik zit hier met het volgende probleempje:

Ik heb een opdracht voor school om een spelletje te maken in VB 6.0. Heb gekozen voor Mastermind en die werkt nu bijna perfect, op 1 ding na: De eindscore is niet geheel haalbaar .
Mijn speelveld bestaat uit 40 shapes ( 10 rijen van 4 shapes breed, met index van 0 tot 39. Bij de controle van de laatste rij gaat er iets fout: Ik krijg een error dat control array 40 niet bestaat. Klopt ook want die is er nou eenmaal niet.

de vraag: Hoe vang ik dit af? dit is de code waar de debugger de fout plaatst

code:

Private Sub pctKleurKies_Click(Index As Integer)

  With shpgok(Aantalkliks)
    If shpgok(Aantalkliks).FillStyle = vbFSTransparent Then
      shpgok(Aantalkliks).FillColor = pctKleurkies(Index).BackColor
      shpgok(Aantalkliks).FillStyle = vbFSSolid
    Aantalkliks = Aantalkliks + 1
    End If
    If Aantalkliks + 1 Mod 4 = 0 Then
    ScoreBepalen
    End If
  End With
End Sub

Hier is aantalkliks het aantal keer dat er geklikt is op een bepaalde kleur, die loopt dus tot 39 maximaal (0 - 39)

Is er iemand die hier iets van weet? Zo ja PLEAZE HELP!!

In een loop met For Aantalkliks o to 39 ...... Next aantalkliks doet ie niks, while aantalkliks 0 to 39 ...... end while ook niet (maar volgens mij is dat niet echt vb )

[edit] Het zal vast iets heel makkelijks zijn, maar ik zit er nu al zo lang op te turen dat ik het simpelweg niet meer zie! Ook niet in de search oid, googlen gaat errug langzaam[\edit]

[robjanssen]

code:

Private Sub pctKleurKies_Click(Index As Integer)
  If Aantalkliks < 40 Then
    With shpgok(Aantalkliks)
    If shpgok(Aantalkliks).FillStyle = vbFSTransparent Then
        shpgok(Aantalkliks).FillColor = pctKleurkies(Index).BackColor
        shpgok(Aantalkliks).FillStyle = vbFSSolid
      Aantalkliks = Aantalkliks + 1
    End If
    If Aantalkliks + 1 Mod 4 = 0 Then
      ScoreBepalen
    End If
    End With
  End If
End Sub

[Redshark]

even geprobeerd:

Ik krijg idd geen error meer!

Nieuw probleem: De kleuren worden niet gecontroleerd gecontroleerd (niet een keer! )en dus ook het spel niet beeindigd.:(

Iemand??

[whoami]

Sorry hoor, maar wij zijn geen helpdesk en we gaan dus ook niet al uw programmeerproblemen oplossen.
Debug het geval eens en dan zul je er al een betere kijk op hebben. Je code hier posten met het gedacht van 'iemand zal het wel oplossen' is niet echt de P&W gedachte.
Je zult zelf ook wat moeite moeten doen.