Horloge pour écran

Programmation d'applications complexes
Avatar de l’utilisateur
Micoute
Messages : 2522
Inscription : dim. 02/oct./2011 16:17
Localisation : 35520 La Mézière

Horloge pour écran

Message par Micoute »

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
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73 PB 6.00 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Marc56
Messages : 2146
Inscription : sam. 08/févr./2014 15:19

Re: Horloge pour écran

Message par Marc56 »

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. :o

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

:idea: 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)

:wink:
Dernière modification par Marc56 le lun. 29/juin/2020 17:18, modifié 1 fois.
Avatar de l’utilisateur
Micoute
Messages : 2522
Inscription : dim. 02/oct./2011 16:17
Localisation : 35520 La Mézière

Re: Horloge pour écran

Message par Micoute »

Merci Marc56,

j''utilise maintenant les fonctions natives de PB et j'ai mis un minuteur.
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73 PB 6.00 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Avatar de l’utilisateur
Kwai chang caine
Messages : 6962
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: Horloge pour écran

Message par Kwai chang caine »

Elle a de la gueule ton horloge, on dirait presque une marque de luxe 8O
Dommage qu'elle soit pas en incrustation, mais c'est déjà cool
Merci du partage 8)
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Répondre