FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» TourD Version 2
par Minibug Aujourd'hui à 1:50

» La métamatière et le peuple
par JL35 Hier à 21:18

» Capture d'une zone de l'écran total
par JL35 Hier à 18:41

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Hier à 11:49

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

» Panoramic et la reconnaissance vocale.
par papydall Jeu 16 Nov 2017 - 3:45

» Bizzarerie dans Edge
par Marc 37 Mer 15 Nov 2017 - 17:45

» KGF_dll - nouvelles versions
par Klaus Mer 15 Nov 2017 - 2:08

» Analyser un code Panoramic
par JL35 Lun 13 Nov 2017 - 18:38

» Un bonjour en passant...
par Minibug Dim 12 Nov 2017 - 19:57

» mise a jour calculatrice
par joeeee2017 Dim 12 Nov 2017 - 4:20

» comment accèder à l'heure et à la date d'un fichier
par Klaus Sam 11 Nov 2017 - 0:53

» Compilateur FBPano
par Jicehel Mer 8 Nov 2017 - 15:22

» Mon adresse e-mail
par treehouse Mer 8 Nov 2017 - 14:36

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
CalendrierCalendrier

Partagez | 
 

 Petite pendulette discrète

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : 1, 2, 3  Suivant
AuteurMessage
JL35



Nombre de messages : 5979
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Petite pendulette discrète   Mer 14 Jan 2015 - 23: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à:
http://panoramic.free-boards.net/t216-lancement-d-un-programme-au-demarrage?highlight=lancement+au+d%E9marrage
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5587
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Petite pendulette discrète   Jeu 15 Jan 2015 - 1: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 :
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5859
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Petite pendulette discrète   Jeu 15 Jan 2015 - 9:57

Joli et en peu de lignes Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5979
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Petite pendulette discrète   Jeu 15 Jan 2015 - 12: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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5056
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Petite pendulette discrète   Ven 16 Jan 2015 - 14: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+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5979
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Petite pendulette discrète   Ven 16 Jan 2015 - 18: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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5056
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Petite pendulette discrète   Ven 16 Jan 2015 - 22: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 geek

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+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5979
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Petite pendulette discrète   Ven 16 Jan 2015 - 22: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 :  
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5056
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Petite pendulette discrète   Ven 16 Jan 2015 - 23: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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5979
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Petite pendulette discrète   Ven 16 Jan 2015 - 23: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 ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5587
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Petite pendulette discrète   Sam 17 Jan 2015 - 2: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:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5979
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Petite pendulette discrète   Sam 17 Jan 2015 - 11:54

J'en veux pas ! Tu peux bien parler, comme pendule discrète ça se pose là !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5056
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Petite pendulette discrète   Sam 17 Jan 2015 - 15: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+


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5587
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Petite pendulette discrète   Sam 17 Jan 2015 - 16: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:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 7997
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 17 Jan 2015 - 17:08

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5979
Localisation : 77
Date d'inscription : 29/11/2007

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

C'est marrant ! mais je me demande si on ne s'est pas un peu éloignés du sujet initial... scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5056
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Petite pendulette discrète   Sam 17 Jan 2015 - 18: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 Razz geek
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5587
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Petite pendulette discrète   Sam 17 Jan 2015 - 18:59

Tu as raison.
Je me tais.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
mindstorm

avatar

Nombre de messages : 540
Age : 48
Localisation : charente
Date d'inscription : 13/02/2013

MessageSujet: Re: Petite pendulette discrète   Mar 20 Jan 2015 - 1: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 )
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5587
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Petite pendulette discrète   Mar 20 Jan 2015 - 1:25

Veinard !

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
mindstorm

avatar

Nombre de messages : 540
Age : 48
Localisation : charente
Date d'inscription : 13/02/2013

MessageSujet: Re: Petite pendulette discrète   Mar 20 Jan 2015 - 1:36

et en plus elle est radio pilotée
le problème c'est que les chiffres sont tout petit
affraid ça recommence ...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5587
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Petite pendulette discrète   Mar 20 Jan 2015 - 1:56

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

Pardon, JL35.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5979
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Petite pendulette discrète   Mar 20 Jan 2015 - 11:07

mindstorm, la prochaine fois demande plutôt un écran plus grand à la mère Noël.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5056
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Petite pendulette discrète   Mar 20 Jan 2015 - 15: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!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5979
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Petite pendulette discrète   Mar 20 Jan 2015 - 15: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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Petite pendulette discrète   

Revenir en haut Aller en bas
 
Petite pendulette discrète
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 3Aller à la page : 1, 2, 3  Suivant

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: