[VB6] Probleem met array en loop

[Verwijderd]

Aloha,

Ik ben bezig voor school met een kaartspel dat gemaakt moet worden in VB6. De code waar het om gaat is dit:

code:

Private Sub Command1_Click()

   Dim cnt As Long
   Dim myArray(1 To 32) As Long
   Dim intpic As Integer
   


   For cnt = 1 To 32
      myArray(cnt) = cnt

   Next
   
   RandomizeArray myArray
   
 
   For cnt = 33 To 64
         cnt2 = cnt + 32
         Picture(cnt2).Picture = Picture(myArray(cnt)).Picture
        
Next

End Sub

Bovenstaande werkt dus niet.

Als ik de code

code:

 Picture33.picture = Picture3.picture

gebruik dan wordt het plaatje uit picturebox 3 gekopieerd naar picturebox 33.
Dus het principe klopt alleen de code niet.

[DanielG]

code:

For cnt = 33 To 64
cnt2 = cnt + 32
Picture(cnt2).Picture = Picture(myArray(cnt)).Picture

De grootte van je myArray is 1 t/m 32, de grootte van cnt in deze loop is 33 t/m 64, deze getallen zijn dus groter dan je array is en kunnen dus niet worden opgehaald.

Mogelijke oplossing (alhoewel ik ook twijfel over cnt2, want die is 65 t/m 96):

Picture(myArray(cnt-32)).Picture

[ Voor 1% gewijzigd door DanielG op 14-10-2005 13:14 . Reden: typo bij variabele ]

[Schonhose]

* Schonhose vraagt zich ook af of er nog iets is met Option Base 1, anders beginnen je array's bij nul.

En wat DanielG terecht opmerkt: je array loopt van 1 - 32. Vervolgens probeer je elementen 33 - 64 te benaderen uit je array. Dat gaat niet werken.

Sowieso hinkt je code op twee gedachtes:

Visual Basic:

For cnt = 33 To 64
         cnt2 = cnt + 32
         Picture(cnt2).Picture = Picture(myArray(cnt)).Picture
Next

cnt2 krijgt nu de waarden 65 - 96 en dat is volgens mij ook niet wat je wilt. Probeer het eens zo:

Visual Basic:

For cnt = 1 To 32
         cnt2 = cnt + 32
         Picture(cnt2).Picture = Picture(myArray(cnt)).Picture
Next

Nu heeft cnt2 de volgende waarden 33 - 64

Vergeet je niet even naar de Option Base 1 te kijken?

[DanielG]

Ik zie dat er op [VB6] Probleem met array en loop meer antwoorden zijn (dus 2 dezelfde topics ), deze topic lijkt me dan overbodig.

[sanfranjake]

Dit is eerder een programmeervraag, en aangezien je in Programming & Webscripting al exact het zelfde topic hebt geopend ga ik deze sluiten. Een enkel topic over hetzelfde probleem is meer dan zat