TDU y arrays

[pablOOO5]

Chicos buenos dias.

Necesito que alguien me oriente, paso a comentar. Estoy realizando un TP para la facu en VB6 en el cual debo hacer un aplicación para un biblioteca donde el usuario pueda ingresar una serie de datos (TDU) como por ejemplo editorial, nombre del libro y demas. No tengo muy bien en claro como rrecorrer esos datos definidos por el usaurio mediante un arreglo.


Logicamente lo codifico asi:

Código:

'Primero defino el TDU 

Public Type TDUBiblioteca 
ID As Integer 
titulo As String 
autores As String 
editorial As String 
ano As Integer 
paginas As Integer 
comentarios As String 
End Type 

'creo el arreglo dinamico 
Dim libro as TDUBiblioteca 
'Creo una variable del tipo TDU 
DIM biblioteca as TDUBiblioteca 

'Desde un formulario tomo los datos y los inserto 
TituloTxt.Text = biblioteca.titulo 
AutoresTxt.Text = biblioteca.autores 
EditorialTxt.Text = biblioteca.editorial 
AnoTxt.Text = biblioteca.ano 
PaginasTxt.Text = biblioteca.paginas 
ComentariosTxt.Text = biblioteca.comentarios 


'y ahora trato de rrecorrerlo y mostrarlo 
for i = 0 to 6 
biblioteca(i) = libros(i) 
Next i 

msgbox (biblioteca(i))

Sinceramente me gustaria que alguien me lo explique y poder deducirlo yo mismo.

Desde ante mano GRACIAS !!!

[carbon]

Hola. Me parece que tienes un problema con lo que es el tema de los arrays o vectores. En tu código nunca creas uno, simplemente biblioteca es lo mismo que libro (y no debería serlo). Esto debe ser lo que quieres:

Código vb:

'creo el arreglo dinamico 
Dim libro as TDUBiblioteca 
'Creo una variable del tipo TDU 
Dim biblioteca(7) as TDUBiblioteca
 

Pues en ese caso biblioteca ahora sí es un arreglo que contiene 7 espacios (del 0 al 6) para datos del tipo TDUBiblioteca (que serían libros).

Con respecto a las cajas de texto estás haciendo la asignación al revés. Si quieres asignarle el valor de TituloTxt a un libro de la biblioteca deberías hacer:

Código vb:

biblioteca(0).titulo = TituloTxt.Text
 

Así que quedaría mas o menos así:

Código vb:

'Primero defino el TDU
 
Private Type TDUBiblioteca
ID As Integer
titulo As String
autores As String
editorial As String
ano As Integer
paginas As Integer
comentarios As String
End Type
 
Private Sub Form_Load()
 
'creo el arreglo dinamico
Dim libro As TDUBiblioteca
'Creo una variable del tipo TDU
Dim biblioteca(7) As TDUBiblioteca
 
'y ahora trato de rrecorrerlo y mostrarlo
For i = 0 To 6
    biblioteca(i).ID = 1000
    biblioteca(i).titulo = "El Alquimista"
    ' Etc.
Next i
 
MsgBox (biblioteca(0).titulo)
 
End Sub
 

Aunque aún así a ese código le falta trabajo (es que estoy algo apurado).

Espero que te sirva, mira el codigo y avisame a ver cuales son tus dudas!

[pablOOO5]

Muchas gracias Carbon ahora trato de codificarlo, mas tarde subo como queda.

[pablOOO5]

Carbon no lo he podido codificar. El proble lo tengo cuando tengo que pasar los datos del TDU/UDT al arrays dinamico; Es decir, no se como rrecorrer la variable de accesos (biblioteca) asignandolo al arrays dinamico libros que es el que va guardar el registro.

Te muestro como queda:

Este codigo esta asociado al boton guardar del formulario.

Código vb:

Private Sub GuardarCmd_Click()
 
Dim i As Integer
 
 
'Array dinamico
Dim libros() As TDUBiblioteca
'Dim biblioteca(6)
Dim biblioteca() As TDUBiblioteca
'Asigno los datos cargados
    biblioteca(0).titulo = TituloTxt.Text
    biblioteca(1).autores = AutoresTxt.Text
    biblioteca(2).editorial = EditorialTxt.Text
    biblioteca(3).anio = AnioTxt.Text
    biblioteca(4).paginas = PaginasTxt.Text
    biblioteca(5).comentarios = ComentariosTxt.Text
            
For i = 0 To 5
    libros(i) = biblioteca(i)
Next i
 
 
End Sub
 

Este es un modulo estandard:

Código vb:

Option Explicit
'Creo TDU
Public Type TDUBiblioteca
    titulo As String * 50
    autores As String * 50
    editorial As String * 50
    anio As Long
    paginas As Long
    comentarios As String * 250
End Type
 

Aqui declaro el TDU

El error, y es una duda que tengo es sobre la variable de acceso biblioteca cuando la recorro con el FOR. No se si deberia declarar como un array para rrecorrerla o si deberia recorrerla por posiciones cosa que se me acaban las ideas. He tratado de varias formas y tambien llegue a la conclusion de que tal vez deberia declarar una variable para los tipos de datos que paso de la variable de acceso al array dinamico libros, o no.

