un Agenda..

Programmation d'applications complexes
Avatar de l’utilisateur
case
Messages : 1527
Inscription : lun. 10/sept./2007 11:13

Re: un Agenda..

Message par case »

hop

Code : Tout sélectionner

;
; adapté depuis winapi library 
; http://www.rsbasic.de
; raysiegl[at.]@gmail.com
; par case.
;
SHAppBarMessage_(#ABM_GETTASKBARPOS,Taskbar.APPBARDATA)
SystemParametersInfo_(#SPI_GETWORKAREA,0,@DesktopWorkArea.RECT,0)
Select Taskbar\uEdge
  Case #ABE_BOTTOM    
    Debug "taskbar en bas ("    + Str(GetSystemMetrics_(#SM_CYSCREEN)    - DesktopWorkArea\bottom)+" pixels de haut)"
  Case #ABE_LEFT
    Debug "taskbar a gauche (" + Str(DesktopWorkArea\left )+" pixels de large)"
   Case #ABE_RIGHT         
    Debug "taskbar a droite (" + Str(GetSystemMetrics_(#SM_CXSCREEN)    - DesktopWorkArea\right )+" pixels de large)"
   Case #ABE_TOP
     Debug "taskbar en haut (" + Str(DesktopWorkArea\top)+" pixels de haut)"
     
  EndSelect
ImageImage
Marc56
Messages : 2146
Inscription : sam. 08/févr./2014 15:19

Re: un Agenda..

Message par Marc56 »

Yo, bien. Merci case,

@Fred Ce serait bien d'avoir ça en interne, une fonction du style TaskBarHeight() ?
ou alors un paramètre pour DesktopHeight() qui donne la hauteur utilisable sans la barre de tâche.
(dans la version 5.62)

@Zorro. Je me sert de ça parfois pour avoir une fenêtre propre et pas nécessairement plein écran.
Je fixais arbitrairement la hauteur à 100 px.

Code : Tout sélectionner

EnableExplicit

Enumeration 
     #Win
     #Edit
EndEnumeration

ExamineDesktops()

OpenWindow(#Win, 0, 0, 
           DesktopWidth(0)  / 2, 
           DesktopHeight(0) - 100, 
           "Hello World", 
           #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

EditorGadget(#Edit, 10, 10, 
             WindowWidth(#Win) - 20, 
             WindowHeight(#Win) - 20)

While WaitWindowEvent() <> #PB_Event_CloseWindow : Wend

End
:wink:
Avatar de l’utilisateur
Zorro
Messages : 2185
Inscription : mar. 31/mai/2016 9:06

Re: un Agenda..

Message par Zorro »

oui, apres t'avoir ecris, j'ai aussi pensé a cette solution :)

Merci :)
Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"
Avatar de l’utilisateur
Zorro
Messages : 2185
Inscription : mar. 31/mai/2016 9:06

Re: un Agenda..

Message par Zorro »

Rhooooo !

en pleine nuit, je me reveille avec une idée en tete
alors, que je ne pensais mème pas a ce code .. le cerveau est bizarre 8O
comme si une partie de mon cerveau suggérait a l'autre qu'il y avait une erreur dans mon code Agenda :roll:

effectivement, je me lève , je teste l'agenda en me mettant a l'année prochaine, j'entre un text dans un jour au pif
et ... il ne devient pas jaune , il ne change même pas de couleur

la suggestion de ma "petite voix" etait juste !!
ma comparaison des jours pour savoir si un événement etait dans le futur, le present ou le passé etait carrément fausse !
erreur de débutant, je comparait des chaines !! :lol:
genre SI "05/06/2017" > "06/12/2017" ... ça ne pouvait pas marcher... le hasard a fait que ça fonctionne sur mes quelques test ...
il fallait bien sur comparer la représentation Valeur d'une date , qui s'obtient avec la fonction ParseDate() ...


bon c'est corrigé dans le code Premiere Page de ce topic , maintenant, meme les événements écrit dans les Années Futures apparaitront Jaune
et Violet, dans les Années Passées ... :)
Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"
Avatar de l’utilisateur
Zorro
Messages : 2185
Inscription : mar. 31/mai/2016 9:06

Re: un Agenda..

Message par Zorro »

modification du code, et petite amélioration , voir premiere page de ce topic pour le code (et les Icones )

ajout d'une icones supplémentaire , qui permet de savoir si un evenement a lieu ce jour
lorsqu'on demarre le prg , (ou lorsqu'il tourne) et qu'un evenement est inscrit dans le jour (aujourd'hui)
l'icone du systray deviens rouge , sinon il est bleu comme d'hab

j'ai joint les 2 fichiers *.ico que j'utilise
a mettre dans le meme dossier que le prg principale (sinon forcement vous ne verrez rien :) )
Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"
Mouillard
Messages : 77
Inscription : mer. 13/sept./2017 14:35
Localisation : Picardie (Somme)

Re: un Agenda..

Message par Mouillard »

Bonjour

Superbe l'agenda Bravo

""d'un Z qui veut dire ZO o o o RRO....!!!! ""
Avatar de l’utilisateur
Zorro
Messages : 2185
Inscription : mar. 31/mai/2016 9:06

Re: un Agenda..

Message par Zorro »

:) merci ..

Image
Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"
Avatar de l’utilisateur
Micoute
Messages : 2522
Inscription : dim. 02/oct./2011 16:17
Localisation : 35520 La Mézière

Re: un Agenda..

Message par Micoute »

Je trouve que tu ressemble étrangement à Delon.
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73 PB 6.00 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Avatar de l’utilisateur
Kwai chang caine
Messages : 6962
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: un Agenda..

Message par Kwai chang caine »

Moi je l'aime...je le regarde tous les we wur France 3 à 20h30.
J'ai déjà vu les épisodes des millions de fois, mais c'est ma manière à moi de voyager pas cher...en espagne et etats unis en même temps.
Je les regarde x fois...et j'ai peur pour lui à chaque fois...on sait jamais....si au bout de la xieme rediffusion les choses ne se passaient pas aussi bien, que celle d'avant :mrgreen:

C'est toute ma jeunesse...en plus mon père jeune lui ressemblait....alors d'autant plus.
Je me suis même déguisé en zorro et mon père qui avait depuis suivi un regime de bananes faisait le sergent Garcia :lol:
Maintenant c'est à mon tour d'endosser ce costume...et encore 8xl, je sais pas si ils font en sergent garcia :mrgreen:
Put.... que de souvenirs.....y'a pas que l'âge qui esquinte :D
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Avatar de l’utilisateur
Zorro
Messages : 2185
Inscription : mar. 31/mai/2016 9:06

Re: un Agenda..

Message par Zorro »

@Micoute

non , il s'agit bien de Guy Williams (le "VRAIS" Zorro :) ) (Armando Guido Catalano)

le Delon, je n'ai pas du tout aimé sa version ...

alors que Antonio Banderas, oui :)
Le personnage avait meme une plus grande "epaisseur" , un coté sombre, que l'acteur arrivait a bien faire ressortir

pour l'anecdote , Guy Williams, ne se faisait pas doubler pendant les scenes de combat
il avait pratiqué l'escrime avec son pere etant jeune, puis s'y est remis pour la serie
il etait semble t'il tres doué pour ça
Pendant sa jeunesse, le jeune Armando apprend les bases de l'escrime par son père qui était un expert en escrime. C'était une tradition dans la famille Catalano
une scene l'un des autres acteurs (Anthony Caruso) qui jouait les mechants, avait voulu aussi ne pas se faire doubler
mais son experience de l'escrime n'avait pas le niveau de Guy Williams ,
ce dernier, a faillit l’éborgner pendant l’échange , bléssé au visage ,Anthony Caruso a du se mettre en repos....

Guy williams a aussi été plusieurs fois blessé pendant les tournages :)
Guy Williams était un bon escrimeur, une qualité indéniable pour livrer des combats avec de véritables épées. " On se battait avec de vraies pointes, sans mouches au bout.
un bon site a lire ici:
https://www.telestar.fr/serie-tv/zorro- ... du-j-94981

et là :
http://cinememorial.com/acteur_GUY_WILLIAMS_507.html
Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"
Mouillard
Messages : 77
Inscription : mer. 13/sept./2017 14:35
Localisation : Picardie (Somme)

Re: un Agenda..

Message par Mouillard »

Supprimé
Dernière modification par Mouillard le mer. 28/févr./2018 23:52, modifié 1 fois.
Avatar de l’utilisateur
Zorro
Messages : 2185
Inscription : mar. 31/mai/2016 9:06

Re: un Agenda..

Message par Zorro »

Salut ,

j'ai ajouté un bouton a mon agenda (Premier code de ce topic page 1 )

en effet , losqu'un truc est ecrit dans l'editeur le jour venu , ça fait passer l'icone en rouge (si vous avez bien utilisé mes icones fournie avec le code page 1

donc en general on marque pour tel jour un rendez vous par exemple , ou un evenement
le jour venu l'icone de la barre des taches passe en rouge pour nous rappeler qu'il y a un truc a faire ce jour

mais une fois fait, en general j'ajoute "FAIT! " en face de l’événement
mais l'icone reste rouge ... meme s'il n'y a plus rien de prevu ...

alors j'ai ajouté un bouton en bas a gauche a coté du bouton [Repos] qui sert a repositionner le calendrier a aujourd'hui
ce nouveau bouton [icone_on_off] permet de remettre l'icone en bleu si on considere, qu'il n'y a plus rien a faire ce jour ...

de plus , perso j'allume et eteind mon ordi chaque jour, mais si on laisse l'ordi allumé , l'icone sera de toute façon reinitialisé a "00:00:00"
de sorte qu'on ne loupe pas un evenement le lendemain, alors qu'on a positionné (forcé) l'icone sur Bleu :)

bref , testez , et adoptez , (ou pas ) :)

