[Ex] Un countdown (un de plus, mais super-intuitif)

[mikell]

Bon d'accord je rajoute cette fonctionnalité
Mais je préfère faire ça par un double-clic sur la fenêtre, c'est plus propre
Et c'est édité dans le post n°1

[TT22]

Oui, c'est mieux avec un double clique

EDIT 5 : masquage de la fenêtre par double-clic (TwentyToo)

C'est moi TwentyToo ?

[mikell]

Version eventmode dans le post n°1
Et les 2 versions avec tout le fourbi bien rangé dans une array (labels, menuitems)

[sksbir]

Version eventmode dans le post n°1
Et les 2 versions avec tout le fourbi bien rangé dans une array (labels, menuitems)

ha zut, j'ai raté ça. Figure toi que j'ai recherché ton post avec le mot clé "décompteur". Il m'a fallu chercher dans mes propres contributions pour retrouver ton post, mais seulement après avoir développé un extension à ton compteur ( dont j'avais conservé le code source aux alentour d'avril...) .

donc, j'ai rajouté ceci :
- Jour heure mn sec
- démarrage automatique du compteur par rapport à une date ( écrite en dur dans le code ).

C'est pour un besoin perso hein, j'ai pas cherché à faire spécialement propre...

► Afficher le texte

Code : Tout sélectionner

;#include <GUIConstantsEx.au3>
;#include <WindowsConstants.au3>

#Include <Date.au3>

Global Const $WS_POPUP = 0x80000000
Global Const $WS_EX_CLIENTEDGE = 0x00000200
Global Const $WS_EX_TOPMOST = 0x00000008
Global Const $WM_COMMAND = 0x0111
Global Const $WM_MOUSEWHEEL = 0x020A
Global Const $GUI_BKCOLOR_TRANSPARENT = -2
Global Const $GUI_WS_EX_PARENTDRAG = 0x00100000

Global $labelm, $labels, $labelj,$start, $exit1, $exit2, $running , $stop, $ticks
Global $nTempo=0.8, $iTone=0

