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 05 22:23:06

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

RE : PROBLEME DANS BASE DE DONNéES par Tursiop60

RE : PROBLEME DANS BASE DE DONNéES par PCPT

RE : FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

RE : PROBLEME DANS BASE DE DONNéES par Tursiop60

+ de logiciels à télécharger

1 464 879 membres
377 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 022 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 A AIGUILLE TOUTE SIMPLE

Information sur la source

Catégorie :Date & Heure Niveau : Débutant Date de création : 18/06/2004 Vu / téléchargé: 8 666 / 1 656

Auteur : NHenry

Site perso

Ecrire un message privé

Note :

5,00 / 10

Commentaire sur cette source (15)

Ajouter un commentaire et/ou une note

Description

Cette horloge permet de voir une form transparante, les auguilles se deplacent continuellement, sans accous.

Conclusion

Pas de bug detect

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 !

VB6
- tests
  - horloge
    - Form1.frm 4 350 octets
    - Form1.frx44 110 octets
    - Horloge S.bmp 44 098 octets
    - Horloge S-.bmp 44 098 octets
    - Horloge SM.bmp 44 098 octets
    - Horloge.bmp 44 098 octets
    - HorlogeAiguille.exe69 632 octets
    - MdlWindowRegion.bas 2 911 octets
    - Projet1.vbp 696 octets
    - Projet1.vbw 94 octets

Télécharger le zip

Sources du même auteur

CHANGEMENT DE LETTRE D'UN LECTEUR (XP & 2000)

LECTEUR MP3 + AFFICHAGE DU TEXTE DU TITRE

[.NET2] DIFFÉRENCE ENTRE 2 DOSSIERS

CUTTOKEY GESTION DES COPIES MULTISUPPORTS

MESSAGEBOX D'ERREUR COMPLET

Toutes les sources de NHenry

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

Commentaires et avis

Commentaire de zemetafyzik le 24/05/2006 21:45:02

merci d'avoir mis "simplement" la formule pour dessiner les aiguilles avec les cos et sin ... je n'arrivais pas a la trouver en reflechissant...

Commentaire de NHenry le 29/05/2006 08:27:47

Merci, j'ai aussi chercher un moment avant de la trouvée.

Commentaire de Eastchild le 18/09/2007 13:27:26

Tiens, j'vais pouvoir m'amuser à me faire "les gadgets" de Vista sous Xp :D

Commentaire de Sinsitrus le 09/04/2008 04:38:33 6/10

Salut

J'ai inséré ce code dans ma form mais je souhaiterais faire afficher les aiguille au centre de mon image de 1770*1770 situé au top = 6285 et au left = 13965
Je n'arrive pas à centrer les aiguille à ce point là !

pouvez vous m'aider svp ?

Voir image pour explications :
http://img88.imageshack.us/img88/1183/sanstitre2gp9.gif

Merci de m'aider

Commentaire de NHenry le 09/04/2008 09:07:20

Bonjour,

Tu as 2 variables dans :

# Private Sub DrawAiguille(ByVal Value As Double, ByVal Max As Double, ByVal Longu As Double)
# Dim X As Double
# Dim Y As Double
# X = Sin((Value / (Max / 2)) * PI) * Longu + CentreX
# Y = Cos((Value / (Max / 2)) * PI) * (0 - Longu) + CentreY
# Line (CentreX, CentreY)-(X, Y)
# End Sub

CentreX et Centre Y, c'est celles-la qu'il faut modifier.

Enfin je penses, ça fait tellement longtemps que je n'ai pas touché à cette source ;)

Commentaire de NHenry le 09/04/2008 13:59:37

Message envoyé en pv :
Merci beaucoup pour la réponse !
J'ai essayé ce code encore ce matin mais je crois qu'il y'a une erreur que je n'arrive pas à gérer.
Il est 7:55 chez moi mais ta source m'affiche 4:55

J'ai modifier :
Const CentreX As Double = 60
Const CentreY As Double = 60
pour centrer les aiguilles, c'était là le truc, mais vois l'erreur qu'il me donne :s

Pourrais tu m'indiquer stp ?

Réponse :

Comment tu appel la fonction (avec le traitement de l'heure) ?

Commentaire de Sinsitrus le 10/04/2008 02:10:02

J'ai laissé le "Timer1" et le "Pict" et je n'ai recopié que ce bout de code :
http://img233.imageshack.us/img233/4614/codehorlogehe1.jpg

J'ai supprimé le module et tout le reste du code.

En fait, quand le laisse la page ouverte, l'heure n'avance pas. Mais si je ferme et la réouvre, il m'indique la bonne heure.
Je l'ai donc laissé sous test hier matin à 3:30 et me suis levé à 7:55 et je vois que la fenêtre restée active toute la nuit m'affiche 4:55

Ce soit j'ai fermé l'appli et l'ai réouvert, j'ai eu l'heure juste.
Je le laisse encore ouvert cette nuit pour savoir et mieux être fixé.
Il est 00:07 (à l'ouverture du logiciel
Il sera ..... (à mon réveil)

Commentaire de Sinsitrus le 10/04/2008 02:19:32

J'ai essayé un truc !
J'ai ouvert l'horloge Windows et j'ai regardé attentivement les aiguilles.
Les minutes et les secondes sont justes face à l'image alors que l'heure est plus lente.
Supposons qu'il est 00:15
Si je change l'heure à 1:30, il me donnera 00:30 (affichage horloge normal), donc l'heure est plus lente et ne fait pas le tour normalement.

C'est certainement de là que vient l'erreur je crois.

Commentaire de NHenry le 10/04/2008 09:29:27

Bonjour,

En effet, une erreur idiote (pas d'autre mot sur le clavier pour la qualifier) :

Dans la procédure du Timer :
DrawAiguille Heures, 24, 30

En clair, l'aiguille des heures fait un tour en 24h et non 12 :/
correction :
DrawAiguille Heures, 12, 30

Commentaire de Sinsitrus le 10/04/2008 19:18:23

C'est parfait ! Tout fonctionne super bien ! Merci Bokou ^^
Au fait, c normal que mes images de ma form clinotent a chaque fois que la seconde tourne ?

Commentaire de NHenry le 11/04/2008 08:43:11

Bonjour,

Oui, si tu n'as pas activer le "AutoRedraw" du conteneur de l'image.

Commentaire de Sinsitrus le 11/04/2008 15:28:29

Excuse moi je n'ai pas bien saisi, l'autoredraw n'existe pas ni dans ta source ni dans les propriétés de l'option "image"...

Commentaire de NHenry le 11/04/2008 15:41:56

Bonjour,

Non, c'est une propriété de la form, PictureBox et autres contrôles pouvant contenir des images.

Commentaire de Sinsitrus le 11/04/2008 16:55:00

C'est exécuté, mais toujours pareil, les images clignotent :/

Commentaire de NHenry le 14/04/2008 14:35:57

Bonjour,

En VB6, si ton image clignote c'est que soit tu n'a pas mis AutoRedraw=True au bon controle, soit il y a un pb ailleurs, mais dans ce cas, je ne peux rien sans avoir le code (voir sur le forum pour rechercher une explication).