begin process at 2012 02 11 00:49:54
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Graphique

 > UNE HORLOGE BINAIRE

UNE HORLOGE BINAIRE


 Information sur la source

Note :
Aucune note
Catégorie :Graphique Classé sous :simple, clair, souple, efficace, runtime Niveau :Débutant Date de création :05/10/2008 Date de mise à jour :09/10/2008 11:28:19 Vu / téléchargé :5 087 / 321

Auteur : offlake

Ecrire un message privé
Commentaire sur cette source (20)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
a peu prés le même principe que le jeu de papillon!!
Utilisation de LED "" je fait référence a BACTERIUS ""
ça sert d'une horloge mais binaire

Avec la coopération de DEBIARS nous avons arrive a ce code plus optimisé


BY: OFFLAKE



 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

06 octobre 2008 10:46:09 :
INDENTATION
09 octobre 2008 11:28:20 :
VERSION PLUS OPTIMISE de binary clock MERCI DEBIARS

 Sources du même auteur

Source avec Zip Source avec une capture CASSE BRIQUES (( MON PREMIER JEU ))
Source avec Zip Source avec une capture DIAPORAMA « AVEC DES EFFETS PROFESSIONNELS »
Source avec Zip Source avec une capture LES TOURS DE HANOÏ (( MODE GRAPHIQUE UTILISATEUR / RÉSOLUTIO...
Source avec Zip Source avec une capture RÉSOLUTION D'UN SYSTÈME LINÉAIRE (( N ÉQUATIONS À N INCONNUS...
Source avec Zip Source avec une capture DJIKSTRA EN MODE GRAPHIQUE

 Sources de la même categorie

Source avec Zip Source avec une capture LE CERCLE ENCHANTÉ D'ANDRES GÎT EN NOS MÉMOIRES par Caribensila
Source avec Zip Source avec une capture COMPARATIF ALGO CERCLES par barbichette
Source avec Zip Source avec une capture RAYTRACING EN DELPHI (PROGRESSIVE PATH TRACING) par Bacterius
Source avec Zip Source avec une capture TEXTE SUR COURBE DE BEZIER par pseudo3
Source avec Zip Source avec une capture YEUXROUGES par pseudo3

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture DJIKSTRA EN MODE GRAPHIQUE par offlake
Source avec Zip Source avec une capture JEU DE PAPILLON SYMPA par offlake
Source avec Zip Source avec une capture SIMULATION D'UN LANCEMENT D'UN DÉ par offlake
Source avec Zip Source avec une capture SIMULATEUR DE DÉFAUT DE PAGE (( GESTION DE LA MÉMOIRE )) " O... par offlake
Source avec Zip Source avec une capture SIMULATEUR DU PREMIER ORDINATEUR par offlake

Commentaires et avis

Commentaire de JulioDelphi le 06/10/2008 09:17:08 administrateur CS

Hello ! Il y a 4 ans j'en ai fait une aussi, grâce à mon composant, 1 lignes de code suffit dans le projet ^^
Lien du composant en question : http://www.delphifr.com/codes/COMPOSANT-TDBPFONTIMAGE-IMAGE-TEXTE-PARTIR-STRING_25070.aspx
(dbpFontImage sert a transformer du texte en image via votre font en .bmp, il est basé sur un TImage.)
Lien de la source de ma binaryclock (avec .ex_) : http://diabloporc.free.fr/delphi/demos/binaryclock.zip

Ton code est énorme et les déclarations redondantes. L'idée est bon dans le fond mais la forme laisse à désirer.

Sans vouloir te voler la vedette, regarde un peu mon source (oui il faut mon composant mais le développement est plus "logique" que déclarer tout ça ^^)

Bon codage !

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:50:15

Pour le probléme de l'INDENTATION C FAIT

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 offlake le 06/10/2008 10:54:44

EN PLUS dans votre programme il manque un composants((  TdbpFontImage )) donc
j'ai pas le temps pour lui consacrer du temps!!

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 defis91 le 06/10/2008 16:05:52

En plus l'heure est fausse.
Dans le help l'exemple pour 20h donne 22 pour les leds
A 16h l'horloge affiche 3 pour les heures et non 4

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:41:55

Pour DEFIS91 :: mes Leds sont INVERSé

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

si C ça marche alors tant mieux

Commentaire de defis91 le 06/10/2008 18:12:55

Oui j'ai bien vu, mais le passage de l'heure ne se fait pas.
tout à l'heure, le passage de 15h59.59 à 16h laisse l'affiche des heures à 3 au lieu de 4.
Cordialement
Dom Efis.

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 defis91 le 06/10/2008 21:53:21

Offlake,
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


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

JE SUIS AUSSI UN DEVELOPEUR C/C++
OFFLAKE

Commentaire de offlake le 06/10/2008 23:24:29

Je suis entrain de publié mes mini projet fait durant l'année 2008/2007
les derniers sont déjà fait!!
c tune chose bien non?
Pour Bacterius
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 offlake le 08/10/2008 14:10:28

BON DEBIARS JE VAIS ESSAYER CELA
MERCI D'AVANCE
BY: OFFLAKE

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 !

Commentaire de offlake le 10/10/2008 01:35:46

THANKS
BY OFFLAKE

Commentaire de Bacterius le 10/10/2008 16:59:35

"Je suis entrain de publié mes mini projet fait durant l'année 2008/2007
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 !

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Runtime error 217 [ par Jos ] Bonjour, Lorsque je tente d'inclure un composant treelist, dans mon application, j'ai des problèmes. En effet, par la suite, au application.termina boucle thread simple exemple ! [ par fabiin ] Salut !Je cherche un exemple simple d'une boucle threadje n'est trouvé aucun tutorial français a ce sujet sur internet Merci par avance@+Fabs Enregistrer un richedit en TXT simple [ par nirousse ] Toujours pour mon éditeur de texte avec un RichEdit, J'ai remarqué qu'il me l'enregistre en rtf ou je ne sais pas trop quoi.Ce qui fait qu'il me rajou Ptite question toute simple [ par redfaction ] voila je dispose de 2 fichiers sous cette forme : rec1=record num:integer; nom acked array [1..25] of char;end;rec2=record num:inte Je pensais faire un Keylogger mais c pas si simple... [ par Youyou0214 ] je voudrais faire un keylogger mais je viens a peine de commencer et des problemes se posent deja. Je voulait que mon application demarre au demarrage Je pensais faire un Keylogger mais c pas si simple... [ par Youyou0214 ] je voudrais faire un keylogger mais je viens a peine de commencer et des problemes se posent deja. Je voulait que mon application demarre au demarrage Jeu de strategie avec directdraw [ par sebrs1 ] Tout d'abord, je vais vous expliquer ce que je veux fairec'est tout simple (enfin, simple a comprendre mais pas a faire)je voudrais faire un truc genr cryptage (simple ...) [ par sisi231 ] SISI231Bonjour ! ...J'aurais une petite question sur l'encodage ...J'ai vu sur un site : je ne me souviens plus duquel : peut-êtrecelui-là ... une mét Serveur FTP le plus simple possible [ par Smeito79 ] Sltest-ce que quelqu'un sait ou je peu trouver une source ou un tutoriel pour faire un serveur FTP?Il me faut vraiment le plus simple possible(c juste jai besoin daide pour le port // [ par damomospike ] boujour à tous!Je cherche une méthode simple d'envoyer un code binnaire sur les broches D0 à D7 du port parralelle, je sai que bocoup de personnes on


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 9,079 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales