HORLOGE FLOUE (POUR LES ADEPTE DE LINUX)

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 5 nov. 2004 à 13:15
MaxNazgul Messages postés 4 Date d'inscription lundi 14 mai 2007 Statut Membre Dernière intervention 18 juin 2007 - 18 juin 2007 à 11:09
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/27361-horloge-floue-pour-les-adepte-de-linux

MaxNazgul Messages postés 4 Date d'inscription lundi 14 mai 2007 Statut Membre Dernière intervention 18 juin 2007
18 juin 2007 à 11:09
c'est marrant ^^ merci
diablamanshadow Messages postés 419 Date d'inscription lundi 30 août 2004 Statut Membre Dernière intervention 28 janvier 2008
13 déc. 2005 à 12:16
je crois avoir trouver comment faire l'idee d'overflow est pas mauvaise maisun ptit truc a ajouter ^^ en gros tu met ta form en splash et tu la fou sur celle de windows tu recopie exactement celle de windows en petit tu vois donc une frm qui fait juste la taille de l'horloge windows ou tu met l'heure donc tu copie exactement celle de windows ^^ mais alors pk ton code j'y vient ^^ en gros une fois que ta t copier et mis sur la vraie horloge tu met que le tool tiptext du label qui affiche l'heure (comme windows) vienne ton chtit texte et ca passeras comme une "fausse" horloge windows avec u new toltiptext qui met ton petit message alors pour mettre a jour ton label qui affoche l'heure bah tu met un timer a intervalle 1000 (chaque seconde) qui dit un truc du genre lbl.caption = time qui remet a jour ton heure donc en gros tu fais une frm avec 1 timer et un label le label contien la vraie heure et le timer remet se label a jourpuis tu reconfigurer avec ce meme timer le tooltiptext de ce label et ses nikel ^^ comme sa tu peux le gfoutre no prob dans le systray ;-)

diablaman@hotmail.com
cs_wolfcyber Messages postés 78 Date d'inscription dimanche 22 février 2004 Statut Membre Dernière intervention 24 juillet 2005
8 nov. 2004 à 19:30
C marrant ;-)
Bonne idée !
cs_wolfcyber Messages postés 78 Date d'inscription dimanche 22 février 2004 Statut Membre Dernière intervention 24 juillet 2005
8 nov. 2004 à 19:30
C marrant ;-)
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
8 nov. 2004 à 09:09
tu dois pouvoir choper le handle de la barre de taches, et jouer avec un SetParent pour y coller ton controle.....
cboulas Messages postés 2641 Date d'inscription mercredi 2 juin 2004 Statut Membre Dernière intervention 8 janvier 2014 16
7 nov. 2004 à 15:51
Bon bjà au final, la source ne bougera plus, car j'ai chercher comment mettre du texte dans le systray et ce n'est pas possible à moins de posé x icones et là ça fait crade. j'ai chercher également à mettre à jour la base de registre dont une clé gère l'affichage de l'horloge mais il faut redémarrer le pc pour qu'il prenne en compte le nouveau texte, donc pas pratique de relancer toute les minutes. J'ai également chercher à modifier le texte de l'horloge en récupérant son Handle mais l'horloge réactualise trop rapidement pour prendre en charge et afficher le texte. J'ai même chercher à afficher du texte dans le barre de tache mais y'a pas moyen, donc la source ne risque plsu de trop bouger, je cherche encore une dernière méthode mais ce n'est pas sûr...
cboulas Messages postés 2641 Date d'inscription mercredi 2 juin 2004 Statut Membre Dernière intervention 8 janvier 2014 16
6 nov. 2004 à 19:48
lol, ce qui m'amuse c'est que je ne m'attendais pas à autant de succès de la pars de cette petite horloge.
Merci à tous
trcdl Messages postés 78 Date d'inscription jeudi 25 septembre 2003 Statut Membre Dernière intervention 25 juin 2007
6 nov. 2004 à 18:22
sympathique
bonnne idee
Saros Messages postés 921 Date d'inscription vendredi 20 décembre 2002 Statut Membre Dernière intervention 23 septembre 2010
6 nov. 2004 à 14:39
C'est clair :) original...
9/10 (le code est pas très clair :S)
MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 1
6 nov. 2004 à 12:37
Méga idée, ça fait beaucoup plus proche de l'utilisateur je trouve
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
5 nov. 2004 à 19:58
pas faux, jack, j'y pense jamais a celles-ci...
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
5 nov. 2004 à 19:34
lol
Pour ma part, j'aurai appris une nouvelle instruction : "Choose", je ne savais même pas que ça existait !

