Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 01:46:34

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

MACRO DANS EXCEL par PONTGUENNOU

RE : RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par jack

RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par liehuos001

RE : LORSQUE JE VEUX FAIRE LES ENREGISTREMENT DANS MA TABLE EN VB.NET UN MESSAGE S'AFFICHE EN ME DISANT QUE LE CHAMPS EST PETIT. QUE FAIE? par PCPT

RE : BUFFERING par pingouin84k

+ de logiciels à télécharger

1 464 966 membres
20 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 045 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

HORLOGE BINAIRE VOYANTE MAIS PAS EMBÊTANTE

Information sur la source

Catégorie :Date & Heure Classé sous : binaire, horloge, combinergn, getsetting, savesetting Niveau : Débutant Date de création : 15/03/2006 Vu / téléchargé: 8 038 / 555

Auteur : zemetafyzik

Site perso

Ecrire un message privé

Note :

8,67 / 10

Commentaire sur cette source (9)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Pour ceux qui n'on pas envie de lire, pour configurer le programme suffit de cliquer sur 1 des bouton de la 1 ere ligne pour quitter le prog, suffit de double cliquer sur les bouton du bas, et pour la deplacer, suffit de cliquer deplacer ^^

Bonjour, tout d'abord, sachez quej'ai regardé au dernier moment (quand mon prog etait finis) avant de regarder ce qu'il y avait sur le sujet sur VB france. Donc a mon avis aucune copie, en tout cas se serait pas fait expres ^^

Donc tout simplement, ce code permet d'afficher l'heure de maniere binaire, mais la ou elle est vraiment interressante c'est qu'il y a :
Cela s'adresse plutot au debutant, mais en meme temps, c'est pas expliqué comment je fais donc... a vous de voir

Utilisation d'un commonDialog pour choix des couleurs
Lecture et enregistrement dans la base de registre, pour les paramètres
Affichage au premier plan
Forme rectangulaire, ou elliptique
Decoupage de la forme pour ne garder plus que les "point" allumé, donc on a pas une grosse forme toute bete, mais une dizaine de point qui reste solidaire ^^ mais ne repose sur rien (ouai bon, de maniere plus simple et moin imagé, on voi que l'utile a la lecture de l'heure)
Donc declarations des API qui vont avec
Cliquer deplacer la forme nimporte ou (en cliquan n'importe ou sur la forme) tres pratique
Mode transparence
et convertion decimal to binaire, mais ça j'ai pas de merite, jai pas vraiment compris la fonction, mais elle marche :) merci a celui qui l'a programmée

L'heure se lit de maniere horizontal avec
en haut Heure
milieu Minute
bas Secondes

Je met le How to sur la capture avec l'image (ptite n'image paint)

Pour connaitre l'heure, il suffit d'additionner la valeur des point allumé, donc ici on a :
heure : 16 +4 + 2 +1 = 23 HEURES
minutes : 32+16+4+2+1= 55 MINUTES
secondes : 8+4=12 SECONDES
23:55:12

Cette idée m'est venu grace a un copain qui ma montré un site ou il vendait des montres affichage binaire,donc dans la possibilité que je m'en offre une, je prefere m'entrainer avant ^^ pour pas avoir l'air trop bete

Donc si il y a des bug, n'hesité pas ^^

Source

'Fonction de convertion du decimal en binaire, ne vient pas de moi, donc merci a la personne
'a laquelle je l'ai piqué (je ne lai toujours pas vraiment comprise)
Public Function DtoB(dec As Integer) As String
Do
DtoB = ("1" And dec Mod 2 = 1) & DtoB
dec = dec \ 2
If dec = 0 Then Exit Do
Loop
End Function

'Fonction de convertion du decimal en binaire, ne vient pas de moi, donc merci a la personne
'a laquelle je l'ai piqué (je ne lai toujours pas vraiment comprise)
Public Function DtoB(dec As Integer) As String
Do
    DtoB = ("1" And dec Mod 2 = 1) & DtoB
    dec = dec \ 2
    If dec = 0 Then Exit Do
Loop
End Function

Conclusion

Moi perso je la trouve magnifique ^^ sa doit etre parceque c'est mon premier prog ou je me sert d'API que jai a peu pres maitrisé (enfin je crois)

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

binary2.frm 7 574 octets
binary2.frx1 090 octets
binaryclock.frm 15 734 octets
binaryclock.frx1 090 octets
binaryclock.vbp 1 088 octets
binaryclock.vbw 128 octets
binaryclock1.bas 3 918 octets

Télécharger le zip

Sources du même auteur

CURSEUR QUI PASSE A TRAVERS LES BORDS, SI ON VA TOUT A DROIT...

BRAINUP (JEUX DE MEMOIR STYLE "SIMON" )

FIVE STONE (PUISSANCE 5, 225 CASES)

Toutes les sources de zemetafyzik

Sources de la même categorie

HORLOGE À AIGUILLES (RADIAN) par brainbass

HORLOGE BINAIRE A LEDS par Blodox

CHRONOMETRE par fredatcs

CALCUL HEURE DE NUIT par ocejade

CALENDRIER CONVERTISSEUR par Sechaud

Toutes les sources de la catégorie Date & Heure

Sources en rapport avec celle ci

HORLOGE À AIGUILLES (RADIAN) par brainbass

HORLOGE BINAIRE par Apolinaire

DUMP EDITEUR BINAIRE par deleplace

COMPTE À REBOUR par denpx

DIGITAL HORLOGE (CONTRÔLE UTILISATEUR) par Exploreur

Commentaires et avis

Commentaire de econs le 15/03/2006 16:53:21 administrateur CS

Salut,
Quelques petites remarques :

Commentaire pas en phase avec la ligne dans le Case si dessous (Inversion, vraiment pas grave)
----------------------------------------------------------------------------
'form rectangle
retour = SetWindowRgn(hwnd, CreateEllipticRgn(0, 0, 250, 130), True)
Case Is = 0
'form elliptique
retour = SetWindowRgn(Form1.hwnd, CreateRectRgn(20, 12, 213, 110), True)
----------------------------------------------------------------------------

---------le code ci dessous, un peu long ... -----------------------------
Select Case Val(premierplan)
Case Is = 1
lu = True
toujours devant
SetAlwaysOnTopMode (Form1)
Case Is = 0
lu = False
'pas toujours devant
SetAlwaysOnTopMode (Form1)
End Select
------------peut etre remplacé par------------------
lu=(Val(premierplan)=1)
SetAlwaysOnTopMode (Form1)
----------------------------------------------------
A noter que la ligne 'toujours devant' n'est pas commentée .. Aïe Aïe Aïe à l'exécution.

Dans la déclaration de procédure suivante, tu n'utilises pas le paramètre optionnel OnTop, donc il ne sert à rien :
------------------------------------------------------------
Sub SetAlwaysOnTopMode(hWndOrForm As Variant, Optional ByVal OnTop As Boolean = True)
------------------------------------------------------------

Pour certaines variables, on se demande où tu es allé chercher leur nom : Xx, aA, dd, dde, lu,..
Pour Hb, Mb, Sb , on peut comprendre leur signification en cherchant un peu.

Pour une parfaite lisibilité de ton code, pense à mettre des noms de variables comprehensibles.

A part ces petits détails, c'est plutôt bien. Sans doute un peu difficile de savoir si on est en retard ou pas en jetant un oeil dessus, mais bon, les amoureux du binaire apprécieront.

Pas testé car je n'ai pas VB sur mon poste, donc pas noté. Mais a priori, hormis le problème du commentaire manquant, çà devrait passer.
La variable 'forme' n'est définie nulle part, mais semble être de type String.

Commentaire de econs le 15/03/2006 17:04:09 administrateur CS

Oups ... dernière ligne pas mise au bon endroit.

Bref, quelques p'tits trucs à revoir sur les déclarations de variables (inexistants, ou mal fichues).

Exemple :

Public couleurtour As String
[...]
couleurtour=0

Y'a comme un problème ...

Commentaire de zemetafyzik le 15/03/2006 19:23:18

A ouai, j'avais meme pas tilter pour le "lu", seulement il est declarer en boolean, et plusieurs fois jai fait le test de leur assigner 0 ou 1 mais a chaque ile me dit que comme c'est un boolean, j'ai pas le droit.... (ou alors c'est moi qui divague totalment)
Ensuite, j'ai un peu compris les iif, donc je pense que je pourrait le remplacer par cela.

Pour ma défense, bon, tu ma absolument pas attaqué ^^, mais en faite, l'histoire c'est que je ne met jamais aucun commentaire (mauvaise habitude, surtout quand on reprend des vieux codes) j'ai fait un enormé effort, ensuite pour Hb Mb Sb, j'ai ecris clairement que c'etait heure binaire minute ... mais ça ta echapé, y a pas de mal.

Sinon, toutes mes variables sont déclarer dans le module, pourquoi en string ?
Parceque quand je reprend les valeur du registre, avec le getsetting, ça ressort sous chaine de caractere ? Donc j'avais peur d'un bug, par contre ce que je ne comprend pas, c'est que comme tu dis, je fais couleurtour=0 et la il ne me dit pas que j'ai pas le droit parceque c'est un String, pourquoi ?

Pour ce qui est des variable Xx, aA, dd, dde ce sont uniquement celle qui me sert au boucle, alors j'ai jugé plus rapide, apres, si c'est reellement utile pour ceux qui connaisse pas le code je veu bien faire un effort.

La variable lu, en fait c'est que je sais pas me servir des API, et le onTop me posait un soucis et finalement j'ai remplacer quelquepart le ontop par lu (qui est venu pour le test) et que je nai pas changé finalement :(

Merci pour ton comm, une MAJ s'impose, par contre je ne peux la faire dans peu de temps, faudra attendre

Si vous avez trouvé des bugs, ou besoin d'aide pour comprendre le code, n'hesité pas ^^

Commentaire de econs le 15/03/2006 23:19:26 administrateur CS

Il n'y avait effectivement pas d'attaque ^^

L'objectif est bien d'arriver petit à petit à quelquechose d'impeccable.
Et tu n'en es pas loin.

Commentaire de fullgore62 le 16/03/2006 11:14:53

Svp moi quand je telecharge le zip et que j'extrait tous, les fichiers sont d'un type inconnu ! il me demande de telecharger un logiciel pour pouvoir les lire ! Je dois faire coment svp ? merci ^^

Commentaire de Oueb le 16/03/2006 21:07:36

Salut Zmf ^^
Bravo pour ta ptite source, ayant été le principal beta testeur, et beta embeteur pour rester poli ...
Bon bah moi je voualis te féliciter tout de meme d'avoir méné ca a son terme malgré mon harcelement et nos nombreux déssacords sur certains principe, et le nombreux café bu au mac do pour avancer un peu ;)
Je plaide toujours pour une options pour changer le mode de lecteur comme sur les *autres* horloges binaires mais bon ... Bonne continuation sur Codes-sources, et a demain :p

Commentaire de Oueb le 16/03/2006 21:18:17

Ha au fait, si vous voulez la version compilée elle est *censée* etre sur son site ... ou alors il va se faire botter le derriere s'il ne le fait pas vite ;) Sinon maillez le si vous etes -gentils- ca doit pouvoir etre negociable.
Ps: Alors pour quand cette montre ? :)
Ps2: Pfuu désolé pour le double post, pas l'ahbitude pas de pouvoir editer, ni cross poster ;)

Commentaire de zemetafyzik le 17/03/2006 21:02:55

Moi je reste fervant admirateur du mode "horizontal" avec une seul ligne par heure minute seconde

Sinon je trouve sa trop facile a lire ^^ et tout de suite c'est moin gratifiant.

Commentaire de Julien39 le 18/03/2006 15:55:27

Désolé je ne peux pas voir ton horloge pour l'instant je n'ai plus de PC pour l'instant, celui que j'utilise n'a pazs VB donc patience dansue semaine le probleme sera reglé.
Je ne voit pas tellement ce que peut etre une horloge binaire même si j'ai une vague idée mais ne donne pas d'explication maintenant je ne pourrai pas les lire.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Savesettin and getsetting [ par alainisfce ] Bonjour à tous,Il s'agit de la fonction savesettingJe travail sur un Terminal server et 'ai stocker le chemin d'un fichier via cette fonction.Mais à Probleme avec Getsetting [ par fred2355 ] Bonjour,Je souhaite sauvegarder les infos de text1.text et Option1.enabled dans savesetting pour les recupperer plus tard via Getsetting.Comment devra Ajout de clef et de valeur binaire dans la base de registre [ par Olograph ] J'aimerais cree un programme qui permet automatiquement d'installer des nouvelles cléset valeur binaire...C'est pour lors de l'installation d'un jeux, lire fichier police (.ttf) en binaire ?? [ par FleX ] Bonjourdepuis deux jours je galere car je dois, avec VB, lire un fichier police de windows (.ttf) en binaire et recuperer le nom et le style de la pol lire un fichier police (.ttf) en binaire ? [ par FleX ] Bonjourdepuis deux jours je galere car je dois, avec VB, lire un fichier police de windows (.ttf) en binaire et recuperer le nom et le style de la pol base de registre lire une clé binaire [ par martienfou ] bha tt est ds le titre :p je cherche a lire une valeur binaire situé ds la base de registre++ & thx all insérer des données en binaire [ par hhalic ] J'aimerais pouvoir insérer des données dans un fichier image (EXIF)je connais l'offset où mettre mes données, tout tout...sauf que.... avec put, je n' GetSetting Aidez moi svp ! [ par cbjp85 ] Je n'arrive pas à utiliser la fonction getsettingJe voudrais arriver à obtenir le code msn qui se trouve à:Poste de travail\HKEY_CURRENT_USER\Software Horloge [ par Aigleduweb ] J?affiche l?heur dans menu principal de la base de données Access, mais elle reste figée à l?heur de lancement de la base. Comment faire pour l? incr fusion binaire [ par sebsoft ] est ce possible de fusionner deux fichiers en un ?si oui, comment faire pour recuperer les fichiers initiaux?mercisebsoft