Models.vb

''' <summary>
''' Models.vb - Modelli dati dell'applicazione QueueMonitor
''' Contiene tutte le classi dati, enumerazioni e configurazioni.
''' </summary>

Imports System.ComponentModel
Imports System.Text.Json
Imports System.Text.Json.Serialization
Imports System.IO

'Namespace QueueMonitor

' ═══════════════════════════════════════════════════════════
'  ENUMERAZIONI
' ═══════════════════════════════════════════════════════════

''' <summary>
''' Stile visivo del gauge
''' </summary>
Public Enum GaugeStyle
    ''' <summary>Arco semicircolare classico</summary>
    Semicircle = 0
    ''' <summary>Arco completo 270 gradi</summary>
    Arc270 = 1
    ''' <summary>Barra orizzontale</summary>
    HorizontalBar = 2
    ''' <summary>Barra verticale</summary>
    VerticalBar = 3
End Enum

''' <summary>
''' Schema colori del gauge
''' </summary>
Public Enum GaugeColorScheme
    ''' <summary>Verde → Giallo → Rosso (default)</summary>
    TrafficLight = 0
    ''' <summary>Blu → Ciano → Verde</summary>
    Ocean = 1
    ''' <summary>Viola → Rosa → Arancio</summary>
    Sunset = 2
    ''' <summary>Toni grigi</summary>
    Monochrome = 3
    ''' <summary>Personalizzato</summary>
    Custom = 4
End Enum

''' <summary>
''' Stato corrente di una coda basato sul tempo di attesa
''' </summary>
Public Enum QueueStatus
    ''' <summary>Coda nella norma</summary>
    Normal = 0
    ''' <summary>Coda in attenzione</summary>
    Warning = 1
    ''' <summary>Coda critica</summary>
    Critical = 2
    ''' <summary>Coda offline / non monitorata</summary>
    Offline = 3
End Enum

' ═══════════════════════════════════════════════════════════
'  MODELLO: CODA
' ═══════════════════════════════════════════════════════════