$gui = GUICreate("Count Down", 400, 70, @desktopwidth/2-110, 10, $WS_POPUP, 0x00000208)
GUISetBkColor(0x000000)
$labelj = GUICtrlCreateLabel("0",10,0,90,70,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel("j", 85, 0, 15, 70, -1, $GUI_WS_EX_PARENTDRAG)
$labelh = GUICtrlCreateLabel("00", 115, 0, 90, 70, 0, $GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel(":", 190, 0, 15, 70, -1, $GUI_WS_EX_PARENTDRAG)
$labelm = GUICtrlCreateLabel("00", 210, 0, 90, 70, 0, $GUI_WS_EX_PARENTDRAG)
GUICtrlCreateLabel(":", 285, 0, 15, 70, -1, $GUI_WS_EX_PARENTDRAG)
$labels = GUICtrlCreateLabel("00", 305, 0, 85, 70, -1, $GUI_WS_EX_PARENTDRAG)

For $i = $labelj to $labels
 GUICtrlSetBkColor($i, $GUI_BKCOLOR_TRANSPARENT)
 GUICtrlSetFont($i, 48, 600, 0, "Arial")
 GUICtrlSetColor($i, 0xff0000)
Next
$start = GUICtrlCreateButton("", 385, 10, 12, 50)
GUICtrlSetBkColor(-1, 0x007700)
$exit1 = GUICtrlCreateMenuItem("Exit", GUICtrlCreateContextMenu($labelm))
$exit2 = GUICtrlCreateMenuItem("Exit", GUICtrlCreateContextMenu($labels))
$exit3 = GUICtrlCreateMenuItem("Exit", GUICtrlCreateContextMenu($labelh))
$exit4 = GUICtrlCreateMenuItem("Exit", GUICtrlCreateContextMenu($labelj))


;; GUIRegisterMsg($WM_MOUSEWHEEL, "_Settings")
_dateset()
If $ticks > 0 Then
    AdlibRegister("_Update", 1000)
    GUICtrlSetBkColor($start, 0x770000)
    GUIRegisterMsg($WM_COMMAND, "_StopAlarme")
    GUIRegisterMsg($WM_MOUSEWHEEL, "")
    $running = 1
    _Update()
EndIf

GUISetState()


While 1
  Switch GUIGetMsg()
    Case $exit1, $exit2 , $exit3 , $exit4
        Exit
    Case $start
        If $running = 0 Then
            _dateset()
            GUICtrlSetBkColor($start, 0x770000)
            GUIRegisterMsg($WM_COMMAND, "_StopAlarme")
            GUIRegisterMsg($WM_MOUSEWHEEL, "")
            If $ticks = 0 Then
                _Update()
            Else
                AdlibRegister("_Update", 1000)
            EndIf
        Else
            $stop = 0
            GUIRegisterMsg($WM_COMMAND, "")
            GUIRegisterMsg($WM_MOUSEWHEEL, "_Settings")
            AdlibUnRegister("_Update")
        EndIf
        $running = not $running
   EndSwitch
Wend

;==================================

Func _dateset()
    Local $test
    $test=_DateDiff( 's',_NowCalc(),"2012/09/20 12:00:00")
    If $test>0 Then $ticks=$test
EndFunc

Func _Settings($hWnd,$iMsg, $iwParam, $ilParam)
    #forceref $hwnd, $iMsg, $ilParam
 Local $iDelta = BitShift($iwParam, 16), $a = GUIGetCursorInfo()
If $iDelta > 0 and $a[4] = $labelm Then $ticks += 60
If $iDelta > 0 and $a[4] = $labels Then $ticks += 1
If $iDelta < 0 and $a[4] = $labelm and $ticks>=60 Then $ticks -= 60
If $iDelta < 0 and $a[4] = $labels and $ticks>0 Then $ticks -= 1

If $iDelta > 0 and $a[4] = $labelh Then $ticks += 3600
If $iDelta < 0 and $a[4] = $labelh and $ticks>=3600 Then $ticks -= 3600


If $iDelta > 0 And $a[4] = $labelj And $ticks < 2592000 Then $ticks += 86400
If $iDelta < 0 And $a[4] = $labelj And $ticks > 86400 Then $ticks -= 86400
_Display()
EndFunc


Func _Display()
Local $sec, $min , $hour, $jour
$sec = Mod($ticks, 60)
$min = Mod($ticks/60, 60)
$hour = Mod($ticks/3600, 24 )
$jour = Mod($ticks/86400 , 86400 )
GUICtrlSetData($labelm, StringFormat("%02i", $min))
GUICtrlSetData($labels, StringFormat("%02i", $sec))
GUICtrlSetData($labelh, StringFormat("%02i", $hour))
GUICtrlSetData($labelj, StringFormat("%02i", $jour))


EndFunc


Func _Update()
 If $running Then $stop = 0
 If $ticks > 0 Then $ticks -= 1
 _Display()
 If $ticks <= 0 Then
    AdlibUnRegister("_Update")
    _Play()
    GUIRegisterMsg($WM_MOUSEWHEEL, "_Settings")
    GUIRegisterMsg($WM_COMMAND, "")
EndIf
EndFunc


Func _StopAlarme($hWnd, $Msg, $wParam, $lParam)
 #forceref $hWnd, $Msg, $lParam
  Switch BitAND($wParam, 0x0000FFFF)
    Case $start, $exit1, $exit2
         $stop = 1
         GUICtrlSetBkColor($start, 0x007700)
EndSwitch
  Return 'GUI_RUNDEFMSG'
EndFunc


Func _Play()
; http://www.autoitscript.com/forum/topic/115869-beep/
While $stop = 0
_Beep(8,4,100)
_Beep(7,4,100)
_Beep(8,4,100)
_Beep(9,4,100)
_Beep(8,4,100,100)
_Beep(1,5,100,100)

_Beep(8,4,100)
_Beep(7,4,100)
_Beep(8,4,100)
_Beep(9,4,100)
_Beep(8,4,100,100)
_Beep(12,4,100,100)

_Beep(8,4,100)
_Beep(7,4,100)
_Beep(8,4,100)
_Beep(9,4,100)
_Beep(8,4,100)

_Beep(6,5,100)
_Beep(3,5,100)
_Beep(12,4,100)
_Beep(8,4,100)
_Beep(6,4,100)
_Beep(5,4,100)
_Beep(4,4,200,300)

_Beep(1,5,100)
_Beep(12,4,100)
_Beep(11,4,100)
_Beep(9,4,100)
_Beep(1,5,100,100)
_Beep(6,5,100,100)
_Beep(4,5,100)
_Beep(3,5,100)
_Beep(1,5,100)
_Beep(8,4,100)
_Beep(1,5,100,100)

_Beep(4,5,100,100)
_Beep(4,5,100)
_Beep(3,5,100)
_Beep(1,5,100)
_Beep(3,5,100)
_Beep(3,4,100)
_Beep(7,4,100)
_Beep(10,4,100)
_Beep(1,5,100)
_Beep(4,5,100)
_Beep(3,5,100)
_Beep(1,5,100)
_Beep(3,5,250,250)
;===========================

_Beep(8,4,100)
_Beep(7,4,100)
_Beep(8,4,100)
_Beep(9,4,100)
_Beep(8,4,100,100)
_Beep(1,5,100,100)

_Beep(8,4,100)
_Beep(7,4,100)
_Beep(8,4,100)
_Beep(9,4,100)
_Beep(8,4,100,100)
_Beep(12,4,100,100)

_Beep(8,4,100)
_Beep(7,4,100)
_Beep(8,4,100)
_Beep(9,4,100)
_Beep(8,4,100)

_Beep(6,5,100)
_Beep(3,5,100)
_Beep(12,4,100)
_Beep(8,4,100)
_Beep(6,4,100)
_Beep(5,4,100)
_Beep(4,4,200,300)

_Beep(1,5,100)
_Beep(12,4,100)
_Beep(11,4,100)
_Beep(9,4,100)
_Beep(1,5,100,100)
_Beep(6,5,100,100)
_Beep(4,5,100)
_Beep(3,5,100)
_Beep(1,5,100)
_Beep(8,4,100)
_Beep(1,5,100,100)

_Beep(4,5,100,100)
_Beep(4,5,100)
_Beep(3,5,100)
_Beep(1,5,100)
_Beep(3,5,100)
;=============================

_Beep(8,4,100)
_Beep(12,4,100)
_Beep(3,5,100)
_Beep(8,5,100)
_Beep(6,5,100)
_Beep(4,5,100)
_Beep(3,5,100)
_Beep(1,5,300,200)

_Beep(3,5,100)
_Beep(1,5,100)
_Beep(12,4,100)
_Beep(11,4,100)
_Beep(4,4,100)
_Beep(8,4,100)
_Beep(11,4,100)
_Beep(4,4,100)
_Beep(8,4,100)
_Beep(11,4,100)
_Beep(12,4,100)
_Beep(1,5,150,150)
_Beep(9,4,200,100)
_Beep(3,5,100)
_Beep(1,5,100)
_Beep(12,4,100)
_Beep(11,4,100)
_Beep(3,4,100)
_Beep(6,4,100)
_Beep(11,4,100)
_Beep(3,4,100)
_Beep(6,4,100)
_Beep(11,4,100)
_Beep(12,4,100)
_Beep(1,5,150,150)
_Beep(8,4,200,100)

_Beep(4,5,100)
_Beep(3,5,100)
_Beep(6,5,100)
_Beep(4,5,100)
_Beep(3,5,100)
_Beep(1,5,100)
_Beep(4,5,100)
_Beep(3,5,100)
_Beep(1,5,100)
_Beep(11,4,100)
_Beep(3,5,150,150)
_Beep(11,4,300,100)

_Beep(3,5,100)
_Beep(1,5,100)
_Beep(4,5,100)
_Beep(3,5,100)
_Beep(1,5,100)
_Beep(11,4,100)
_Beep(3,5,100)
_Beep(1,5,100)
_Beep(11,4,100)
_Beep(9,4,100)
_Beep(11,4,400,100)

_Beep(3,5,100)
_Beep(1,5,100)
_Beep(12,4,100)
_Beep(11,4,100)
_Beep(4,4,100)
_Beep(8,4,100)
_Beep(11,4,100)
_Beep(4,4,100)
_Beep(8,4,100)
_Beep(11,4,100)
_Beep(12,4,100)
_Beep(1,5,150,150)
_Beep(9,4,200,100)
_Beep(3,5,100)
_Beep(1,5,100)
_Beep(12,4,100)
_Beep(11,4,100)
_Beep(3,4,100)
_Beep(6,4,100)
_Beep(11,4,100)
_Beep(3,4,100)
_Beep(6,4,100)
_Beep(11,4,100)
_Beep(12,4,100)
_Beep(1,5,150,150)
_Beep(8,4,150,150)

_Beep(4,5,100)
_Beep(3,5,100)
_Beep(2,5,100)
_Beep(1,5,100)
_Beep(12,4,100)
_Beep(1,5,100)
_Beep(3,5,100)
_Beep(6,5,100)
_Beep(4,5,100)
_Beep(3,5,100)
_Beep(1,5,100)
_Beep(4,5,100)
_Beep(11,4,100)
_Beep(4,5,100)
_Beep(8,5,100)
_Beep(11,5,100)
_Beep(10,5,100)
_Beep(9,5,100)
_Beep(8,5,100)
_Beep(6,5,100)
_Beep(4,5,100)
_Beep(3,5,100)
_Beep(1,5,100)
_Beep(11,4,100)
_Beep(9,4,100)
_Beep(8,4,100)
_Beep(6,4,100)
_Beep(4,4,200)
Sleep(500)
Wend
EndFunc

Func _Beep($iNote,$iOctave=4,$iDuration=200,$iPause=0)
If $stop = 0 Then
    $iFrequency=440*2^(($iNote+$iTone)/12+$iOctave+1/6-4)
    Beep($iFrequency, $iDuration/$nTempo)
    If $iPause<>0 Then Sleep($iPause/$nTempo)
Else
    Return
EndIf
EndFunc

 

[edit] : je viens de jeter un oeil à ton code version 6.. c'est plus propre peut-être, mais je trouve que le code est plus difficile à appréhender...

[mikell]

edit : je viens de jeter un oeil à ton code version 6.. c'est plus propre peut-être, mais je trouve que le code est plus difficile à appréhender...

C'est l'array qui donne cette impression
L'inconvénient, c'est que tu n'as pas les repères que tu peux avoir quand les variables ont des noms explicites
L'avantage, c'est de pouvoir utiliser des boucles For pour traiter plusieurs éléments, dans ce cas les 3 labels

[mikell]

Edit du post n°1 pour l'ajout du mode horloge (et on ne garde que la version onevent)

Ce qui est fun avec ce mode horloge c'est que le countdown s'il est lancé continue à tourner en background, reste consultable et déclenche bien l'alarme au moment voulu même si c'est l'horloge qui est affichée
Côté gestion gui et évènements ça commence à devenir chaud ^^

[ani]

pas testé, pourquoi ne pas utiliser la fonction (api) timer au lieu du adlib ?

[mikell]

Précise ta pensée please
A quelle fonction tu penses ? il te plait pas le adlib ?

[ani]

j'ai aucune pensée.
F1 recherche timer.

je remarque que tu utilise le mousewheell, çà fonctionne pour certain, dans mon cas j'ai pas de roulette donc plouf.(j'ai bien 3bouton)

Pour le beep musical c'est bien mais çà use la pile (ce beep sert pour des alertes), pourqoi ne pas utiliser le protocol midi ?

Petite question: comment as tu obtenu les séquences de notes ?

[mikell]

j'ai aucune pensée.
F1 recherche timer.

Hé, si tu suggères qu'il y a mieux que le adlib, alors tu expliques ton idée, tu renvoies pas sur F1, quoi ^^

je remarque que tu utilise le mousewheell, çà fonctionne pour certain, dans mon cas j'ai pas de roulette donc plouf.

Remarque pertinente. Je vais tâcher d'intégrer les boutons flèche-haut et flèche-bas du clavier

Pour le beep musical c'est bien mais çà use la pile (ce beep sert pour des alertes), pourqoi ne pas utiliser le protocol midi ?

Pour que l'alarme marche même HP coupés voire carte son HS

Petite question: comment as tu obtenu les séquences de notes ?

Le lien est mentionné dans le code (fonction _Beep)

[Tlem]

je remarque que tu utilise le mousewheell, çà fonctionne pour certain, dans mon cas j'ai pas de roulette donc plouf.(j'ai bien 3bouton)

En 2013, une souris sans roulette !

@Mikell
Le mieux, serait sans doute de laisser tel quel et éventuellement pour ceux qui ont encore la vieille souris Microsoft en série (voir PS2 pour les plus récentes ) sans roulette, alors de rajouter les touches flèche haut et bas.

[Maurice]

Hello

ça vaut largement certains widget !
Le look fait alarme missile ancienne DDR, le son est à fond les ballons .... mais au moins
t'es prévenu quand le compteur est arrivé à terme.

Le script fonctionne très bien sur ordinateur portable et son touchpad.

Je regarde sous le capot, merci de ta contrib car je compte m'en servir pour surprendre
quelques collègues.

[mikell]

Merci

Edit du post n°1 : pour les antiquaïres qui n'auraient malencontreusement pas de roulette sur leur souris d'époque, ajout du réglage du temps par touches flèche haut et bas du clavier (avec le pointeur positionné sur mn ou sec, quand même, normalement ces souris en ont un)



Si qqun sait comment ne pas bloquer le déroulement du script (donc le décompte du countdown ou l'horloge) à l'ouverture du menu contextuel, je prends ^^
Seule solution pour l'instant, un contextmenu custom...

[sksbir]

.....
Si qqun sait comment ne pas bloquer le déroulement du script (donc le décompte du countdown ou l'horloge) à l'ouverture du menu contextuel, je prends ^^....

hébé, c'est juste une idée hein... Au lieu d'utiliser une variable interne qui mémorise le décompte, il faut faire le calcul à l'aide des fonctions timerinit, timerdiff &co... De cette façon, le countdown sera interrompu à l'ouverture du menu, mais il reprendra le décompte une fois le menu fermé exactement là où il en aurait été si on n'avait pas ouvert le menu, au lieu de reprendre là où il en était au moment de l'ouverture du menu.

Une autre solution consiste à utiliser la fonction adlibenable pour decrementer ton compteur si il est actif, et ne rien faire sinon ( d'ailleurs, si la fonction appelée dans adlibenable s'occupe aussi de la mise à jour graphique, ça fonctionnera peut-etre même si un menu est ouvert ? )

Après, il faut bien sûr gérer la fin de décompte alors même que le menu est encore ouvert et ce genre de choses.

@tlem : tous les touchpad de PC portable n'ont pas de roulette ! ça peut aussi servir aux utilisateurs nomades non ?

[Tlem]

@sksbir
Le touchpad d'un portable ne possède effectivement pas de roulette, mais fort heureusement les fabricants y ont pensé et ont rajouté une fonction similaire qui généralement s'appelle le défilement !!!

[mikell]

Après, il faut bien sûr gérer la fin de décompte alors même que le menu est encore ouvert et ce genre de choses.

Oui, ça + l'affichage bloqué c'est bien le problème, ake mémoriser le temps écoulé entre l'envoi du message WM_CONTEXTMENU et la fermeture du menu puis renvoyer ce temps dans le décompte ça c'est facile ^^


Edit du post n°1 : bon j'opte définitivement pour un contextmenu 'custom', finalement le look est très acceptable et ça ne bloque plus rien, ni horloge ni décompte

[mikell]

Edit du post n°1 pour l'ajout du mode timer hh:mm (réveil) et de la possibilité pour l'utilisateur de choisir un mp3 pour l'alarme

Sérieux, là je vois pas bien ce que je pourrais y faire de plus (vu que c'est un autre script qui fait le café)

[Tlem]

Il est toujours possible de demander de moudre le café ...
Un mode sleep par exemple.

Et après, il y a encore plusieurs autres choses de possible, jusqu'à en faire une usine à gaz ...

[mikell]

Bah
Le mode réveil était une demande du fiston, Il a installé Windows7 N et il lui manque des fichiers système pour faire marcher les petits softs de réveil habituels, et la fiabilité des réveils en ligne dépend de celle de la connexion
En plus cet ajout était logique puisqu'il y a un mode horloge
Mais en l'état le script est complet, éventuellement je fignolerai les fonctionnalités existantes - par exemple mémoriser le dernier mp3 utilisé par le script, ce genre de truc
D'autant plus que le choix d'avoir un minimum de controles (donc de les faire polyvalents) fait que le code est *déjà* une usine à gaz

[mikell]

Voilou
Mémorisation du dernier mp3 utilisé dans une clé "HKEY_CURRENT_USER\Software\coundown\Lastmp3"
Et là mon petit (?) script il est FINI