Imports System

Imports System.Collections.Generic

Imports System.Linq

Public Module Module1

​

    'Dati di esempio che io scrivo a mano, ma potrebbero essere recuperati da un Database

    Private nomeUtente As String = "Marco"  

    Private attivitàDefinite As List(Of Attività) = new List(Of Attività) From {

        New Attività("00:00", "sta dormendo"),

        New Attività("07:00", "si sveglia"),

        New Attività("08:00", "è a scuola"),

        New Attività("13:00", "sta pranzando"),

        New Attività("14:00", "fa un sonnellino"),

        New Attività("15:30", "fa i compiti"),

        New Attività("20:00", "sta cenando"),

        New Attività("21:00", "guarda la TV"),

        New Attività("23:00", "sta dormendo")

    }

    'Qui inizia il programma

    Public Sub Main()

        Dim ancora as String

        Do

        'Digita l'orario

        Console.WriteLine("Digita un orario nella forma hh:mm e premi invio")

        Dim orarioTestuale As String = Console.ReadLine()

​

        'Proviamo a capire che attività sta facendo l'utente

        Try     

            Dim attivitàEseguita As String = DeterminaAttività(orarioTestuale, attivitàDefinite)

            'Se non abbiamo potuto determinare un'attività è perché non ce n'era una tra le attività definite rispondente all'ora indicata

            attivitàEseguita = If(attivitàEseguita, "non si sa cosa faccia a quell'ora")

            Console.WriteLine("{0} {1}", nomeUtente, attivitàEseguita)

        Catch eccezione As FormatException

            'Se determinare un'attività ha prodotto un'errore, è perché è stato digitato un orario in un formato sbagliato

            Console.WriteLine("Non è stato possibile stabilire cosa sta facendo {0} perché si è verificato un errore: {1}", nomeUtente, eccezione.Message)

        End Try

            Console.Write("Vuoi provare con un altro orario (s/N)? ")

            ancora = Console.ReadLine()

            Loop Until Not ancora.Equals("S", StringComparison.OrdinalIgnoreCase)

        Console.WriteLine("Fine programma")

    End Sub

    'Questa functione è riutilizzabile: l'elenco delle attività può arrivargli dal database oppure essere digitata a mano, non gli importa

        Public Function DeterminaAttività(orarioTestuale As String, attivitàDefinite As IEnumerable(Of Attività)) as String

​

            If String.IsNullOrWhiteSpace(orarioTestuale) Then Throw new ArgumentException("Devi fornire un orario")

                If attivitàDefinite Is Nothing OR Not attivitàDefinite.Any() Then Throw new ArgumentException("Devi fornire un elenco di attività")

        Dim orario As TimeSpan = Attività.ParsaOrario(orarioTestuale)

        'Altrimenti andiamo a capire quale attività svolge a quell'ora

        Return attivitàDefinite.Where(Function(a) a.OrarioDiInizio <= orario).OrderByDescending(Function(a) a.OrarioDiInizio).Select(Function(a) a.Descrizione).FirstOrDefault()

    End Function

    'Classe che modella l'attività e che fa validazione sui dati inseriti

    Public Class Attività

        Public Sub New(orarioDiInizioTestuale as String, descrizione As String)

            Me.New(ParsaOrario(orarioDiInizioTestuale), descrizione)

        End Sub

        Public Sub New(orarioDiInizio as TimeSpan, descrizione As String)

                If orarioDiInizio.TotalHours >= 24 Then Throw New ArgumentException("L'orario non è valido")

                If String.IsNullOrWhiteSpace(descrizione) Then Throw New ArgumentException("La descrizione non è valida")

                Me.OrarioDiInizio = orarioDiInizio

                Me.Descrizione = descrizione

        End Sub

        Public Property OrarioDiInizio As TimeSpan

        Public Property Descrizione As String

        Public Shared Function ParsaOrario(orarioTestuale as String) As TimeSpan

            If String.IsNullOrWhiteSpace(orarioTestuale) Then Throw new ArgumentException("L'orario non era valido")

            'Che l'utente abbia usato i due punti o il punto come separatore, fa lo stesso

            orarioTestuale = orarioTestuale.Replace({":"c, "."c}, System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.TimeSeparator)

            Dim orario As TimeSpan

            'Se non si riesce ad interpretare l'input dell'utente come orario (es. ha scritto "Pippo"), allora restituiamo Nothing

            If Not TimeSpan.TryParse(orarioTestuale, orario) Then Throw New FormatException("L'orario non era in un formato valido. Indicalo nel formato hh:mm")

            Return orario

        End Function

    End Class

End Module