Pour les heures, minutes et secondes, il y a aussi les instructions Hour(Now), Minute(Now) et Second(Now)
cboulas Messages postés 2641 Date d'inscription mercredi 2 juin 2004 Statut Membre Dernière intervention 8 janvier 2014 16
5 nov. 2004 à 19:24
Ayé j'ai fait toutes les dernières modifs et ajout, merci Renfield pour le bout de code qui m'a permis d'apprendre +. Bref amusez vous bien avec les paramètres disponibles dans l'icône du systray.
cboulas Messages postés 2641 Date d'inscription mercredi 2 juin 2004 Statut Membre Dernière intervention 8 janvier 2014 16
5 nov. 2004 à 16:48
ovRflow> à cause de la taille du texte qui peux varié d'un minimum : 4 Caractère ("Midi") à par exemple : "Quinze heure moins le quart", mais c'est une bonne idée.
ovRflow Messages postés 42 Date d'inscription vendredi 2 août 2002 Statut Membre Dernière intervention 5 novembre 2004
5 nov. 2004 à 16:42
Pourquoi tu met pas tout simplement la form tjrs en premier plan é tu la place en ba a droite, c pas compliqué! Et comme ca tu masques l'horloge de windows avec la tienne!
Bon enfin c'était juste une ptite idée...
cboulas Messages postés 2641 Date d'inscription mercredi 2 juin 2004 Statut Membre Dernière intervention 8 janvier 2014 16
5 nov. 2004 à 15:35
J'y ai penser dans l'update que je mettrais on pourra règler les heure de déjeuner, diner, coucher, etc...
Mais c'est vrai tu as raison, linux le dit.

Pratique pour les fin de cours
cs_Blanc Messages postés 181 Date d'inscription dimanche 6 juillet 2003 Statut Membre Dernière intervention 16 octobre 2006
5 nov. 2004 à 13:46
C'est vachement cool d'avoir eu l'dée! Mais si je me trompe pas, linux dis aussi par exemple que c'est bientôt le week-end... Mais c'est pas mal!!!



Blanc
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
5 nov. 2004 à 13:15
ok pour le principe.

le code n'est pas top, pourtant...

les variables ne sont pas déclarées...

tu calcules inutilement des tas de fois la valeur

Val(Format(Now, "Nn"))


voici ce que cela aurait pu être :

Private Sub Timer1_Timer()
Dim H As Integer, M As Integer
H = DatePart("h", Now)
M = DatePart("n", Now)

Dim Heure As String, Min As String

Select Case M
Case 53 To 59
H = H + 1
Case 8 To 22
Min = " et quart"
Case 23 To 37
Min = " et demi"
Case 38 To 52
H = H + 1
Min = " moins le quart"
End Select

Heure = Choose(H + 1, "Minuit", _
"Une", _
"Deux", _
"Trois", _
"Quatre", _
"Cinq", _
"Six", _
"Sept", _
"Huit", _
"Neuf", _
"Dix", _
"Onze", _
"Midi", _
"Treize", _
"Quatorze", _
"Quinze", _
"Seize", _
"Dix-sept", _
"Dix-Huit", _
"Dix-Neuf", _
"Vingt", _
"Vingt et une", _
"Vingt deux", _
"Vingt trois")

If H 0 Or H 12 Then
Me.Caption = Heure & Min
Else
Me.Caption = Heure & " Heure" & Min
End If
End Sub


de plus, tu aurais pu tirer avantage d'un Select Case
Rejoignez-nous