Calendrier fait avec weekday(date), day(date)... fait aussi horloge

Soyez le premier à donner votre avis sur cette source.

Vue 6 886 fois - Téléchargée 796 fois

Description

C'est une horloge qui fait aussi Calendrier grace aux différentes fonction Weekday(date), day(date), month(date), year(date) puis pour l'horloge il utilise un timer qui a une intervalle d'une seconde pour le remettre a jour.

Source / Exemple :


Public sub downloadzip()
Dowload zip
Open zip for input #1
Read #1
Close #1
End sub

Conclusion :


Je remercie Vbfrance et MoteurProg pour les cours, les tutoriaux et les sources sur lesquelles j'ai pu m'appuyer pour créer ce programme.
Eh surtout n'hesitez pas a laisser des commentaires je les suivrait et ferait des MAJ en fonction mais pas avant le 26 aout car je pars en Vacances!
Voila je crois que c'est tout.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

tomitom07
Messages postés
16
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
22 janvier 2006

Ok merci, mais dans ce cas les fonctions citées plus haut ne sont pas utilisée et je voudrais les utilisé mais c'est vrai qu'au niveau optimisation ton code est loin devant
Tomitom
tomitom07
Messages postés
16
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
22 janvier 2006

Ok merci, mais dans ce cas les fonctions citées plus haut ne sont pas utilisée et je voudrais les utilisé mais c'est vrai qu'au niveau optimisation ton code est loin devant
Tomitom
cs_NISANDSYSTEMS
Messages postés
179
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
9 janvier 2010

Essaye plutot ceci

Option Explicit


Private Sub Timer1_Timer()
Dim He, Mn, Scd As Integer
Dim A$, H$, M$, S$
On Error Resume Next

A$ = "Il est : "
H$ = " Heure(s) "
M$ = " Minute(s) et "
S$ = " seconde(s) "

He = Format(Time, "hh")
Mn = Format(Time, "n")
Scd = Second(Now)

L1.Caption = A$ & He & H$ & Mn & M$ & Scd & S$

L2.Caption = "Nous sommes le: "
L2.Caption = L2.Caption + Format(Date, "dddd dd mmmm yyyy")

End Sub


@+
tomitom07
Messages postés
16
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
22 janvier 2006

N'hesitez pas a deposer vos commentaires et silvouplait quand vous me notez expliquez la raison de cette notation car sinon je ne peut rien faire pour améliorer mon programme!

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.