none
Lista enlazada RRS feed

  • Pregunta

  • Buenas noches, estoy trabajando en una tarea de la escuela pero desde ayer estoy atorado en un punto que trata de lo siguiente:
    Ingresar un nodo "antes de otro".

    Les dejo el código de esa parte del programa, gracias. 

    informacion de variables:

    info es el vector donde se almacenan los datos ingresados su tamaño es de 10 posiciones.

    enlace es el vector donde se encuentra la posicion de los nodos.

    If disponible = 0 Then
                MsgBox("La lista esta llena", vbCritical, vbOKOnly)
            Else
                contador_antes = 0
                encontrado = False
                For x = 1 To 10
                    If info(x) = txt_referencia2.Text Then
                        encontrado = True
                        ptr = x 'toma la posicion actual de enlace
                        Exit For
                    End If
                Next

                For x = 1 To 10
                    If enlace(x) <> 0 Then 'condicion para sacar el ultimo nodo de la lista
                        contador_antes = contador_antes + 1 'saca la posición antes de que llegue al ultimo elemento de la lista
                    End If
                Next

                If encontrado = True Then
                    nuevo = disponible
                    disponible = enlace(disponible)
                    info(nuevo) = txt_insertarantesdeotro.Text
                    enlace(nuevo) = ptr             
                    enlace(contador_antes) = nuevo
                  
                Else
                    MsgBox("El dato de referencia no se encontro, favor de verificar", vbCritical, vbOKOnly)
                End If
            End If

    miércoles, 19 de septiembre de 2018 3:16