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
» Planétarium virtuel.
par Pedro Alvarez Sam 21 Juil 2018 - 16:57

» Roues dentées
par jean_debord Sam 21 Juil 2018 - 10:40

» Attention arnaque !
par mindstorm Jeu 19 Juil 2018 - 19:18

» Qui fait quoi ?
par silverman Mer 18 Juil 2018 - 15:21

» ITEM_SELECT N,L pour synedit
par silverman Mer 18 Juil 2018 - 15:20

» Boussole
par jean_debord Mer 18 Juil 2018 - 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Petite pendulette discrète

Aller en bas 
Aller à la page : 1, 2, 3  Suivant
AuteurMessage
JL35



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

MessageSujet: 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à:
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 : 5980
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: 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 :
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5928
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

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

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



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

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

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



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

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: 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 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 : 6302
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: 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 :  
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

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



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

MessageSujet: 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 ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5980
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 - 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:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



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

MessageSujet: 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à !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: 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+


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

avatar

Nombre de messages : 5980
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 - 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:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 8077
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 17 Jan 2015 - 15:08

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



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

MessageSujet: 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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: 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 Razz geek
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5980
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: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 : 558
Age : 49
Localisation : charente
Date d'inscription : 13/02/2013

MessageSujet: 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 )
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

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

Veinard !

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

avatar

Nombre de messages : 558
Age : 49
Localisation : charente
Date d'inscription : 13/02/2013

MessageSujet: 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 ...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



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

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

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



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

MessageSujet: 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 !
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
Revenir en haut 
Page 1 sur 3Aller à la page : 1, 2, 3  Suivant
 Sujets similaires
-
» Petite vidéo
» Petite séduction
» petite renseignement svp
» Une petite nouvelle ;)
» Ayumiikka, petite coquinette! =3

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: