Mini pendule numérique en 30 lignes

[Marc56]

Exemple de mini pendule numérique.

• Bouton gauche pour déplacer
• Clic droit pour fermer

Facile à modifier.

Code : Tout sélectionner

EnableExplicit

Enumeration 
    #Win
    #Timer
    #Txt_Timer
EndEnumeration

OpenWindow(#Win, 0, 0, 120, 28, "", #PB_Window_BorderLess | #PB_Window_ScreenCentered)
AddWindowTimer(#Win, #Timer, 1000)
TextGadget    (#Txt_Timer, 0, 0, WindowWidth(#Win), WindowHeight(#Win), "", #PB_Text_Center)
SetGadgetColor(#Txt_Timer, #PB_Gadget_BackColor, RGB(173, 255, 47))
SetGadgetFont (#Txt_Timer, FontID(LoadFont(#PB_Any, "Verdana", 16, #PB_Font_Bold)))

Repeat
    Select WaitWindowEvent()
        Case #PB_Event_Timer
            If EventTimer() = #Timer
                SetGadgetText(#Txt_Timer, FormatDate("%hh:%ii:%ss", Date()))
            EndIf
            
        Case #WM_LBUTTONDOWN
            SendMessage_(WindowID(#Win), #WM_NCLBUTTONDOWN, #HTCAPTION, 0) 
            
        Case #PB_Event_RightClick
            End
    EndSelect
ForEver

End

Oui, SPH ce sera intégré à la prochaine version.

[falsam]

SPH va être content

[Ar-S]

La même en non blocante si on bouge la fenêtre et en affichage dès qu'elle s'ouvre (pas au bout de la 1ère seconde)

Code : Tout sélectionner

Enumeration 
    #Win
    #Timer
    #Txt_Timer
EndEnumeration


Procedure ShowTime()
  SetGadgetText(#Txt_Timer, FormatDate("%hh:%ii:%ss", Date()))
EndProcedure

Procedure MoveWin()
    SendMessage_(WindowID(#Win), #WM_NCLBUTTONDOWN, #HTCAPTION, 0) 
EndProcedure
          
OpenWindow(#Win, 0, 0, 120, 28, "", #PB_Window_BorderLess | #PB_Window_ScreenCentered)
StickyWindow(#win,1)
TextGadget    (#Txt_Timer, 0, 0, WindowWidth(#Win), WindowHeight(#Win), "", #PB_Text_Center)
SetGadgetColor(#Txt_Timer, #PB_Gadget_BackColor, RGB(173, 255, 47))
SetGadgetFont (#Txt_Timer, FontID(LoadFont(#PB_Any, "Verdana", 16, #PB_Font_Bold)))
SetGadgetText(#Txt_Timer, FormatDate("%hh:%ii:%ss", Date()))
AddWindowTimer(#Win, #Timer, 1000)
BindEvent(#PB_Event_Timer,@showTime())

Repeat
  ev = WaitWindowEvent()
  
  If ev = #WM_LBUTTONDOWN
    MoveWin()
  EndIf
  
Until ev = #PB_Event_RightClick

End

[SPH]

Hi !

Ouai, je suis content. Je pourrais presque n'utiliser que ce code; cela me conviendrait.

Je patienterais quand meme jusqu'a l'ajout dans ACME. Pis ya le calendrier qui m'interesse...

THX