ENCORE UNE HORLOGE, AVEC DATE HEURE AIGUILLES
spy166
Messages postés
207
Date d'inscription
jeudi 21 novembre 2002
Statut
Membre
Dernière intervention
29 mars 2006
-
25 nov. 2004 à 21:07
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
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
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/27821-encore-une-horloge-avec-date-heure-aiguilles
https://codes-sources.commentcamarche.net/source/27821-encore-une-horloge-avec-date-heure-aiguilles
27 août 2005 à 12:53
13 juin 2005 à 20:37
'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 ;-)
5 déc. 2004 à 20:12
"Erreut de compilation :
Procédure Sub ou Function non définie"
Vraiment dommage !
26 nov. 2004 à 21:57
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
26 nov. 2004 à 15:54
le code est là pour le fond, non pour la forme :)
25 nov. 2004 à 21:07