''' <summary>
''' Rappresenta una coda da monitorare con i suoi parametri
''' </summary>
Public Class QueueModel
    Implements INotifyPropertyChanged

    Private _id As String = Guid.NewGuid().ToString()
    Private _name As String = "Nuova Coda"
    Private _description As String = ""
    Private _currentWaitTime As Double = 0  ' in minuti
    Private _maxWaitTime As Double = 60     ' soglia massima (minuti)
    Private _warningThreshold As Double = 30 ' soglia attenzione (minuti)
    Private _criticalThreshold As Double = 45 ' soglia critica (minuti)
    Private _isActive As Boolean = True
    Private _lastUpdated As DateTime = DateTime.Now
    Private _history As New List(Of WaitTimeEntry)()

    ''' <summary>ID univoco della coda</summary>
    Public Property Id As String
        Get
            Return _id
        End Get
        Set(value As String)
            _id = value
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(Id)))
        End Set
    End Property

    ''' <summary>Nome visualizzato della coda</summary>
    Public Property Name As String
        Get
            Return _name
        End Get
        Set(value As String)
            _name = value
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(Name)))
        End Set
    End Property

    ''' <summary>Descrizione opzionale della coda</summary>
    Public Property Description As String
        Get
            Return _description
        End Get
        Set(value As String)
            _description = value
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(Description)))
        End Set
    End Property

    ''' <summary>Tempo di attesa corrente in minuti</summary>
    Public Property CurrentWaitTime As Double
        Get
            Return _currentWaitTime
        End Get
        Set(value As Double)
            _currentWaitTime = Math.Max(0, value)
            _lastUpdated = DateTime.Now
            ' Aggiunge alla storia
            _history.Add(New WaitTimeEntry(_currentWaitTime))
            ' Mantieni solo le ultime 100 misurazioni
            If _history.Count > 100 Then _history.RemoveAt(0)
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(CurrentWaitTime)))
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(Status)))
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(PercentageFull)))
        End Set
    End Property

    ''' <summary>Tempo di attesa massimo configurato (minuti)</summary>
    Public Property MaxWaitTime As Double
        Get
            Return _maxWaitTime
        End Get
        Set(value As Double)
            _maxWaitTime = Math.Max(1, value)
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(MaxWaitTime)))
        End Set
    End Property

    ''' <summary>Soglia attenzione in minuti</summary>
    Public Property WarningThreshold As Double
        Get
            Return _warningThreshold
        End Get
        Set(value As Double)
            _warningThreshold = value
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(WarningThreshold)))
        End Set
    End Property

    ''' <summary>Soglia critica in minuti</summary>
    Public Property CriticalThreshold As Double
        Get
            Return _criticalThreshold
        End Get
        Set(value As Double)
            _criticalThreshold = value
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(CriticalThreshold)))
        End Set
    End Property

    ''' <summary>Se la coda è attiva e monitorata</summary>
    Public Property IsActive As Boolean
        Get
            Return _isActive
        End Get
        Set(value As Boolean)
            _isActive = value
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(IsActive)))
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(Status)))
        End Set
    End Property

    ''' <summary>Data/ora dell'ultimo aggiornamento</summary>
    Public Property LastUpdated As DateTime
        Get
            Return _lastUpdated
        End Get
        Set(value As DateTime)
            _lastUpdated = value
        End Set
    End Property

    ''' <summary>Storico delle misurazioni</summary>
    Public ReadOnly Property History As List(Of WaitTimeEntry)
        Get
            Return _history
        End Get
    End Property

    ''' <summary>Calcola lo stato corrente della coda</summary>
    <JsonIgnore>
    Public ReadOnly Property Status As QueueStatus
        Get
            If Not _isActive Then Return QueueStatus.Offline
            If _currentWaitTime >= _criticalThreshold Then Return QueueStatus.Critical
            If _currentWaitTime >= _warningThreshold Then Return QueueStatus.Warning
            Return QueueStatus.Normal
        End Get
    End Property

    ''' <summary>Percentuale di riempimento (0-100) per il gauge</summary>
    <JsonIgnore>
    Public ReadOnly Property PercentageFull As Double
        Get
            If _maxWaitTime = 0 Then Return 0
            Return Math.Min(100, (_currentWaitTime / _maxWaitTime) * 100)
        End Get
    End Property

    ''' <summary>Testo formattato del tempo di attesa</summary>
    <JsonIgnore>
    Public ReadOnly Property WaitTimeFormatted As String
        Get
            If _currentWaitTime < 1 Then Return "< 1 min"
            If _currentWaitTime >= 60 Then
                Dim ore = CInt(Math.Floor(_currentWaitTime / 60))
                Dim min = CInt(_currentWaitTime Mod 60)
                Return $"{ore}h {min:D2}m"
            End If
            Return $"{CInt(_currentWaitTime)} min"
        End Get
    End Property

    Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged

End Class

' ═══════════════════════════════════════════════════════════
'  MODELLO: ENTRY STORICO
' ═══════════════════════════════════════════════════════════

