Ayuda ejercicios unidad 32: Colecciones en VB

1.- Crear una colección que nos permita la gestión de los valores del tipo

Código

Denominación

Module Ejercicios

Public Sub Uno()

Dim Coleccion As New System.Collections.Generic.SortedList(Of Integer, String)

Coleccion.Add(1, "Silla")

Coleccion.Add(25, "Mesa")

Coleccion.Add(3, "Puerta")

' PV es una Pareja de Valores

' PV es del tipo KeyValuePair(Of Integer, String)

For Each PV As KeyValuePair(Of Integer, String) In Coleccion

Console.WriteLine("Clave = {0}, Valor = {1}", PV.Key, PV.Value)

End Sub

End Module

Sub Main

Uno()

End Sub

2.- Introducir diez números y luego visualizarlos en orden inverso, al de entrada.

Module Ejercicios

Public Sub Dos()

Dim Pila As New Collections.Stack

Dim Dato As Ejercicio

Dato = New Ejercicio

Dato.Codigo = 1

Dato.Nombre = "Uno"

Pila.Push(Dato)

Dato = New Ejercicio

Dato.Codigo = 2

Dato.Nombre = "Dos"

Pila.Push(Dato)

Dato = New Ejercicio

Dato.Codigo = 3

Dato.Nombre = "Tres"

Pila.Push(Dato)

For Each Dato In Pila

Console.WriteLine("código {0} nombre {1} ", Dato.Codigo, Dato.Nombre)

Console.WriteLine("Quitado un elemento.")

Dato = CType(Pila.Pop, Ejercicio)

Console.WriteLine("código {0} nombre {1} ", Dato.Codigo, Dato.Nombre)

Console.WriteLine("Añadido un elemento, cuatro.")

Dato = New Ejercicio

Dato.Codigo = 4

Dato.Nombre = "Cuatro"

Pila.Push(Dato)

Console.WriteLine("Inicio de nuevo bucle.")

For Each Dato In Pila

Console.WriteLine("código {0} nombre {1} ", Dato.Codigo, Dato.Nombre)

Console.WriteLine("Quitado un elemento.")

Dato = CType(Pila.Pop, Ejercicio)

Console.WriteLine("código {0} nombre {1} ", Dato.Codigo, Dato.Nombre)

Console.WriteLine("Inicio de nuevo bucle.")

For Each Dato In Pila

Console.WriteLine("código {0} nombre {1} ", Dato.Codigo, Dato.Nombre)

End Sub

End Module

Sub Main

Dos()

End Sub

3.- Crear un programa que nos permita gestionar la cola de un dentista con el siguiente contenido

Número de orden

Nombre

Module Ejercicios

Private Class Ejercicio

Public Nombre As String

Public Codigo As Integer

Public Sub New()

End Sub

End Class

Private Sub Tres()

Dim Cola As New Collections.Queue

Dim Dato As Ejercicio

Dato = New Ejercicio

Dato.Codigo = 1

Dato.Nombre = "Uno"

Cola.Enqueue(Dato)

Dato = New Ejercicio

Dato.Codigo = 2

Dato.Nombre = "Dos"

Cola.Enqueue(Dato)

For Each Dato In Cola

Console.WriteLine("código {0} nombre {1} ", Dato.Codigo, Dato.Nombre)

Dato = CType(Cola.Dequeue, Ejercicio)

Console.WriteLine("código {0} nombre {1} ", Dato.Codigo, Dato.Nombre)

Dato = New Ejercicio

Dato.Codigo = 3

Dato.Nombre = "Tres"

Cola.Enqueue(Dato)

Console.WriteLine("Quitado y añadido un elemento, Inicio de nuevo bucle.")

For Each Dato In Cola

Console.WriteLine("código {0} nombre {1} ", Dato.Codigo, Dato.Nombre)

Dato = CType(Cola.Dequeue, Ejercicio)

Console.WriteLine("código {0} nombre {1} ", Dato.Codigo, Dato.Nombre)

Console.WriteLine("Quitado un elemento, Inicio de nuevo bucle.")

For Each Dato In Cola

Console.WriteLine("código {0} nombre {1} ", Dato.Codigo, Dato.Nombre)

End Sub

End Module

Sub Main

Tres()

End Sub

4.- Tenemos que almacenar los nombres de las personas que van a asistir a un evento.

Estas personas se irán identificando a medida que se van incorporando al mismo.

Necesitamos poder acceder posteriormente a sus datos, teniendo en cuenta que pueden ser

Ponentes

Invitados

Organización

Module Ejercicios

Private Class Ejercicio

Public Nombre As String

Public Codigo As Integer

Public Tipo as String

Public Sub New()

End Sub

End Class

Private Function Resultado(ByVal Item As Ejercicio) As Boolean

Resultado = Item.Tipo = "P"

End Function

Public Sub Cuatro()

Dim Evento As New System.Collections.Generic.List(Of Ejercicio)

Dim Persona As Ejercicio

Persona = New Ejercicio

With Persona

.Codigo = 1

.Nombre = "Pedro"

.Tipo = "P"

End With

Evento.Add(Persona)

Persona = New Ejercicio

With Persona

.Codigo = 2

.Nombre = "Luisa"

.Tipo = "P"

End With

Evento.Add(Persona)

Persona = New Ejercicio

With Persona

.Codigo = 1

.Nombre = "Imma"

.Tipo = "I"

End With

Evento.Add(Persona)

Persona = New Ejercicio

With Persona

.Codigo = 2

.Nombre = "Javier"

.Tipo = "I"

End With

Evento.Add(Persona)

Persona = New Ejercicio

With Persona

.Codigo = 1

.Nombre = "Carlos"

.Tipo = "O"

End With

Evento.Add(Persona)

Persona = New Ejercicio

With Persona

.Codigo = 2

.Nombre = "Cristina"

.Tipo = "O"

End With

Evento.Add(Persona)

For Each Persona In Evento

With Persona

Console.WriteLine("Tipo {0} código {1} nombre {2} ",.Tipo,.Codigo,.Nombre)

End With

Dim Ponentes As New System.Collections.Generic.List(Of Ejercicio)

Ponentes = Evento.FindAll(AddressOf Resultado)

For Each Persona In Ponentes

Console.WriteLine("Ponentes {0} ", Persona.Nombre)

End Sub

End Module