Rubrica Contatti

Module Module1
    ' implementare la gestione di una rubrica telefonica
    ' in rubrica ogni contatto potrà avere nome, cognome, numero di telefono OPPURE un indirizzo email OPPURE un indirizzo postale

    Class Contatto
        Public Property Nome As String
        Public Property Cognome As String
        Public Property Telefono As String

        Public Overrides Function ToString() As String
            Return String.Format("{0} {1} - Telefono: {2}", Nome, Cognome, Telefono)
        End Function
    End Class

    Class ContattoConEmail
        Inherits Contatto
        Public Property Email As String
        Public Overrides Function ToString() As String
            Return MyBase.ToString() & ", Email: " & Email
        End Function
    End Class
    Sub Main()
        Dim archimede As New Contatto() With {.Nome = "Archimede", .Cognome = "Pitagorico", .Telefono = "1.414"}
        Dim paperone As New Contatto() With {.Nome = "Paperon", .Cognome = "De' Paperoni", .Telefono = "$$$$$$$"}
        Dim pico As New Contatto With {.Nome = "Pico", .Cognome = "De' Paperis", .Telefono = "000000"}
        Dim topolino As New ContattoConEmail With {.Nome = "Topolino", .Telefono = "123456", .Email = "topolino@topolina.net"}
        Dim rubrica As New List(Of Contatto)
        rubrica.Add(archimede)
        rubrica.Add(paperone)
        rubrica.Add(pico)
        rubrica.Add(topolino)
        For Each contatto In rubrica
            Console.WriteLine(contatto)
        Next
        Console.WriteLine("Numero di elementi in elenco: {0}", rubrica.Count)

    End Sub

End Module