''' <summary>
''' Un'istanza di misurazione del tempo di attesa con timestamp
''' </summary>
Public Class WaitTimeEntry
    Public Property Timestamp As DateTime
    Public Property WaitTime As Double

    Public Sub New(waitTime As Double)
        Me.Timestamp = DateTime.Now
        Me.WaitTime = waitTime
    End Sub

    Public Sub New()
    End Sub
End Class

' ═══════════════════════════════════════════════════════════
'  MODELLO: CONFIGURAZIONE GAUGE
' ═══════════════════════════════════════════════════════════

''' <summary>
''' Configurazione visiva di un singolo gauge
''' </summary>
Public Class GaugeConfig

    ''' <summary>ID della coda associata</summary>
    Public Property QueueId As String = ""

    ''' <summary>Stile del gauge</summary>
    Public Property Style As GaugeStyle = GaugeStyle.Arc270

    ''' <summary>Schema colori</summary>
    Public Property ColorScheme As GaugeColorScheme = GaugeColorScheme.TrafficLight

    ''' <summary>Mostra etichette sul gauge</summary>
    Public Property ShowLabels As Boolean = True

    ''' <summary>Mostra il valore numerico nel centro</summary>
    Public Property ShowValue As Boolean = True

    ''' <summary>Mostra il nome della coda</summary>
    Public Property ShowName As Boolean = True

    ''' <summary>Mostra animazione di transizione</summary>
    Public Property AnimateTransitions As Boolean = True

    ''' <summary>Colore personalizzato normale (hex es. #00FF00)</summary>
    Public Property CustomColorNormal As String = "#00C851"

    ''' <summary>Colore personalizzato attenzione</summary>
    Public Property CustomColorWarning As String = "#FF8800"

    ''' <summary>Colore personalizzato critico</summary>
    Public Property CustomColorCritical As String = "#FF4444"

    ''' <summary>Larghezza dell'arco in pixel</summary>
    Public Property ArcWidth As Integer = 18

    ''' <summary>Mostra griglia di sfondo nel gauge bar</summary>
    Public Property ShowGrid As Boolean = True

    ''' <summary>Posizione nella griglia dashboard (riga, colonna)</summary>
    Public Property GridRow As Integer = 0
    Public Property GridColumn As Integer = 0

End Class

' ═══════════════════════════════════════════════════════════
'  MODELLO: CONFIGURAZIONE APPLICAZIONE
' ═══════════════════════════════════════════════════════════

''' <summary>
''' Configurazione globale dell'applicazione, persistita su file JSON
''' </summary>
Public Class AppConfig

    ''' <summary>Numero di colonne nella griglia dashboard</summary>
    Public Property DashboardColumns As Integer = 3

    ''' <summary>Intervallo aggiornamento automatico in secondi (0 = disabilitato)</summary>
    Public Property AutoRefreshSeconds As Integer = 30

    ''' <summary>Mostra la barra di stato</summary>
    Public Property ShowStatusBar As Boolean = True

    ''' <summary>Tema scuro abilitato</summary>
    Public Property DarkTheme As Boolean = True

    ''' <summary>Dimensione font del valore gauge</summary>
    Public Property GaugeValueFontSize As Single = 18

    ''' <summary>Riproduce suono su allarme critico</summary>
    Public Property SoundOnCritical As Boolean = False

    ''' <summary>Lista di tutte le code configurate</summary>
    Public Property Queues As List(Of QueueModel) = New List(Of QueueModel)()

    ''' <summary>Configurazioni gauge per ogni coda</summary>
    Public Property GaugeConfigs As Dictionary(Of String, GaugeConfig) = New Dictionary(Of String, GaugeConfig)()

    ''' <summary>Ottieni o crea la config gauge per una coda</summary>
    Public Function GetGaugeConfig(queueId As String) As GaugeConfig
        If Not GaugeConfigs.ContainsKey(queueId) Then
            GaugeConfigs(queueId) = New GaugeConfig With {.QueueId = queueId}
        End If
        Return GaugeConfigs(queueId)
    End Function

End Class

' ═══════════════════════════════════════════════════════════
'  SERVIZIO: PERSISTENZA CONFIGURAZIONE
' ═══════════════════════════════════════════════════════════

''' <summary>
''' Gestisce il salvataggio e caricamento della configurazione su file JSON locale.
''' Nessuna connessione internet richiesta.
''' </summary>
Public Class ConfigService

    Private Shared ReadOnly _configPath As String =
            Path.Combine(
                Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData),
                "QueueMonitor",
                "config.json")

    Private Shared ReadOnly _jsonOptions As New JsonSerializerOptions With {
            .WriteIndented = True,
            .PropertyNamingPolicy = JsonNamingPolicy.CamelCase
        }

    ''' <summary>
    ''' Carica la configurazione dal file. Se non esiste, restituisce una config di default con dati demo.
    ''' </summary>
    Public Shared Function Load() As AppConfig
        Try
            If File.Exists(_configPath) Then
                Dim json = File.ReadAllText(_configPath)
                Dim config = JsonSerializer.Deserialize(Of AppConfig)(json, _jsonOptions)
                Return If(config, CreateDefault())
            End If
        Catch ex As Exception
            ' In caso di file corrotto, usa default
        End Try
        Return CreateDefault()
    End Function

    ''' <summary>
    ''' Salva la configurazione su file JSON
    ''' </summary>
    Public Shared Sub Save(config As AppConfig)
        Try
            Dim dir = Path.GetDirectoryName(_configPath)
            If Not Directory.Exists(dir) Then Directory.CreateDirectory(dir)
            Dim json = JsonSerializer.Serialize(config, _jsonOptions)
            File.WriteAllText(_configPath, json)
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show($"Errore salvataggio configurazione:{Environment.NewLine}{ex.Message}",
                    "Avviso", System.Windows.Forms.MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Warning)
        End Try
    End Sub

    ''' <summary>
    ''' Crea una configurazione di default con code dimostrative
    ''' </summary>
    Public Shared Function CreateDefault() As AppConfig
        Dim config As New AppConfig()

        ' Code di esempio pre-caricate
        Dim queues As New List(Of QueueModel) From {
                New QueueModel With {
                    .Name = "Cassa Principale",
                    .Description = "Coda principale cassiere",
                    .CurrentWaitTime = 12,
                    .MaxWaitTime = 60,
                    .WarningThreshold = 20,
                    .CriticalThreshold = 40,
                    .IsActive = True
                },
                New QueueModel With {
                    .Name = "Sportello 1",
                    .Description = "Sportello informazioni",
                    .CurrentWaitTime = 35,
                    .MaxWaitTime = 60,
                    .WarningThreshold = 20,
                    .CriticalThreshold = 40,
                    .IsActive = True
                },
                New QueueModel With {
                    .Name = "Sportello 2",
                    .Description = "Sportello pagamenti",
                    .CurrentWaitTime = 5,
                    .MaxWaitTime = 60,
                    .WarningThreshold = 20,
                    .CriticalThreshold = 40,
                    .IsActive = True
                },
                New QueueModel With {
                    .Name = "Assistenza Tecnica",
                    .Description = "Help desk IT",
                    .CurrentWaitTime = 48,
                    .MaxWaitTime = 90,
                    .WarningThreshold = 30,
                    .CriticalThreshold = 60,
                    .IsActive = True
                },
                New QueueModel With {
                    .Name = "Prenotazioni",
                    .Description = "Coda prenotazioni online",
                    .CurrentWaitTime = 0,
                    .MaxWaitTime = 45,
                    .WarningThreshold = 15,
                    .CriticalThreshold = 30,
                    .IsActive = False
                }
            }

        config.Queues = queues

        ' Gauge config di default per ogni coda
        For i = 0 To queues.Count - 1
            Dim q = queues(i)
            config.GaugeConfigs(q.Id) = New GaugeConfig With {
                    .QueueId = q.Id,
                    .Style = If(i Mod 4 = 2, GaugeStyle.HorizontalBar,
                               If(i Mod 4 = 3, GaugeStyle.Semicircle, GaugeStyle.Arc270)),
                    .ColorScheme = CType(i Mod 4, GaugeColorScheme),
                    .ShowLabels = True,
                    .ShowValue = True,
                    .ShowName = True,
                    .AnimateTransitions = True,
                    .ArcWidth = 18,
                    .GridRow = i \ 3,
                    .GridColumn = i Mod 3
                }
        Next

        Return config
    End Function

    ''' <summary>Percorso file di configurazione</summary>
    Public Shared ReadOnly Property ConfigFilePath As String
        Get
            Return _configPath
        End Get
    End Property

End Class

' ═══════════════════════════════════════════════════════════
'  STATO GLOBALE APPLICAZIONE (Singleton)
' ═══════════════════════════════════════════════════════════

''' <summary>
''' Stato globale condiviso tra tutte le form dell'applicazione.
''' Pattern Singleton per accesso semplificato.
''' </summary>
Public Class AppState
    Private Shared _instance As AppState

    Public Shared ReadOnly Property Instance As AppState
        Get
            If _instance Is Nothing Then _instance = New AppState()
            Return _instance
        End Get
    End Property

    Public Property Config As AppConfig
    Public Event DataChanged As EventHandler

    Private Sub New()
        ' Assicurati che Config sia inizializzato anche se il servizio fallisce
        Try
            Config = ConfigService.Load()
        Catch
            Config = New AppConfig()
        End Try

        If Config Is Nothing Then Config = New AppConfig()
    End Sub

    Public Sub SaveAndNotify()
        ' ConfigService deve esistere ed essere un modulo o classe shared
        ConfigService.Save(Config)
        RaiseEvent DataChanged(Me, EventArgs.Empty)
    End Sub

    ''' <summary>Otteniamo la lista senza LINQ per evitare errori di compilazione</summary>
    Public ReadOnly Property ActiveQueues As IEnumerable(Of QueueModel)
        Get
            Dim activeList As New List(Of QueueModel)
            If Config Is Nothing OrElse Config.Queues Is Nothing Then Return activeList

            For Each q In Config.Queues
                If q.IsActive Then
                    activeList.Add(q)
                End If
            Next
            Return activeList
        End Get
    End Property
End Class

'End Namespace