crear variables dinamicamente

[Pegano]

Wenas a todos, nesecito crear 30 arrays de bytes, para empezar declararlo asi

Dim Arreglo1(25) as byte, Arreglo2(25) as byte, Arreglo3(25) as byte, etc...

mi pregunta es si existe alguna manera de crearlos dinamicamente y no tener que estar escribiendo ya que lo utilizare en varias ocaciones, probe con for next pero no tuve resultados, alguien que me de una ayuda gracias de antemano

[Pegano]

alguna forma o funcion para esta tarea?

[Vanchi]

Iniciado por Pegano

Wenas a todos, nesecito crear 30 arrays de bytes, para empezar declararlo asi

Dim Arreglo1(25) as byte, Arreglo2(25) as byte, Arreglo3(25) as byte, etc...

mi pregunta es si existe alguna manera de crearlos dinamicamente y no tener que estar escribiendo ya que lo utilizare en varias ocaciones, probe con for next pero no tuve resultados, alguien que me de una ayuda gracias de antemano

Hola Pegano,

¿Es posible usar un arreglo bidimensional?
Dim Arreglo(25,25) As Byte

Si utilizás el control "MSScriptControl" allí podrás crear arreglos y funciones "dinamicamente" (en tiempo de ejecución).

Ahora... si es solo para "ahorrar escritura" lo que te aconsejo es que lo trabajes como cadena (con bucle for, tal cual habías dicho) y luego lo copias y pegas en el código...

Ej:

Código vb:

Dim Cad As String
Dim i As Integer
For i = 1 To 25
   Cad = Cad & "Dim Arreglo" & i & "(25) As Byte" & vbNewLine
Next
Clipboard.Clear
Clipboard.SetText (Cad)
 

(Esto te copiaría directamente todo en el portapapeles, por lo que solo basta pegarlo en el proyecto.

Saludos

[Pegano]

Iniciado por Vanchi

Hola Pegano,

¿Es posible usar un arreglo bidimensional?
Dim Arreglo(25,25) As Byte

Si utilizás el control "MSScriptControl" allí podrás crear arreglos y funciones "dinamicamente" (en tiempo de ejecución).

Ahora... si es solo para "ahorrar escritura" lo que te aconsejo es que lo trabajes como cadena (con bucle for, tal cual habías dicho) y luego lo copias y pegas en el código...

Ej:

Código vb:

Dim Cad As String
Dim i As Integer
For i = 1 To 25
   Cad = Cad & "Dim Arreglo" & i & "(25) As Byte" & vbNewLine
Next
Clipboard.Clear
Clipboard.SetText (Cad)
 

(Esto te copiaría directamente todo en el portapapeles, por lo que solo basta pegarlo en el proyecto.

Saludos

gracias vanchi, ahora hare varias operaciones con los arreglos convirtiendolos a string y asignarles a un arreglo de textbox entre otras cosas

Text1(1).Text = Arreglo1(25)
Text1(2).Text = Arreglo2(25)
Text1(3).Text = Arreglo3(25)
.......
Text1(30).Text = Arreglo30(25)

alguna maneras de recorrerlos mediante for next , ya que el textbox se puede hacer por su index pero en el caso del arreglo como seria, o definitivamente tiene que ser escrito,gracias de antemano

[Vanchi]

Iniciado por Pegano

Text1(1).Text = Arreglo1(25)
Text1(2).Text = Arreglo2(25)
Text1(3).Text = Arreglo3(25)
.......
Text1(30).Text = Arreglo30(25)

Hola Pegano,

No respondiste si puede usarse una matriz bidimensional... Para lo que mostrás hasta acá te vendría de lujos para recorrerlo con un bucle for.

Código vb:

Text1(i).Text = Arreglo(i, 25)
 

Saludos

[Pegano]

Iniciado por Vanchi

Hola Pegano,

No respondiste si puede usarse una matriz bidimensional... Para lo que mostrás hasta acá te vendría de lujos para recorrerlo con un bucle for.

Código vb:

Text1(i).Text = Arreglo(i, 25)
 

Saludos

si Vanchi disculpa se me olvido pero la verdad no puedo usar una bidimencional por que la funcion no los acepta por lo que tengo que tenerlo por separado, como haria para recorrer variables :

Código vb:

Text1(1).Text = Arreglo1(25)
Text1(2).Text = Arreglo2(25)
Text1(3).Text = Arreglo3(25)
.......
Text1(30).Text = Arreglo30(25)
 

Código vb:

Text1(i).Text = Arregloi(25)
 

de alguna manera rrecorrer todos los arreglos de 1 al 30

[Vanchi]

Iniciado por Pegano

si Vanchi disculpa se me olvido pero la verdad no puedo usar una bidimencional por que la funcion no los acepta por lo que tengo que tenerlo por separado, como haria para recorrer variables :

Código vb:

Text1(1).Text = Arreglo1(25)
Text1(2).Text = Arreglo2(25)
Text1(3).Text = Arreglo3(25)
.......
Text1(30).Text = Arreglo30(25)
 

Código vb:

Text1(i).Text = Arregloi(25)
 

de alguna manera rrecorrer todos los arreglos de 1 al 30

Hola Pegano,

Vamos por partes...

1º La respuesta global: No, no se me ocurre como hacer esto

Código vb:

Text1(i).Text = Arregloi(25)
 

Ahora vamos a la segunda parte.

no puedo usar una bidimencional por que la funcion no los acepta

Tal vez acá SI pueda ayudarte.

¿El motivo por el cual no se puede usar las matrices bidimensionales es porque no las podés pasar a las funciones?

Si es por esto, la respuesta es simple... Solo declará dinámica el parámetro de la función y listo!

Mirá este ejemplo simple:

Código vb:

Private Sub Command1_Click()
Dim V(25, 25) As Byte
MsgBox (Algo(V))
End Sub
 
Private Function Algo(Matriz() As Byte) As Integer
Algo = UBound(Matriz, 1) + UBound(Matriz, 2)
End Function
 

En ese ejemplo pasé una matriz estática bidimensional como parámetro de una matriz dinámica.

Saludos.

[Pegano]

Iniciado por Vanchi

Hola Pegano,

Vamos por partes...

1º La respuesta global: No, no se me ocurre como hacer esto

Código vb:

Text1(i).Text = Arregloi(25)
 

Ahora vamos a la segunda parte.



Tal vez acá SI pueda ayudarte.

¿El motivo por el cual no se puede usar las matrices bidimensionales es porque no las podés pasar a las funciones?

Si es por esto, la respuesta es simple... Solo declará dinámica el parámetro de la función y listo!

Mirá este ejemplo simple:

Código vb:

Private Sub Command1_Click()
Dim V(25, 25) As Byte
MsgBox (Algo(V))
End Sub
 
Private Function Algo(Matriz() As Byte) As Integer
Algo = UBound(Matriz, 1) + UBound(Matriz, 2)
End Function
 

En ese ejemplo pasé una matriz estática bidimensional como parámetro de una matriz dinámica.

Saludos.

Gracias nuevamente amigo Vanchi