Multidimensional array

[Mushroom Realm]

i want to redclare a multidimensional array, but it tells me that the subscript is out of range. im using redim preserve, heres the code:

Public Map() As Byte
Public Sub LoadMap(MapPath As String)
Dim Line, Token As String
Dim HCounter, VCounter As Integer
Open App.Path & "\maps\" & MapPath & ".map" For Input As #1
Do Until EOF(1)
VCounter = VCounter + 1
Line Input #1, Line
Do While HCounter <= Len(Line)
HCounter = HCounter + 1
ReDim Preserve Map(HCounter, VCounter)
Token = Mid(Line, HCounter, 1)
If Token > 0 Then
Map(HCounter, VCounter) = 0
Else
Map(HCounter, VCounter) = 1
End If
Select Case Token
Case "0"
frmScreen.Picture = LoadPicture(App.Path & "\graphics\grass.gif")
Case "1"
frmScreen.Picture = LoadPicture(App.Path & "\graphics\water.gif")
End Select
BitBlt frmScreen.picGame.hDC, (HCounter - 1) * 40, (VCounter - 1) * 40, 40, 40, frmScreen.hDC, 0, 0, SRCCOPY
Loop
Loop
End Sub

The code is in a module. Does anyone know whats wrong?

[technitaes]

ReDim Preserve only allows you to change the size of the last subscript of an array. In your example you can only change the size of vCounter.

[Mushroom Realm]

what should i use insted then?

[PT Exorcist]

use collections

[Blinky Bill]

Use 2 arrays in a class.

[Mushroom Realm]

two arrays wont work, that would layout the map like this:

0
0
0
0

i need this:

0000000000000
0000000000000
0000000000000

how do collections work? what are collections?

[Mc Brain]

Originally posted by Mushroom Realm
two arrays wont work, that would layout the map like this:

0
0
0
0

i need this:

0000000000000
0000000000000
0000000000000

how do collections work? what are collections?

It won't if you know how to implement it.

[Blinky Bill]

2 arrays and 2 indexs can work the same way as a single multi dimensional array. Define one for x and another for y and bingo! Use a class to define functions to manipulate the arrays.

[Mushroom Realm]

what wont? when i typed the two array part i meant it to be diagonal, something must have changed it.

[Mc Brain]

Originally posted by Mushroom Realm
what wont? when i typed the two array part i meant it to be diagonal, something must have changed it.

diagonal? What do you mean?

[Mushroom Realm]

i should say maybe like this:

0000000000000000000
01
0 1
0 1
0 1
0
0
0
0

the zeros r the actual arrays, the 1's represent a visual image as if in x,y form

[Blinky Bill]

A diagonal array is very, very strange. What do you mean? And why do you want a diagonal array? How does that differ from a single dimensional array?

[Mc Brain]

I don't understand what you mean... but for example:

Dim Position(5, 5) As Integer

would be the same as:

Dim x(5) As Integer, y(5) As Integer

It's just a matter on how you code it later...

[Blinky Bill]

Okay, i get what you mean now. But how will 2 arrays not implement this?

[Mushroom Realm]

the first way gives you 5*5 variables, the second way (two arrays) only gives you 10

[Mc Brain]

Originally posted by Mushroom Realm
the first way gives you 5*5 variables, the second way (two arrays) only gives you 10

No!! It will give 25 as well

[Mc Brain]

x(0), y(0)
x(0), y(1)
x(0), y(2)
x(0), y(3)
x(0), y(4)

x(1), y(0)
x(1), y(1)
x(1), y(2)
x(1), y(3)
x(1), y(4)

x(2), y(0)
x(2), y(1)
x(2), y(2)
x(2), y(3)
x(2), y(4)

x(3), y(0)
x(3), y(1)
x(3), y(2)
x(3), y(3)
x(3), y(4)

x(4), y(0)
x(4), y(1)
x(4), y(2)
x(4), y(3)
x(4), y(4)

There you have the 25 combinations....

[Mushroom Realm]

but im only storing one byte, so u cant merge the x and the y, and two arrays would also require that example: the value for the x(2) be the same in every line (y), (x(2) used as example)

[Blinky Bill]

Wrong. If you code it right you get 25 with 2 arrays

1 2 3 4 5
1
2
3
4
5

[Mc Brain]

Originally posted by Mushroom Realm
so u cant merge the x and the y

What do you mean?

[Mushroom Realm]

u have x(0),y(0) x(0),y(1) im assuming u meant to merge the valuse of x(0),Y(0) or whatever so that u could have 25

[BuggyProgrammer]

Originally posted by Mc Brain
x(0), y(0)
x(0), y(1)
x(0), y(2)
x(0), y(3)
x(0), y(4)

x(1), y(0)
x(1), y(1)
x(1), y(2)
x(1), y(3)
x(1), y(4)

x(2), y(0)
x(2), y(1)
x(2), y(2)
x(2), y(3)
x(2), y(4)

x(3), y(0)
x(3), y(1)
x(3), y(2)
x(3), y(3)
x(3), y(4)

x(4), y(0)
x(4), y(1)
x(4), y(2)
x(4), y(3)
x(4), y(4)

There you have the 25 combinations....

but you can't store 25 info like that, you could only store 5, because it would overwrite the previous y values (look carefully and you will know what i mean)

[Mc Brain]

That was an example... there's no reason to do it that way, you only need to think.

[Mc Brain]

Option Explicit
 
Private Type MyType
    y(4) As Integer
End Type
Dim x(4) As MyType
 
 
Private Sub Form_Load()
    Dim i As Integer, j As Integer
    
    For i = 0 To 4
        For j = 0 To 4
            x(i).y(j) = i * 5 + j
        Next j
    Next i
    
    For i = 0 To 4
        For j = 0 To 4
            Debug.Print x(i).y(j)
        Next j
    Next i
 
 
End Sub

There you have.... 25 different numbers