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
» Pourquoi le compilateur stagne
par papydall Hier à 23:23

» Immortaliser les photos de famille
par jjn4 Hier à 18:29

» Concours de Morpions
par jjn4 Hier à 18:11

» Compilateur FBPano
par jean_debord Hier à 10:12

» Tout est tranquille
par Jean Claude Ven 22 Sep 2017 - 21:41

» Texte en gif animé
par JL35 Ven 22 Sep 2017 - 13:29

» BasicEditor
par Yannick Mer 20 Sep 2017 - 17:17

» Simuler l’appui d'une touche ou combinaison de touches.
par pascal10000 Lun 18 Sep 2017 - 19:30

» Utilisation de HVIEWER pour afficher des images
par papydall Lun 18 Sep 2017 - 17:43

» Panoramic et les gifs animés.
par papydall Lun 18 Sep 2017 - 16:32

» recover source
par pascal10000 Dim 17 Sep 2017 - 14:21

» Recent dans vos menu
par Jean Claude Sam 16 Sep 2017 - 11:41

» Comment centrer un texte 3D.
par pascal10000 Ven 15 Sep 2017 - 20:20

» Carte interface 16 entrées et 16 sorties
par Jicehel Ven 15 Sep 2017 - 16:30

» Version instantanée V 0.9.28i9 possédant l'objet SYNEDIT
par pascal10000 Ven 15 Sep 2017 - 16:20

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
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 : 5951
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 : 5533
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 : 5855
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 : 5951
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 : 5019
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 : 5951
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 : 5019
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 : 5951
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 : 5019
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 : 5951
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 : 5533
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 : 5951
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 : 5019
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 : 5533
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 : 7992
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 : 5951
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 : 5019
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 : 5533
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 : 533
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 : 5533
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 : 533
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 : 5533
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 : 5951
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 : 5019
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 : 5951
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
 Sujets similaires
-
» Petite vidéo
» Petite séduction
» Voulez-vous croquer une petite brioche ? =) ♥
» Une petite étoile haut dans le ciel...
» petite renseignement svp

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: