Encore une horloge, avec date heure aiguilles

Soyez le premier à donner votre avis sur cette source.

Vue 14 565 fois - Téléchargée 1 991 fois

Description

C'est une simple horloge sans grande prétention. Elle donne l'heure, la date et possède un cadran à aiguilles.Si vous avez des commentaires à faire ou bien que vous trouvez une amelioration au code n'hésiter pas !! J'apprendrais surement beaucoup de choses.

Conclusion :


Trigo nécessaire

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_chicha42
Messages postés
1
Date d'inscription
samedi 27 août 2005
Statut
Membre
Dernière intervention
27 août 2005

27 août 2005 à 12:53
est-il possible de trouver cette pendule (ou du même style) quelque part ? ma grand mère en aurait fort besoin, la vieillesse n'aide pas à savoir quel jour nous sommes! si quelqu'un pouvait venir à mon secours... merci d'avance.
cs_mds
Messages postés
21
Date d'inscription
mardi 17 juillet 2001
Statut
Membre
Dernière intervention
19 août 2007

13 juin 2005 à 20:37
Option Explicit
'Remarque : Je vous propose de regarder ces quelques modifications _
sans prétention, ayant pour but de simplifier votre source.


Private Sub Form_Load()
Hide
Timer1_Timer
Show
End Sub

Private Sub Timer1_Timer()
Dim pi, i, x
pi = 3.141592
'n = Month(Date)

'1 - ) Avec <<Choose()>>
'x = Choose(Month(Date), "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")

'2 - ) Avec StrConv(<<MontName() >> <<WeenDay()>> <<Now>>)
x = StrConv(MonthName(Month(Now), True), vbProperCase)

'3 - ) Jour de la semaine...
Label2 = StrConv(WeekdayName(Weekday(Date) - 1), vbProperCase)

mois.Caption = Day(Date) & " " & x & " " & Year(Date)

If Hour(Time) >10 Then h.Caption Hour(Time) Else h.Caption = "0": Hour (Time)
If Minute(Time) >10 Then m(0).Caption Minute(Time) Else m(0).Caption = "0" & Minute(Time)
If Second(Time) >10 Then s.Caption Second(Time) Else s.Caption = "0" & Second(Time)

seconde.X2 = seconde.X1 + 2040 * Sin(pi / 30 * Second(Time))
seconde.Y2 = seconde.Y1 - 2040 * Cos(pi / 30 * Second(Time))

heurs.X2 = seconde.X1 + 2040 * Sin(pi / 30 * Minute(Time))
heurs.Y2 = seconde.Y1 - 2040 * Cos(pi / 30 * Minute(Time))

minutes.X2 = seconde.X1 + 1560 * Sin(pi / 6 * Hour(Time))
minutes.Y2 = seconde.Y1 - 1560 * Cos(pi / 6 * Hour(Time))

For i = 0 To 59
led(i).BackColor = &HFFFFFF
led(i).Left = seconde.Y1 - 3000 * Cos(pi / 30 * (i + 15))
led(i).Top = seconde.X1 - 3000 * Sin(pi / 30 * (i + 15))
If i Second(Time) Then led(i).BackColor &HFF&
If i Minute(Time) Then led(i).BackColor &HFF0000
If i Round(Hour(Time) - 12, 0) * 5 Then led(i).BackColor &HC0C0&

Next i
End Sub
' ------------------ _
Excellent code !!! _
Félicitations sincères. _
Persévérez ! _
------------------ _
MDS ;-)
cs_JLB59
Messages postés
140
Date d'inscription
jeudi 21 septembre 2000
Statut
Membre
Dernière intervention
16 août 2012

5 déc. 2004 à 20:12
J'ai voulu essayé le prg, mais il y a une erreur qui s'affiche :
"Erreut de compilation :
Procédure Sub ou Function non définie"

Vraiment dommage !
MadM@tt
Messages postés
2167
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
1
26 nov. 2004 à 21:57
si si moi j'y vois une utilité, ça peut bien sur servir, et c'est joli en +.
Je trouve ça super cool l'idée des carrés et des ronds qui se colorient le long du cercle
Sinon le reste reste classique, fond noir, affichage un peu terne.. enfin je trouve ça pas mal quand meme.
Tu devrait peut etre essayer de lui donner un design plus moderne mais c'est à toi de voir
JulioDelphi
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
14
26 nov. 2004 à 15:54
meme sous DOS j'ai l'heure avec mon prompt :p
le code est là pour le fond, non pour la forme :)
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.