Petite pendulette discrète

Sujet: Petite pendulette discrète Mer 14 Jan 2015 - 21:28

Digitale, lancée chez moi à l'allumage du pc en haut à droite de l'écran, et ensuite déplaçable où on veut (ou supprimable):

Je sais il y a déjà l'horloge windows en bas à droite, mais assez illisible pour mes vieux yeux, et il n'y a pas le nom du jour...
Pour le lancement automatique il faut évidemment en faire un exécutable.
Rien de révolutionnaire, c'est tout simple et sans prétention:

Code:: LABEL Fin
DIM hm$,s$,hms$,ss$,x%,y%,xa%,ya%,a%,m%,j%,js$,rjs%
js$="DimLunMarMerJeuVenSam"
WIDTH 0,132: HEIGHT 0,68: TOP 0,0: LEFT 0,SCREEN_X-WIDTH(0): BORDER_SMALL 0
CAPTION 0,"": ON_CLOSE 0,Fin
PICTURE 1: WIDTH 1,90: HEIGHT 1,HEIGHT(0)-34: COLOR 1,128,0,0
FONT_NAME 1,"Arial": FONT_COLOR 1,255,255,0: FONT_SIZE 1,24
PICTURE 2: WIDTH 2,26: HEIGHT 2,HEIGHT(1): LEFT 2,WIDTH(1): HEIGHT 2,HEIGHT(1)
COLOR 2,128,0,0: FONT_NAME 2,"Arial": FONT_COLOR 2,255,255,0: FONT_SIZE 2,14
2D_TARGET_IS 1: 2D_FILL_COLOR 128,0,0: 2D_TARGET_IS 2: 2D_FILL_COLOR 128,0,0
WHILE 2>1
hm$ = LEFT$(TIME$,5): s$ = RIGHT$(TIME$,2)
IF s$<>ss$
PRINT_TARGET_IS 2: PRINT_LOCATE -1,11: PRINT s$: ss$=s$
IF hm$<>hms$
PRINT_TARGET_IS 1: PRINT_LOCATE 2,0: PRINT hm$: hms$=hm$
a%=VAL(RIGHT$(DATE$,4)): m%=VAL(MID$(DATE$,4,2)): j%=VAL(LEFT$(DATE$,2))
JourSem(a%,m%,j%): CAPTION 0," "+MID$(js$,3*rjs%+1,3)+" "+DATE$
END_IF
END_IF
PAUSE 1000
END_WHILE
END
Fin:
TERMINATE
SUB JourSem(Annee,Mois,Jour)
' Jour de la semaine d'une date donnée (0= Dimanche à 6= Samedi) -> rs_js%
DIM_LOCAL jd: jd = Annee
IF Mois<3 THEN jd = jd-1
jd=INT(23*Mois/9)+Jour+4+Annee+INT(jd/4)-INT(jd/100)+INT(jd/400)
IF Mois>=3 THEN jd = jd-2
rjs% = jd-7*INT(jd/7)
END_SUB

Pour lancer un programme au démarrage du pc, voir là:
https://panoramic.1fr1.net/t216-lancement-d-un-programme-au-demarrage?highlight=lancement+au+d%E9marrage

Sujet: Re: Petite pendulette discrète Mer 14 Jan 2015 - 23:52

Pas si discrète que ça !
Mais bon, j’aime et l’idée et le code.

INFO :
Sous ma signature, clique sur Le calendrier c’est ici :

Sujet: Re: Petite pendulette discrète Jeu 15 Jan 2015 - 7:57

Joli et en peu de lignes Wink

Sujet: Re: Petite pendulette discrète Jeu 15 Jan 2015 - 10:40

C'est vrai que c'est court, et on peut l'aménager comme on veut, couleurs, dimensions, etc. Il y a toutefois une largeur minimum de 132 pixels, contrainte panoramic, j'ai fait en fonction de ça.

Sujet: Re: Petite pendulette discrète Ven 16 Jan 2015 - 12:54

On peut faire cette pendule plus discrète,

avec BORDER_HIDE 0 : ON_CLICK 1,Fin : ON_CLICK 2,Fin

Je l'ai retouchée pour W8, car les bords de Form sous w8 sont différents.
Et avec un affichage en haut à gauche pour mon utilité.

A+

Sujet: Re: Petite pendulette discrète Ven 16 Jan 2015 - 16:30

Salut Jean Claude,
C'est un choix, j'y ai bien pensé, mais dans ce cas on ne peut plus la déplacer où on veut en fonction des fenêtres ouvertes sur l'écran à un moment donné, et ça j'y tenais.

Sujet: Re: Petite pendulette discrète Ven 16 Jan 2015 - 20:23

JL35 a écrit:: Salut Jean Claude,
C'est un choix, j'y ai bien pensé, mais dans ce cas on ne peut plus la déplacer où on veut en fonction des fenêtres ouvertes sur l'écran à un moment donné, et ça j'y tenais.

Oui bien sur, tes choix te sont propres, je donne simplement ma formule pour Papydall qui indiquait que le "manque de discrétion de la pendule", (fallait bien qu'il chipote) Very Happy

Je vous donne ma version pour W8 (avec mes propres choix)

Code:: LABEL Fin
DIM hm$,s$,hms$,ss$,x%,y%,xa%,ya%,a%,m%,j%,js$,rjs%
js$="DimLunMarMerJeuVenSam"
WIDTH 0,140: HEIGHT 0,40: TOP 0,0: LEFT 0,0: BORDER_HIDE 0
CAPTION 0,""
PICTURE 1: WIDTH 1,113: HEIGHT 1,HEIGHT(0): COLOR 1,128,0,0
FONT_NAME 1,"Arial": FONT_COLOR 1,255,255,0: FONT_SIZE 1,24
PICTURE 2: WIDTH 2,40: HEIGHT 2,HEIGHT(1): LEFT 2,WIDTH(1)-10: HEIGHT 2,HEIGHT(1)
COLOR 2,128,0,0: FONT_NAME 2,"Arial": FONT_COLOR 2,255,255,0: FONT_SIZE 2,14
2D_TARGET_IS 1: 2D_FILL_COLOR 128,0,0: 2D_TARGET_IS 2: 2D_FILL_COLOR 128,0,0
ON_CLICK 1,Fin:ON_CLICK 2,Fin
WHILE 2>1
hm$ = LEFT$(TIME$,5): s$ = RIGHT$(TIME$,2)
IF s$<>ss$
PRINT_TARGET_IS 2: PRINT_LOCATE -1,11: PRINT s$: ss$=s$
IF hm$<>hms$
PRINT_TARGET_IS 1: PRINT_LOCATE 2,0: PRINT hm$: hms$=hm$
a%=VAL(RIGHT$(DATE$,4)): m%=VAL(MID$(DATE$,4,2)): j%=VAL(LEFT$(DATE$,2))
JourSem(a%,m%,j%): CAPTION 0," "+MID$(js$,3*rjs%+1,3)+" "+DATE$
END_IF
END_IF
PAUSE 1000
END_WHILE
END
Fin:
TERMINATE
SUB JourSem(Annee,Mois,Jour)
' Jour de la semaine d'une date donnée (0= Dimanche à 6= Samedi) -> rs_js%
DIM_LOCAL jd: jd = Annee
IF Mois<3 THEN jd = jd-1
jd=INT(23*Mois/9)+Jour+4+Annee+INT(jd/4)-INT(jd/100)+INT(jd/400)
IF Mois>=3 THEN jd = jd-2
rjs% = jd-7*INT(jd/7)
END_SUB

A+

Sujet: Re: Petite pendulette discrète Ven 16 Jan 2015 - 20:56

De plus, quoi qu'en dise papydall (le fourbe) la discrétion est relative. Sur mon écran 1920x1200 elle occupe à peine 7% de la largeur dans son petit coin, sur un 1024x768 ça fait presque le double Smile

Avec le Border_Hide 0 tu gagnes 16 pixels en largeur...

D'ailleurs je remarque au passage que ta version est moins haute mais plus large que la mienne... et où est la date ??? elle n'apparaît pas puisque le caption 0 est programmé mais inopérant et qu'il n'y a pas de place pour la mettre ! et de plus elle n'est pas déplaçable, ce n'est pas la même chose !
ta version : Petite pendulette discrète Pend10

Sujet: Re: Petite pendulette discrète Ven 16 Jan 2015 - 21:13

Ce sujet (comme d'autre avant) met en lumière un petit problème.

A savoir une différence de taille des bords d'un FORM sous W8.

En effet, à chaque fois que l'un d'entre vous publie un programme, je suis (presque à chaque fois) contraint d'adapter les dimensions des ou du FORM pour ne pas avoir des BAR_BOTH(s) automatiques.

Il faudra se pencher sur ce problème pour l'avenir ,

A+

PS: on s'est croisé, exact j'ai complètement oublié le caption de FORM 0. Embarassed

Sujet: Re: Petite pendulette discrète Ven 16 Jan 2015 - 21:19

Tu dois pouvoir mesurer ça, en tout cas sous W7 la bordure des Forms fait 8 pixels (gauche, droite et bas), et le bandeau du haut fait 30 pixels, ou bien 26 pixels en cas de Border_Small.
La fenêtre utilisable fait donc en largeur Width(0) - 16, et en hauteur Height(0) - 38 ou -34 (border_small).
Étonnant que ça ne soit pas pareil sous W8. Et tu voudrais qu'on l'aime ?

Sujet: Re: Petite pendulette discrète Sam 17 Jan 2015 - 0:18

Comme vous venez de parler de moi, voici un cadeau aussi à Jean_Claude (pas pour toi JL35 ! Tu as eu le tien, non ?)

Spoiler:

Sujet: Re: Petite pendulette discrète Sam 17 Jan 2015 - 9:54

J'en veux pas ! Tu peux bien parler, comme pendule discrète ça se pose là !

Sujet: Re: Petite pendulette discrète Sam 17 Jan 2015 - 13:40

JL35 a écrit:: Tu dois pouvoir mesurer ça, en tout cas sous W7 la bordure des Forms fait 8 pixels (gauche, droite et bas), et le bandeau du haut fait 30 pixels, ou bien 26 pixels en cas de Border_Small.
La fenêtre utilisable fait donc en largeur Width(0) - 16, et en hauteur Height(0) - 38 ou -34 (border_small).
Étonnant que ça ne soit pas pareil sous W8. Et tu voudrais qu'on l'aime ?

Je n'ai jamais dit qu'il fallait qu'on aime W8, j'ai juste dit qu'on s'y adapte assez facilement.
J'ajoute que comme on nous l'impose petit à petit, il nous reste la solution de changer d'OS.
Comme toi, JL35, je n'ai pas envie de changer pour UBUNTU ou autre (Sauf abus insupportables de la part de Windows), mais je soutiens ceux qui ont fait le pas de changer pour UBUNTU.

"I HAVE A DREAM" : Un jour, peu-être, un individu nous sortira un OS de la même qualité que Windows, basé uniquement sur ce que doit être un système d'exploitation (j'entend gérer les les périphériques, les dossiers, les fenêtres, les options d’accessibilité, les accès internet et comptes de messagerie, et quelques autres bricoles), c'est à dire permettre à l'ordinateur de fonctionner et rien d'autre.
ET CELA, POUR UNE TOTALE INDÉPENDANCE DE L'UTILISATEUR. Sans intention commerciale ou de flicage.

BON, CE N’ÉTAIT QU'UN RÊVE...

Quand j'aurais le temps et l'envie, je regarderais les problèmes d'affichage des programmes Panoramic entre W7 et W8.

@Papydall,
ta pendule est super pour ceux qui ont deux écrans côte a côte lol!

A+

Sujet: Re: Petite pendulette discrète Sam 17 Jan 2015 - 14:10

Jean Claude a écrit:: ta pendule est super pour ceux qui ont deux écrans côte a côte

.

Tes deux écrans sont peut-être tête-bêche ?
Si c’est le cas, voici ce qu’il te convient :

Spoiler:

Sujet: re Sam 17 Jan 2015 - 15:08

Sujet: Re: Petite pendulette discrète Sam 17 Jan 2015 - 15:54

C'est marrant ! mais je me demande si on ne s'est pas un peu éloignés du sujet initial... scratch

Sujet: Re: Petite pendulette discrète Sam 17 Jan 2015 - 16:56

@Papydall,
lol!

@JL35,

Citation :: C'est marrant ! mais je me demande si on ne s'est pas un peu éloignés du sujet initial...

T'es sur ! J'avais pas remarqué Very Happy

Sujet: Re: Petite pendulette discrète Sam 17 Jan 2015 - 16:59

Tu as raison.
Je me tais.

Sujet: Re: Petite pendulette discrète Lun 19 Jan 2015 - 23:19

bonsoir a tous
pour la pendulette, avec mon écran mini j'ai une solution!
bon je vous préviens, cela n'est pas pratique.
En effet c'est un cadeau de ma femme (une montre cheers

)

Sujet: Re: Petite pendulette discrète Lun 19 Jan 2015 - 23:25

Veinard !

Sujet: Re: Petite pendulette discrète Lun 19 Jan 2015 - 23:36

et en plus elle est radio pilotée
le problème c'est que les chiffres sont tout petit
affraid

ça recommence ...

Sujet: Re: Petite pendulette discrète Lun 19 Jan 2015 - 23:56

Ils (les chiffres) grandiront avec le temps et c’est mon dernier mot !

Pardon, JL35.

Sujet: Re: Petite pendulette discrète Mar 20 Jan 2015 - 9:07

mindstorm, la prochaine fois demande plutôt un écran plus grand à la mère Noël.

Sujet: Re: Petite pendulette discrète Mar 20 Jan 2015 - 13:10

JL35 a écrit:: mindstorm, la prochaine fois demande plutôt un écran plus grand à la mère Noël.

Wouais, si elle veut vraiment te faire plaisir, ce sera plus utile qu'une montre...

Moi, je dit çà.......

lol!

Sujet: Re: Petite pendulette discrète Mar 20 Jan 2015 - 13:57

Oui, et en plus l'écran peut aussi te donner l'heure, regarde plus haut.

T'as vu comme je recentre le sujet, mine de rien !

» Une petite pendulette digitale
» Petite (toute petite) Sub: Dir
» petite question
» Calculus
» petite découverte