Heure en temps réél ?

[S_E]

Bijour ^^
Ce serai pour savoir si vous s'avez pas comment faire pour aficher l'heure (Hs) sans fenetre, juste l'heure avec un ptit bouton pour quitter ^^

Merci

[Dr. Dri]

Et tu le mets où le bouton si c'est pas sur une fenêtre ?
Essaye d'être plus clair

Dri

[S_E]

ben je ferai une image avec une croix et il clic et sa ferme lool gestionnaire d'evenement facile ^^

[Jacobus]

...


Tiens j'ai fais ce petit "TimeBackGround" pour un de mes progs
ça devrait pouvoir te servir. Ya pas de bouton du tout, mais il y a une fenêtre
Fais en un exe et colle l'icône sur le bureau en raccourci ou encore mets l'icône dans le systray.

Code : Tout sélectionner

;Time BackGround - PB4
;Affiche une mini fenêtre avec la date et l'heure
;pendant 5 sec avant de se refermer toute seule

Enumeration
#win_timer
#TimeTexte
#DateTexte
EndEnumeration
If OpenWindow(#win_timer,0,0,160,75,"Time...",#PB_Window_ScreenCentered)
    If CreateGadgetList(WindowID(#win_timer))
      
      LoadFont(0, "Comic Sans MS", 20, #PB_Font_Bold) 
      
      TextGadget(#TimeTexte, 10,10,140,25,FormatDate("%hh : %ii : %ss", Date()),#PB_Text_Border|#PB_Text_Center)
      SetGadgetColor(#TimeTexte, #PB_Gadget_BackColor, RGB($0,$0,$0))
      SetGadgetColor(#TimeTexte, #PB_Gadget_FrontColor, RGB(86, 201, 166))
      SetGadgetFont(#TimeTexte,0)
      
      TextGadget(#DateTexte, 10,40,140,25,FormatDate("%dd - %mm - %yyyy", Date()),#PB_Text_Border|#PB_Text_Center)
      SetGadgetColor(#DateTexte, #PB_Gadget_BackColor, RGB($0,$0,$0))
      SetGadgetColor(#DateTexte, #PB_Gadget_FrontColor, RGB(227, 191, 26))
      SetGadgetFont(#DateTexte,0)
      
        For T = 1 To 5 ; pendant 5 sec
           SetGadgetText(#TimeTexte,FormatDate("%hh : %ii : %ss", Date()))
           Delay(1000); toute les 1 sec actualisation de l'affichage
        Next T
        
          CloseWindow(#win_timer)
        FreeFont(0)
   EndIf 
  EndIf 
  End 

(j'ai édité pour modifier SetGadgetFont(#DateTexte,0) je me suis aperçu que j'utilisais un autre numéro de police. Comme je l'ai extrait d'un autre code...)

@+ Jacobus

[S_E]

Merci beaucoups ^^ mais il bug ton code chez moi, et comme je suis encore un NOOB en fenetre ^^ tu saurai corriger merci

Code : Tout sélectionner

Ligne 10 : Bad parameter type: a string is expected

LIGNE 10 :

If OpenWindow(#win_timer,0,0,160,75,"Time...",#PB_Window_ScreenCentered)

[Guimauve]

Merci beaucoups ^^ mais il bug ton code chez moi, et comme je suis encore un NOOB en fenetre ^^ tu saurai corriger merci

Code : Tout sélectionner

Ligne 10 : Bad parameter type: a string is expected

LIGNE 10 :

If OpenWindow(#win_timer,0,0,160,75,"Time...",#PB_Window_ScreenCentered)

Avec quel version de PB travaille-tu ?

Parce que si tu travaille avec la version 3.94, le OpenWindow est différent qu'avec la version 4.00.

Si avec PB V3.94

Code : Tout sélectionner

OpenWindow(#win_timer,0,0,160,75,#PB_Window_ScreenCentered,"Time...")

Si avec PB V4.00

Code : Tout sélectionner

OpenWindow(#win_timer,0,0,160,75, "Time...",#PB_Window_ScreenCentered)

A+
Guimauve

[SPH]

Et bien, vivement que PB V4 soit fini, stable et sorti car meme tes corrections ne fonctionnent pas. Je ne te jette aucune pierre, je dis juste que pour les noob et les moins noob, ce n'est pas facile...

[S_E]

merciii, j'ai la 3.94

Maintenant j'ai un autre bug ^^

Code : Tout sélectionner

Ligne 16 : SetGadgetColor() is not a function, an array, or a linked list

LIGNE 16 :

Code : Tout sélectionner

      SetGadgetColor(#TimeTexte, #PB_Gadget_BackColor, RGB($0,$0,$0))

[/b]

Désoler je suis un vrai noob^^

ps : la v4.0 vaut le coups ?

[Guimauve]

merciii, j'ai la 3.94

Maintenant j'ai un autre bug ^^

Code : Tout sélectionner

Ligne 16 : SetGadgetColor() is not a function, an array, or a linked list

LIGNE 16 :

Code : Tout sélectionner

      SetGadgetColor(#TimeTexte, #PB_Gadget_BackColor, RGB($0,$0,$0))

[/b]

Désoler je suis un vrai noob^^

ps : la v4.0 vaut le coups ?

Cette fonction n'est pas disponible dans la version 3.94. Met un point-virgule au début de cette ligne.

Si la V4.00 vaut le coup. Réponse oui même s'il y a encore des petits bobo à corriger.

Et bien, vivement que PB V4 soit fini, stable et sorti car meme tes corrections ne fonctionnent pas. Je ne te jette aucune pierre, je dis juste que pour les noob et les moins noob, ce n'est pas facile...

Quel(s) message(s) d'erreur le compilateur t'envoi quand tu compile le code ?

Parce que sans indication personne ne peut faire quoique ce soit.

A+
Guimauve

[AWEAR]

...

[Jacobus]

Désolé, je pensais pas que cela poserai des problèmes. Comme l'a dit Guimauve il y a des fonctions qui ont été modifiées pour la v4 et des paramètres inversés dans d'autres.

Voici une correction pour fonctionner avec PB 3.94
(Le même sans les couleurs)

Code : Tout sélectionner

;Time BackGround - PB 3.94
;Affiche une mini fenêtre avec la date et l'heure
;pendant 5 sec avant de se refermer toute seule

Enumeration
  #win_timer
  #TimeTexte
  #DateTexte
EndEnumeration
If OpenWindow(#win_timer,0,0,160,75,#PB_Window_ScreenCentered,"Time...")
  If CreateGadgetList(WindowID(#win_timer))
    
    LoadFont(0, "Comic Sans MS", 20, #PB_Font_Bold) 
    
    TextGadget(#TimeTexte, 10,10,140,25,FormatDate("%hh : %ii : %ss", Date()),#PB_Text_Border|#PB_Text_Center)
    SetGadgetFont(#TimeTexte,0)
    
    TextGadget(#DateTexte, 10,40,140,25,FormatDate("%dd - %mm - %yyyy", Date()),#PB_Text_Border|#PB_Text_Center)
    SetGadgetFont(#DateTexte,0)
    
    For T = 1 To 5 ; pendant 5 sec
      SetGadgetText(#TimeTexte,FormatDate("%hh : %ii : %ss", Date()))
      Delay(1000); toute les 1 sec actualisation de l'affichage
    Next T
    CloseFont(0)
    CloseWindow(#win_timer) 
  EndIf 
EndIf 
End 

Là si ça bug, comprend pas
(Il se peut que le debugger cause des soucis, le mieux est donc de créer un exécutable pour voir le résultat)
@ S_E : Pour insérer ce code dans un programme plus complexe, il suffit de le mettre en procédure en enlevant le "End" de fin. Procedure qui pourra être appellée dans la boucle d'évènements.