none
Listar menores de 18 RRS feed

  • Pregunta

  • Hola Buenas noches. 

    Tengo este problema:

     Cree la clase persona ( clsPersona)  con los datos nombre, fecha de nacimiento, domicilio, mail. Utilizar una lista ( List) para guardar los datos de las personas. Programe los métodos necesarios que me permitan agregar, eliminar y buscar una persona. Además un método en la clase que, me devuelva una lista con aquellos personas menores de 18 años. 

    Solo me falta la ultima opcion, poder listar los menores de 18? lo de mas ya esta!

    Si me dan alguna pista o ayuda se los agradezco!!!!

    domingo, 27 de octubre de 2019 1:25

Todas las respuestas

  • Hola:
    En un Form como el de la imagen

    Copia y pega el siguiente codigo

    Public Class FrmGenerica
        Private mListaPersona As New List(Of Persona)()
        Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            mListaPersona.Add(New Persona("José", "García", New DateTime(1940, 12, 2)))
            mListaPersona.Add(New Persona("Pedro", "López", New DateTime(1992, 2, 22)))
            mListaPersona.Add(New Persona("Antonio", "Pérez", New DateTime(1976, 6, 21)))
            mListaPersona.Add(New Persona("Pepe", "Trueno", New DateTime(1950, 12, 2)))
            mListaPersona.Add(New Persona("Paco", "Gotera", New DateTime(1960, 12, 2)))
            mListaPersona.Add(New Persona("Luis", "Roldan", New DateTime(1970, 12, 2)))
            mListaPersona.Add(New Persona("Manu", "Ruiz", New DateTime(1980, 12, 2)))
            mListaPersona.Add(New Persona("Patxi", "Rouco", New DateTime(1990, 12, 2)))
            mListaPersona.Add(New Persona("Ines", "Peral", New DateTime(1975, 12, 2)))
        End Sub
        Private Sub btnTodos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLTodos.Click
            Dim lTodos As New List(Of Persona)()
            lTodos = lF_Todos(mListaPersona)
            Me.DataGridView2.DataSource = lTodos
        End Sub
        Private Sub btnJovenes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnJovenes.Click
            Dim lJovenes As New List(Of Persona)()
            lJovenes = lF_Jovenes(mListaPersona)
            Me.DataGridView1.DataSource = lJovenes
        End Sub
        Private Function lF_Todos(ByVal personas As List(Of Persona)) As List(Of Persona)
            Dim lLista As New List(Of Persona)()
            For Each persona As Persona In personas
                lLista.Add(persona)
            Next
            Return lLista
        End Function

        Private Function lF_Jovenes(ByVal personas As List(Of Persona)) As List(Of Persona)
            Dim lLista As New List(Of Persona)()
            For Each persona As Persona In personas
                If persona.FNacimiento.Year > 1975 Then
                    lLista.Add(persona)
                End If
            Next
            Return lLista
        End Function
    End Class

    Un saludo desde Bilbo
    Carlos
    • Propuesto como respuesta Pablo Rubio lunes, 28 de octubre de 2019 19:28
    domingo, 27 de octubre de 2019 5:04