un post-it électronique pour votre bureau

Sujet: un post-it électronique pour votre bureau Sam 28 Jan 2012 - 0:26

J'avais programmé cet outil il y a qqs années avec RapidQ (le language basic que j'utilisais avant de découvrir Panoramic), mais je l'ai refait en Panoramic pour vous!

C'est donc un post-it avec 5 feuilles.
Tu verra que les contenus sont sauvegardés dans c:/ et ont le nom 1, 2, 3, 4 et 5 tout simplement.

Au chargement du logiciel, il lit ces documents, et il les sauvegarde quand on appuis sur le 'X' pour fermer l'application.

Voila les codes! Pour moi, c'est vachement utile, je m'en sers souvent. Donc j'espère que vous aussi vous en profitez Wink

Code:: label clck, stp, chng, mnm
dim x, xpos, ypos, lbl
caption 0,"Post-it"
border_hide 0
width 0,220
height 0,220
COLOR 0, 255,255,0
on_click 0, clck
left 0,screen_x-225
2D_PEN_COLOR 100,100,100
2D_FILL_COLOR 200,200,0
alpha 6
caption 6, "X"
font_bold 6
font_size 6,12
COLOR 6,255,255,0
top 6,0
left 6,203
on_click 6, stp
alpha 7
caption 7, "_"
font_bold 7
font_size 7,12
COLOR 7,255,255,0
top 7,0
left 7,185
on_click 7, mnm
for x = 1 to 5
memo x
top x,20
left x,0
width x,219
height x,200
COLOR x,255,255,0
hide x
if FILE_EXISTS("c:/"+str$(x))=1 then file_load x,"c:/"+str$(x)
next x
show 1
for x = 1 to 4
2D_RECTANGLE x*35, 1, x*35+35, 20
next x
2D_FILL_COLOR 255,255,0
2D_RECTANGLE 0, 1, 35, 20
end
clck:
lbl=0
xpos = mouse_x_position(0)
ypos = mouse_y_position(0)
caption 0, "x: "+ str$(xpos)+"y: "+ str$(ypos)
if abs(20-xpos)<16 then lbl=1
if abs(55-xpos)<16 then lbl=2
if abs(90-xpos)<16 then lbl=3
if abs(125-xpos)<16 then lbl=4
if abs(160-xpos)<16 then lbl=5
gosub chng
return
chng:
2D_FILL_COLOR 200,200,0
for x = 0 to 4
2D_RECTANGLE x*35, 1, x*35+35, 20
hide (x+1)
next x
2D_FILL_COLOR 255,255,0
2D_RECTANGLE (lbl-1)*35, 1, lbl*35, 20
show lbl
return
mnm:
TO_BACKGROUND 0
return
stp:
for x = 1 to 5
file_save x,"c:/"+str$(x)
next x
terminate

Sujet: Re: un post-it électronique pour votre bureau Sam 28 Jan 2012 - 0:42

Super, ton post-it! et en très peu de ligne! Bravo! Wink

Sujet: Re: un post-it électronique pour votre bureau Sam 28 Jan 2012 - 0:42

Pas mal, simple et efficace. Bravo Smile

Nombre de messages : 601 Date d'inscription : 05/01/2012

Très très bien ton post_it !!!

Sujet: Re: un post-it électronique pour votre bureau Sam 28 Jan 2012 - 9:48

Simple et efficace à dit Jicehel,
idem
bravo, A+

Sujet: Re: un post-it électronique pour votre bureau Sam 28 Jan 2012 - 11:36

Merci beaucoup tout le monde! J'espère que ça vous rends service! Wink

(J'utilise le mien pendant des années déjà. Very Happy

)

Bonjour tout le monde!

J'ai fait une nouvelle version du post-it, parce que comme je dessinais les onglets sur le "form" direct et pas sur un objet "picture", les onglets disparaissaient dès qu'une autre fenêtre (autre logiciel) était actif dans windows. (Ce que j'ai appris dans un autre endroit du le forum. Merci, panoramiciens!)

Donc voila "version 1.2." qui ne montre plus cette problème. Wink

Code:: label clck, stp, chng, mnm
dim x, xpos, ypos, lbl
caption 0,"Post-it"
border_hide 0
width 0,220
height 0,220
COLOR 0, 255,255,0
left 0,screen_x-225
picture 8
full_space 8
2d_target_is 8
on_click 8, clck
COLOR 8, 255,255,0
alpha 6
caption 6, "X"
font_bold 6
font_size 6,12
COLOR 6,255,255,0
top 6,0
left 6,203
on_click 6, stp
alpha 7
caption 7, "_"
font_bold 7
font_size 7,12
COLOR 7,255,255,0
top 7,0
left 7,185
on_click 7, mnm
for x = 1 to 5
memo x
top x,20
left x,0
width x,219
height x,200
COLOR x,255,255,0
hide x
if FILE_EXISTS("c:/"+str$(x))=1 then file_load x,"c:/"+str$(x)
next x
show 1
2D_PEN_COLOR 100,100,100
2D_FILL_COLOR 200,200,0
for x = 1 to 4
2D_RECTANGLE x*35, 1, x*35+35, 20
next x
2D_FILL_COLOR 255,255,0
2D_RECTANGLE 0, 1, 35, 20
end
clck:
lbl=0
xpos = mouse_x_position(8)
ypos = mouse_y_position(8)
caption 0, "x: "+ str$(xpos)+"y: "+ str$(ypos)
if abs(20-xpos)<16 then lbl=1
if abs(55-xpos)<16 then lbl=2
if abs(90-xpos)<16 then lbl=3
if abs(125-xpos)<16 then lbl=4
if abs(160-xpos)<16 then lbl=5
gosub chng
return
chng:
2D_FILL_COLOR 200,200,0
for x = 0 to 4
2D_RECTANGLE x*35, 1, x*35+35, 20
hide (x+1)
next x
2D_FILL_COLOR 255,255,0
2D_RECTANGLE (lbl-1)*35, 1, lbl*35, 20
show lbl
return
mnm:
TO_BACKGROUND 0
return
stp:
for x = 1 to 5
file_save x,"c:/"+str$(x)
next x
terminate

Lode

Nombre de messages : 601 Date d'inscription : 05/01/2012

Il faudra que tu corrige celui que j'ai mis sur le site du zéro car j'aurais la flegme de le faire^^
Il n'est pas encore en ligne il est dans le bureau du modo.

exdragon a écrit:: Il faudra que tu corrige celui que j'ai mis sur le site du zéro car j'aurais la flegme de le faire^^
Il n'est pas encore en ligne il est dans le bureau du modo.

d'accord! on fera ça dès apparu?

Nombre de messages : 601 Date d'inscription : 05/01/2012

Oui, je te donnerais alors la possibilité de l'éditer.
Ton exemple est déjà commenté légèrement dans ton code sur le SDZ (par moi) mais avec la nouvelle version tu en profitera pour le commenter plus si tu veux bien^^

Je te passe la version légèrement commentée par mp puisque ici elle ne sert pas.

» Un Post-it sur le bureau
» Un Post-it sur le bureau (nouveau source)
» Domotique et électronique : deux SUBs pour Arduino NANO/UNO
» Domotique et électronique : deux SUBs pour Arduino MEGA 2560
» Pour vous déstresser et garder votre calme