Perso depuis sa création ce prg me sert chaque jour , que ce soit pour noter un rendez vous
ou bien un événement dont je veux me souvenir plus tard :)
Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"
Avatar de l’utilisateur
Zorro
Messages : 2185
Inscription : mar. 31/mai/2016 9:06

Re: un Agenda..

Message par Zorro »

yoo ,

juste pour vous dire que j'ai mis a jour le code de la page 1 de ce topic , a propos de mon Agenda ...

j'avais corrigé depuis un moment, un bug qui faisait que si on avait trop de Case/jours de remplis avec du text , le chargement devenait
de plus en plus laborieux ....

et j'ai tout recemment ajouté les Saints du jours, je me suis fait "disputé" apres avoir oublié la fête de quelqu'un , alors je me suis dis, que dorénavant
je ne louperai plus de fête ... (oui ça tiens compte des années bissextiles pour les saints :)

toutes ces modifs sont donc dans le listing de la page 1 de ce topic ....

a tchao ... :)

Image


ps: depuis une semaine, j'ai la Fibre :) ... c'est un autre monde... a condition d'avoir des cartes Wifi qui suivent...
Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"
Avatar de l’utilisateur
Micoute
Messages : 2522
Inscription : dim. 02/oct./2011 16:17
Localisation : 35520 La Mézière

Re: un Agenda..

Message par Micoute »

Merci Zorro pour le partage.
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73 PB 6.00 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Avatar de l’utilisateur
kernadec
Messages : 1594
Inscription : ven. 25/avr./2008 11:14

Re: un Agenda..

Message par kernadec »

salut Zorro
cool l'agenda merci pour le partage :D

ps: j' avais raté ce code? :o
cordialement

[Réédit] Pardon j'avais oublié de parler de la petite coquille ligne 132, 135
petit problème avec la variable qui a un nom différent IconeName$ et IconName$

Code : Tout sélectionner

IconName$ = "agenda.ico" ; <-- indiquez ici un icone pour le prg dans le Systray
IconeName2$="agenda2.ico"
LoadImage(#image_icone2, IconeName2$)
LoadImage(#image_icone, IconeName$)
Répondre