Gracias de ante mano !

[carbon]

Hola, el problema es que no estás especificando la cantidad de "espacios" que tiene el array. Debería ser así:

Código vb:

Private Sub GuardarCmd_Click()
 
Dim i As Integer
 
 
'Array dinamico
Dim libros(6) As TDUBiblioteca
'Dim biblioteca(6)
Dim biblioteca(6) As TDUBiblioteca
'Asigno los datos cargados
    biblioteca(0).titulo = TituloTxt.Text
    biblioteca(1).autores = AutoresTxt.Text
    biblioteca(2).editorial = EditorialTxt.Text
    biblioteca(3).anio = AnioTxt.Text
    biblioteca(4).paginas = PaginasTxt.Text
    biblioteca(5).comentarios = ComentariosTxt.Text
            
For i = 0 To 5
    libros(i) = biblioteca(i)
Next i
 
 
End Sub
 

Además no entiendo por qué haces esto:

Código vb:

biblioteca(0).titulo = TituloTxt.Text
    biblioteca(1).autores = AutoresTxt.Text
    biblioteca(2).editorial = EditorialTxt.Text
    biblioteca(3).anio = AnioTxt.Text
    biblioteca(4).paginas = PaginasTxt.Text
    biblioteca(5).comentarios = ComentariosTxt.Text
 

Allí le estás poniendo un título al libro 0 (pero te estas olvidando de todos los demás datos). al igual que con el libro 1, sólo le estás añadiendo los autores. Lo mismo el 2, solo le añades la editorial, y así sucesivamente. Por ejemplo, si quieres añadirle los datos completos al libro que se encuentra en la posición 0 de la biblioteca deberías hacer:

Código vb:

biblioteca(0).titulo = TituloTxt.Text
    biblioteca(0).autores = AutoresTxt.Text
    biblioteca(0).editorial = EditorialTxt.Text
    biblioteca(0).anio = AnioTxt.Text
    biblioteca(0).paginas = PaginasTxt.Text
    biblioteca(0).comentarios = ComentariosTxt.Text
 

Te recomiendo que leas un poco más sobre lo que es arrays en general.

[pablOOO5]

Tenes razón. Estuve leyendo y estaba haciendo cualquier cosa.
Ahora tengo que codificar casi todo de nuevo.

Es raro, no encontré un tema similar en el foro parecido a este. O es muy fácil y yo no lo entiendo, o que sera?

Cualquier otra duda puedo preguntar de nuevo ?


Gracias!

[carbon]

Pues claro que puedes preguntar, para eso estamos De paso reactivo un poco mi VB6!

Por cierto, por qué usas Visual Basic 6? Sabes que es un lenguaje super obsoleto no?

[pablOOO5]

Si. Pero nos están enseñando con esa versión. Incluso tuve problemas para instalarlo ya que la aplicación es de 32 bits.

Mira, no si esta bien lógicamente planteado:

Código vb:

Public Sub GuardarCmd_Click()
 
'Variables contadores
Dim i As Integer, min As Integer, max As Integer
'Arrays dinamico
Dim libros() As TDUBiblioteca
min = 0
max = 100
 
'Variable de acceso TDU
Dim biblioteca() As TDUBiblioteca
 
'Control de menos de 100 libros
If min <= 100 Then
    biblioteca(min).titulo = TituloTxt.Text
    biblioteca(min).autores = AutoresTxt.Text
    biblioteca(min).editorial = EditorialTxt.Text
    biblioteca(min).anio = AnioTxt.Text
    biblioteca(min).paginas = PaginasTxt.Text
    biblioteca(min).comentarios = ComentariosTxt.Text
Else
    MsgBox ("Cantidad maxima de libros alcanzados")
    End
End If
'Fin control
 
'Redimensiono la cantida de libros en el arrays
ReDim libros(min) As TDUBiblioteca
 
'Trato de guardar los libros en el arrays
For i = 0 To 5
    libros(min) = biblioteca(min)
Next i
 
'Sumo la cantidad de libros cargados hasta el momento
min = min + 1
End Sub
 

Me arroja un error en los sub indices, que esta fuera de intervalo. Seguramente esta mal asociado.

Sera que tendré que declara otra variable local para seguir el contador de libros y otro para los sub indices ?

[carbon]

En las líneas 6 y 11 no estás especificando cuantos elementos quieres que tenga el array. Tampoco lo haces en la línea 28 al hacer "ReDim" (redimensionar). Por ejemplo, si has declarado un array así:

Código vb:

Dim biblioteca(6) As TDUBiblioteca
 

Allí tienes espacio para 6 elementos (del 0 al 5). Luego si necesitas más, por ejemplo, 4 espacios mas haces:

Código vb:

ReDim bilbioteca(10) As TDUBiblioteca
 

Y ahora también tendras espacio del 6 al 9.

Se entiende?