Estoy aprendiendo Ooo Basic con el método de Mauricio Baeza. Me está gustando aunque creo que necesita corregir la redacción. Muestra un ejemplo de matriz multidimensión y propone un ejercicio de completar el macro de forma que muestre el directorio completo. Sólo he conseguido que vaya apareciendo una de las dos columnas. Agradecería una ayuda.
Option Explicit
Sub Matrices_Multidimension4
Dim mDirectorio( 0, 1 ) As String
Dim Nombre As String
Dim Telefono As String
Dim iContinuar As Integer
Dim co1 As Integer
Dim sTmp As String
Do
Nombre = Trim( InputBox( "Escribe un nombre", "Nombre" ) )
Telefono = Trim( InputBox( "Ahora su teléfono", "Teléfono" ) )
'Redimensionamos la matriz, pero OJO, solo la primer dimensión
Redim Preserve mDirectorio( co1, 1 )
'Guardamos los datos en el nuevo indice
mDirectorio( co1, 0 ) = Nombre
mDirectorio( co1, 1 ) = Telefono
'Vamos construyendo nuestro directorio
sTmp = sTmp & "El teléfono de " & mDirectorio( co1, 0 ) & " es " & mDirectorio( co1, 1 ) & Chr(13)
'Incrementamos nuestro contador de registros
co1 = co1 + 1
'Preguntamos si desea continuar
iContinuar = MsgBox( "¿Deseas capturar mas datos?", 4 + 32, "Continuar" )
Loop While iContinuar = 6
For co1 = Lbound( mDirectorio, 1) To Ubound( mDirectorio, 1 )
MsgBox mDirectorio( co1, 1 ), 64, "El directorio"
Next
End Sub
[RESUELTO]Mostrar directorio completo en una matriz multidim
Reglas del Foro
Los moderadores podrían mover los temas creados aquí a un foro más apropiado.
Si usted publicó aquí y no encuentra el tema, puede buscar sus mensajes haciendo clic en la opción «Buscar sus mensajes» que se encuentra justo debajo de la cabecera de la página, junto al panel de control de usuario y al acceso a sus mensajes privados.
Los moderadores podrían mover los temas creados aquí a un foro más apropiado.
Si usted publicó aquí y no encuentra el tema, puede buscar sus mensajes haciendo clic en la opción «Buscar sus mensajes» que se encuentra justo debajo de la cabecera de la página, junto al panel de control de usuario y al acceso a sus mensajes privados.
[RESUELTO]Mostrar directorio completo en una matriz multidim
Última edición por RGB-es el Jue May 24, 2012 10:27 pm, editado 1 vez en total.
Razón: Marcar como resuelto
Razón: Marcar como resuelto
LibreOffice 3.5 - Ubuntu 12.04
Re: Mostrar directorio completo en una matriz multidimensión
Bienvenido(a) al foro Basedw.
Espero que alguien te pueda contestar pronto.
Si crees que el libro necesita alguna corrección, lo menos que puedes hacer es indicar cual, para que su autor pueda contrastar si efectivamente es necesaria.
Espero que alguien te pueda contestar pronto.
Si crees que el libro necesita alguna corrección, lo menos que puedes hacer es indicar cual, para que su autor pueda contrastar si efectivamente es necesaria.
Última edición por mriosv el Sab May 19, 2012 12:55 am, editado 1 vez en total.
Puedes usar "Subir adjunto" en Respuesta rápida - Editor Completo - Pestaña Subir adjunto
Apache OpenOffice 4, LibreOffice (Win10x64)
Apache OpenOffice 4, LibreOffice (Win10x64)
Re: Mostrar directorio completo en una matriz multidimensión
Gracias mriosv.
En cuanto a las correcciones, espero poder enviar en un futuro todas ellas juntas.
En cuanto a las correcciones, espero poder enviar en un futuro todas ellas juntas.
LibreOffice 3.5 - Ubuntu 12.04
Re: Mostrar directorio completo en una matriz multidimensión
Hola, se supone que solo deberias agregar esta linea:
MsgBox mDirectorio( co1, 0 ), 64, "El directorio"
aqui:
For co1 = Lbound( mDirectorio, 1) To Ubound( mDirectorio, 1 )
MsgBox mDirectorio( co1, 0 ), 64, "El directorio"
MsgBox mDirectorio( co1, 1 ), 64, "El directorio"
Next
Saludos, Federico.
MsgBox mDirectorio( co1, 0 ), 64, "El directorio"
aqui:
For co1 = Lbound( mDirectorio, 1) To Ubound( mDirectorio, 1 )
MsgBox mDirectorio( co1, 0 ), 64, "El directorio"
MsgBox mDirectorio( co1, 1 ), 64, "El directorio"
Next
Saludos, Federico.
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Re: Mostrar directorio completo en una matriz multidimensión
RESUELTO
Muchas gracias, Federico. Efectivamente así se muestra todo el directorio.
Estoy comenzando en este leguaje de programación y todavía me resulta complicado.
Muchas gracias, Federico. Efectivamente así se muestra todo el directorio.
Estoy comenzando en este leguaje de programación y todavía me resulta complicado.
LibreOffice 3.5 - Ubuntu 12.04