Splendida giornata quella di ieri presso il centro sportivo - ristorante "L'antica fonte" di Fonte Vivola (VT).  Oltre a proporre una cucina perfettamente equilibrata, sapientemente alternata a specialità della zona, è stato possibile alternare le attività di "mandibola" a quelle che alimentano l'anima..passeggiate  a cavallo nei boschi, tuffi in piscina e sugli scivoli d'acqua (ieri magari non era il caso) , nonchè attività sportive classiche ( calcio, basket e tennis).Insomma una vera sorpresa per noi , soprattutto se si pensa che ,per chi come me ha due bimbetti, la direzione del centro si preoccupa dei pargoli dall'inizio alla fine con il risultato...

Per rimanere in tema con il mio precedente post , dovevo fare il sort degli array che avevo creato per la mia applicazione.Ho provato un pò con il metodo sort nativo degli array del framework ma non sono riuscito a farlo funzionare.Credo che debba approfondire in merito ; nell'array avevo salvato una collection di oggetti da me creati che avevano comunque un identità sortabile(si dirà così?).Bah...non ho trovato niente di meglio che ripescare nei miei ricordi di studio e fare un bel bubble sort ( gli oggetti non sono molti , al massimo 30).    Public Sub Sort()'Metodo di ordinamento degli oggetti SSD        Dim MyVCounter As Integer        Dim Swapped As Boolean = True        Dim tmp As SSDAmbiti        While Swapped            Swapped = False            For MyVCounter = 1 To _SizeSSd - 1                If _ArraySSD(MyVCounter).NomeSSD < _ArraySSD(MyVCounter - 1).NomeSSD Then                    tmp = _ArraySSD(MyVCounter)                    _ArraySSD(MyVCounter) = _ArraySSD(MyVCounter - 1)                    _ArraySSD(MyVCounter - 1) = tmp                    Swapped = True                End If            Next        End While    End Sub powered by IMHO 1.2