PureBasic

Bonjour à tous,

n'ayant plus de grand projet en ce moment, je me suis amusé a créer un petit programme d'horloge pour refaire connaissance avec les sprites et je m'aperçoit que j'ai encore des lacunes.

Je vous l'offre, vous pouvez donc le modifier à votre guise, et je suis sûr qu'il y a pas mal à refaire.

https://www.dropbox.com/sh/nhtdja07e9z5 ... QbWca?dl=0

Bonjour Micoute,

Elle est jolie ton horloge, mais il y a un problème sur les heures > 12: il est 17h et l'aiguille des heures reste à 12H.

Tu pourrais libérer du CPU en ne rafraichissant l'affichage qu'une fois par seconde (avec un timer)

Il y a aussi les fonctions Hour(), Minute(), Second() qui permettent de traiter sans passer par les chaines.

Voici le bloc central corrigé du problème de l'heure > 12 et utilisant les fonctions de date sans conversion de chaine

Code : Tout sélectionner

  xs = Second(Date())   ; xsec.s    = FormatDate("%ss", Date())
  xm = Minute(Date())   ; xmin.s    = FormatDate("%ii", Date())
  xh = Hour  (Date())   ; xheure.s  = FormatDate("%hh", Date())
  
  If xh > 11
      xh - 12 
      h = (xh * 60 + xm) / 2
  Else  
      h = (xh * 60 + xm) / 2 ; système 12 h
  EndIf
  
  s = xs * 6
  m = (xm * 60 + xs) / 10

(Il faut vraiment que je me mette aussi aux sprites un jour)

Merci Marc56,

j''utilise maintenant les fonctions natives de PB et j'ai mis un minuteur.

Elle a de la gueule ton horloge, on dirait presque une marque de luxe

Dommage qu'elle soit pas en incrustation, mais c'est déjà cool
Merci du partage

PureBasic

Horloge pour écran

Horloge pour écran

Re: Horloge pour écran

Re: Horloge pour écran

Re: Horloge pour écran