Necesito realizar unas listas de estructura de datos en Visual Basic.NET
Pero no se si es posible trabajar con punteros en Visual Basic, agradeceria si alguien me pudiese decir como se trabajan los punteros en Visual Basic.
| |||
Punteros en Visual Basic Necesito realizar unas listas de estructura de datos en Visual Basic.NET Pero no se si es posible trabajar con punteros en Visual Basic, agradeceria si alguien me pudiese decir como se trabajan los punteros en Visual Basic. |
| |||
Bueno logramos solucionar nuestro problema para el manejo de Listas enlazadas en Visual Basic .NET utilizando Clases Para el manejo de nodos utilizamos la siguiente clase: Public Class Node Public Dato As New Estudiante Public Siguiente As Node End Class Public Class Estudiante Public Nombre As String Public Cedula As String End Class Luego en otro modulo para crear la lista utilizamos lo siguiente: Sub CrearNuevaLista() NodoInicio = New Node 'Puntero al nuevo objeto NodoInicio.Dato.Cedula = "" NodoInicio.Dato.Nombre = "" NodoInicio.Siguiente = NodoInicio End Sub //Para ingresar elementos al final de la lista el siguiente codigo: Sub InsertarFinal() Dim Nodo As Node Nodo = NodoInicio If Nodo.Siguiente Is Nodo Then If Nodo.Dato.Cedula = "" And Nodo.Dato.Nombre = "" Then Console.Write("Ingrese el Nombre: ") Nodo.Dato.Nombre = Console.ReadLine() Console.Write("Ingrese la Cédula: ") Nodo.Dato.Cedula = Console.ReadLine() Nodo.Siguiente = Nodo Else Nodo.Siguiente = New Node Nodo = Nodo.Siguiente Console.Write("Ingrese el Nombre: ") Nodo.Dato.Nombre = Console.ReadLine() Console.Write("Ingrese la Cédula: ") Nodo.Dato.Cedula = Console.ReadLine() Nodo.Siguiente = Nodo End If Else Do Nodo = Nodo.Siguiente If Nodo.Siguiente Is Nodo Then Nodo.Siguiente = New Node Nodo = Nodo.Siguiente Console.Write("Ingrese el Nombre: ") Nodo.Dato.Nombre = Console.ReadLine() Console.Write("Ingrese la Cédula: ") Nodo.Dato.Cedula = Console.ReadLine() Nodo.Siguiente = Nodo End If Loop Until Nodo.Siguiente Is Nodo End If Console.ReadLine() End Sub ----------------------------------------------------------------------- Bueno espero que les sirva! |