Visual Basic - agregar elemento a array

Life is soft - evento anual de software empresarial
   
Vista:

agregar elemento a array

Publicado por Horacio (7 intervenciones) el 10/11/2015 04:05:11
Buenas gente, una consulta tengo un array dinamico donde puede haber un minimo de 1 o maximo 100 elementos
variable ultimo posicion del ultimo elemento insertado
Tengo que hacer una funcion Nuevo ,devuelva un valor Integer. Esta función debe agregar el valor pasado por parámetro al vector. Para esto se debe utilizar la variable Ultimo para saber en que posición
agregar el valor, y luego incrementarla al hacerlo. Tenga en cuenta que al ser un vector
dinámico seguramente deberá redimensionarlo pero resguardando los valores
anteriores. Esta función debe devolver el Indice donde se agrego el valor (si se puedo
guardar el valor en el vector), y -1 si ya se ha alcanzado el máximo de elementos y por lo
tanto no se guardó.

Graciias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

agregar elemento a array

Publicado por Facundo (58 intervenciones) el 14/11/2015 00:06:49
Investigá las funciones Lbound y Ubound
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

agregar elemento a array

Publicado por HORACIO (7 intervenciones) el 14/11/2015 02:30:11
puede ser tengo en un modulo

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Type TDULibro
    titulo As String
    autor As String
    editorial As String
    comentario As String
    anio As Integer
    cantPaginas As Integer
End Type
 
Public libros() As TDULibro
 
Public Const MIN = 1
Public Const MAX = 100

otro modulo de operaciones

1
2
3
4
5
Private ultimo As Integer
 
Public Sub inicializar()
    ultimo = 0
End Sub

inicializar lo llamo al cargar el formulario de carga de libro

y la funcion para agregar un libro nuevo al array
puede haber como maximo 100 libros
recibe los datos ingresado en los text control ya como registro
1
2
3
4
5
6
7
8
9
Public Function nuevo(libro As TDULibro) As Integer
    If ultimo < 100 Then
        ReDim Preserve libros(ultimo + 1)
        libros(ultimo) = libro
        ultimo = ultimo + 1
    Else
        nuevo = -1
    End If
End Function

y me faltaria ver como saber si es un libro nuevo que se esta agregando o uno editando ya que tengo esa opcion tambien
Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar