UNE HORLOGE BINAIRE
JulioDelphi
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Membre
Dernière intervention
18 novembre 2010
-
6 oct. 2008 à 09:17
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 - 10 oct. 2008 à 16:59
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 - 10 oct. 2008 à 16:59
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/48126-une-horloge-binaire
https://codes-sources.commentcamarche.net/source/48126-une-horloge-binaire
10 oct. 2008 à 16:59
les derniers sont déjà fait!!"
Non c'est pas une bonne chose : tu n'es pas ici pour poster tes projets et qu'on te dise "woah !". Tu dois garder à l'esprit que tes sources doivent servir à quelque chose.
Le screenshot ne fait pas le code.
Cordialement, Bacterius !
10 oct. 2008 à 01:35
BY OFFLAKE
9 oct. 2008 à 16:13
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 !
8 oct. 2008 à 14:10
MERCI D'AVANCE
BY: OFFLAKE
8 oct. 2008 à 11:50
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...
6 oct. 2008 à 23:24
les derniers sont déjà fait!!
c tune chose bien non?
Pour Bacterius
OFFLAKE
6 oct. 2008 à 23:03
OFFLAKE
6 oct. 2008 à 21:53
Gros bugs de logique dans la fonction timer
pour un affichage correct, je vous propose :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=FormatDateTime('hh:mm:ss',Time);
Sec:=strtoint(copy(Label1.Caption,7,2));
Min:=strtoint(copy(Label1.Caption,4,2));
Hr:=strtoint(copy(Label1.Caption,1,2));
FindSec(Sec);
FindMin(Min);
FindHour(Hr);
end;
Cordialement
Dom EFIS
6 oct. 2008 à 19:06
Essaye déjà d'apprendre et d'améliorer tes précédentes sources avant de nous en balancer d'autres ...
Cordialement, Bacterius !
6 oct. 2008 à 18:12
tout à l'heure, le passage de 15h59.59 à 16h laisse l'affiche des heures à 3 au lieu de 4.
Cordialement
Dom Efis.
6 oct. 2008 à 17:42
6 oct. 2008 à 17:41
6 oct. 2008 à 16:25
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 !
6 oct. 2008 à 16:05
Dans le help l'exemple pour 20h donne 22 pour les leds
A 16h l'horloge affiche 3 pour les heures et non 4
6 oct. 2008 à 11:04
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 !
6 oct. 2008 à 10:54
j'ai pas le temps pour lui consacrer du temps!!
6 oct. 2008 à 10:51
BY OFFLAKE
6 oct. 2008 à 10:50
6 oct. 2008 à 09:28
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 ^^