UNE HORLOGE BINAIRE

Commentaire de JulioDelphi le 06/10/2008 09:28:50 administrateur CS

Aussi, le code est mal indenté, les blocks begin/end ne sont pas clairs.

if Nr1[hr,i]='1' then HrImg[i].Picture.Bitmap.LoadFromResourceName(hinstance,'ledOn')
else
HrImg[i].Picture.Bitmap.LoadFromResourceName(hinstance,'ledOff');

Aurait pu etre remplacé par :

HrImg[i].Picture.Bitmap.LoadFromResourceName(hinstance,'led_'+Nr1[hr,i])
si les déclarations des ressources led avaient été différentes (led_1 et led_0).

C'est quoi ce timer qui incrémente des secondes ??
D'après ce que je comprends, si je lance l'appli à 12:00:20, l'horloge binaire va m'indiquer 12:00:00 puis à 12:00:25, elle va indiquer 12:00:05, me trompe-je ?
Il faut vérifier l'heure actuelle et non pas compter sur un timer pour ces choses là :O

Enfin, là au moins, pas de compo externe il me semble ^^

Commentaire de offlake le 06/10/2008 10:51:01

Moi je trouve que le principe est plus expert que le votre!!
BY OFFLAKE

Commentaire de JulioDelphi le 06/10/2008 11:04:23 administrateur CS

Oui c'est le probleme de mon source : il faut mon composant (je l'ai dit dans le 1er poste).

EN fait, nous avons tous les deux fait une horloge binaire avec 2 méthodes très différentes, et c'est très interessant de voir les 2 qui mènent au meme résultat !

Commentaire de JulioDelphi le 06/10/2008 16:25:00 administrateur CS

Mes leds sont dans l'autre sens par rapport a toi (Vertical pour moi) ^^
moi c'est : (je mets un - pour les leds jamais utilisées)
-o-o-o
-ooooo
oooooo
oooooo
HHMMSS
H= heure
M= minute
S= seconde
Toi tu l'as fait dans l'autre sens, ça marche aussi !

Commentaire de offlake le 06/10/2008 17:42:58

si C ça marche alors tant mieux

Commentaire de Bacterius le 06/10/2008 19:06:01

Dis donc OffLake du calme sur les sources ^^ tu vas nous écraser ! C'est 2 par jour maintenant !
Essaye déjà d'apprendre et d'améliorer tes précédentes sources avant de nous en balancer d'autres ...

Cordialement, Bacterius !

Commentaire de offlake le 06/10/2008 23:03:32

JE SUIS AUSSI UN DEVELOPEUR C/C++
OFFLAKE

Commentaire de Debiars le 08/10/2008 11:50:27

@Offlake : pas mal ton Horloge...
un p'tit défaut mais de taille : les valeurs binaires tout comme les valeurs hexa s'affichent en commençant à droite, par exemple :
    1  =  0001
    3  =  0011

Et pas la peine de créer des constantes pour les 60 valeurs binaires, essaye la procédure suivante :
  
procedure TForm1.Byte2Bin(num : byte);
var i,b : byte;
    bv : array[0..5] of byte;
begin
  b := num;
  bv[5] := b and 1;
  for i := 4 downto 0 do
  begin
     b := b shr 1;
     bv[i] := b and 1;
  end;
  lab.Caption := '';
  for i := 0 to 5 do lab.Caption := lab.Caption + inttostr(bv[i]);
  end;

Les valeurs du tableau bv te permettent d'allumer ou non une led...

Commentaire de Bacterius le 09/10/2008 16:13:15

Ben déjà c'est vachement mieux codé par rapport à tes autres sources.
Le principe en lui-même ... bon ... une horloge binaire ... ok mais c'est toujours plus lisible en décimal :)
Mais le raisonnement et la technique sont interessantes ici
Peut-être un petit peu plus de commentaires ;)
Je suis déçu tu n'as pas utilisé ma Led :'( non je rigole ^^
On sent que le niveau des simulations remonte petit à petit.

Cordialement, Bacterius !