digital-nation

Je vous annonçait depuis quelques temps un petit teasing qui était en cours sur mon blog. J'y avais dispersé quelques indices et... Rien ne fut trouvé.

Mais où étaient-ils ?
Dispersé sur la colonne de droite, il y avait des « countdown » (décompte), quelques renseignements sur un nouveau blog (la barre latérale se met à jour avec les flux RSS)...

Et plein d'autres petites choses de ce style. Cela conforte donc l'idée que bien souvent seul le contenu est lu (le plus souvent par le flux, rarement par le blog) et que tout ce qui est autour est « skippé » !

Mais qu'ai-je donc à vous annoncer ? La diminution des fautes d'orthographe ? Certainement pas.
Alors voici :

#Include <Date.au3>
Dim $acc, $delai, $alphabet, $msg1, $msg2
$acc = _DateToDayValue("2008","05","28")
Select
    Case ($acc - 31) < $acc
        SplashTextOn("Patienter", "Veuillez encore quelques temps 
patienter, " & @CR & _
                    "Construction en cours...", -1, -1, -1, -1)
        While ($acc - 31) < _DateToDayValue(@YEAR, @MON, @MDAY) > ($acc 
- 14)
            Sleep(1000)
        WEnd
        SplashOff()
    Case ($acc - 14) < _DateToDayValue(@YEAR, @MON, @MDAY) > ($acc + 14)
        SplashTextOn("Ouin", "Les jours sont comptés, cela " & _
                        "peut arriver d'une minute à l'autre !" & @CR & _
                        "Albine & Xavier sont heureux de " & _
                        "vous annoncer la venue au monde de ...")
        While ($acc - 14) < _DateToDayValue(@YEAR, @MON, @MDAY)
            Sleep(1000)
        WEnd
        SplashOff()
    Case $acc = _DateToDayValue(@YEAR, @MON, @MDAY)
        MsgBox(0 + 64, "Ouin !", "Albine et Xavier sont heureux " & _
                    "de vous annoncer la venue au monde de ..." & @CR & _
                    "Les autres informations, ne peuvent vous " & _
                    "être divulguée maintenant")       
EndSelect

Vous ne pensiez quand même pas que j'allais vous annoncer cela aussi facilement... Toutefois vous pouvez facilement comprendre en lisant le code

Futur(e) geek(ette) ?
Et qui dit tel événement dit une naissance digitiale aussi... Neuf mois et trois !