Un autre pense-bête...

Nombre de messages : 595 Date d'inscription : 06/01/2012

Bonjour à tous ! je suis en train fabriquer un pense-bête qui n'en est qu'à ses débuts mais qui fonctionne néanmoins. Je n'ai codé qu'une douzaine de rubriques de choses à faire au quotidien et je pense ajouter plus tard une rubrique de choses à faire dans le mois. Et le bouton SVE disparaîtra, la sauvegarde automatique se fera par ON_CLOSE.
Il me faudra aussi simplifier le code, j'ai beaucoup copié et collé...
Rien à voir donc avec un calendrier. Si vous avez envie de le tester, attention à adapter le chemin en ligne 5. À bientôt !

Code:: color 0,180,120,50:caption 0,"Mon memo par Froggy One"

dim i,j,k,dd$
label sauvegarde,offOn
dd$="C:\Elip\Elip_6_10_fr\notes\":dir_change dd$
  for i=1 to 12
   led1 i:left i,32:top i,32*i
  next i

  for i=21 to 32
   edit i:left i,60:top i,32*(i-20)
  next i

container 50
left 50,200:top 50,4:height 50,426:width 50,70

  for i=61 to 72
   button i:parent i,50:left i,3:top i,(32*(i-60))-4:width i,65:caption i," À faire..."
  next i

button 80:left 80,400:top 80,32:caption 80,"SAVE"

  if file_exists("MonMemo.txt")=1
   file_open_read 1,"MonMemo.txt"
   for i=1 to 12
   text i+20,file_readln$(1)
   next i
   file_close 1
  end_if

  if file_exists("MesBtns.txt")=1
   file_open_read 1,"MesBtns.txt"
   for i=1 to 12
   caption i+60,file_readln$(1)
   if caption$(i+60)=" À faire..."
   mark_off i
   else
   mark_on i
   end_if
   next i
   file_close 1
  else
   for i=61 to 72:caption i," À faire...":next i
  end_if

on_click 80,sauvegarde
on_click 61,offOn:on_click 62,offOn:on_click 63,offOn
on_click 64,offOn:on_click 65,offOn:on_click 66,offOn
on_click 67,offOn:on_click 68,offOn:on_click 69,offOn
on_click 70,offOn:on_click 71,offOn:on_click 72,offOn

END

sauvegarde:
if file_exists("MonMemo.txt")=1 then file_delete "MonMemo.txt"
if file_exists("MesLeds.txt")=1 then file_delete "MesLeds.txt"
if file_exists("MesBtns.txt")=1 then file_delete "MesBtns.txt"
file_open_write 1,"MonMemo.txt"
  for i=21 to 32
   if text$(i)<>""
   file_writeln 1,text$(i)
   else
   file_writeln 1,"[vide]"
   end_if
  next i
file_close 1

file_open_write 1,"MesBtns.txt"
  for i=61 to 72
   if caption$(i)<>""
   file_writeln 1,caption$(i)
   else
   file_writeln 1,"[vide]"
   end_if
  next i
file_close 1
return

offOn:
if caption$(number_click)=" À faire..."
   caption number_click," C'est bon !":mark_on number_click-60:' st(number_click-30)=1
else
   caption number_click," À faire...":mark_off number_click-60:' st(number_click-30)=0
end_if
return

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Chouette !
C'est sûr que c'est plus joli qu'un simple pense-bête sur un bout de papier !
flower

Nombre de messages : 595 Date d'inscription : 06/01/2012

Voili voilà... j'ai rajouté six rubriques à faire dans la semaine, avec des SWITCH que je trouve du plus bel effet... je vais pouvoir noter sur mon pense-bête papier que mon pense-bête écran est à jour !!! Laughing

Sinon je peux encore raccourcir et optimiser le code, mais ça dépendra de ce que j'ai à faire dans la semaine pale

Merci pour ton gentil commentaire jjn4 ! j'aime beaucoup la bataille spatiale (mais j'ai ralenti la soucoupe en haut de l'écran alien

)

Code:: color 0,180,120,50:caption 0,"Mon memo par Froggy One"

dim i,var1,var2,var3,dd$,quid(6)
label sauvegarde,offOn,offSwitchOn
dd$="C:\Elip\Elip_6_10_fr\notes\":dir_change dd$
  for i=1 to 12
   led1 i:left i,32:top i,32*i
  next i

  for i=21 to 32
   edit i:left i,60:top i,32*(i-20)
  next i

alpha 15:font_size 15,14:left 15, 64:top 15,4:caption 15,"Aujourd'hui..."
alpha 35:font_size 35,14:left 35,333:top 35,4:caption 35,"En semaine..."
container 50
left 50,200:top 50,4:height 50,426:width 50,70

  for i=61 to 72
   button i:parent i,50:left i,3:top i,(32*(i-60))-4:width i,65:caption i," À faire..."
  next i

REM Deuxième série

  for i=91 to 96
   led1 i:left i,302:top i,(64*(i-90))
  next i
  for i=121 to 126
   switch1 i:left i,350:top i,(64*(i-120))-8:mark_off i
  next i

  for i=151 to 156
   edit i:left i,400:top i,(64*(i-150)):height i,50:font_size i,16
  next i

REM button 500:left 500,500:top 500,24:caption 500,"SAVE"
REM c'était pour les tests...

  if file_exists("MonMemo.txt")=1
   file_open_read 1,"MonMemo.txt"
   for i=1 to 12
   var1=i+20
   text var1,file_readln$(1)
   next i
   file_close 1
  end_if

  if file_exists("MesBtns.txt")=1
   file_open_read 1,"MesBtns.txt"
   for i=1 to 12
   var1=i+60
   caption var1,file_readln$(1)
   if caption$(var1)=" À faire..."
   mark_off i
   else
   mark_on i
   end_if
   next i
   file_close 1
  else
   for i=61 to 72:caption i," À faire...":next i
  end_if

  if file_exists("MesSwch.txt")=1
   file_open_read 1,"MesSwch.txt"
   for i=1 to 6
   var1=i+90:var2=i+120
   quid(i)=val(file_readln$(1))
   if quid(i)=0
   mark_off var1:mark_off var2
   else
   mark_on var1:mark_on var2
   end_if
   next i
   file_close 1
  else
   for i=151 to 156:text i," À faire...":next i
  end_if

  if file_exists("Hebdooo.txt")=1
   file_open_read 1,"Hebdooo.txt"
   for i=1 to 6
   var1=i+150
   text var1,file_readln$(1)
   next i
   file_close 1
  end_if

' ---
rem KLIKs
' ---

REM on_click 500,sauvegarde
on_close 0,sauvegarde
on_click 61,offOn:on_click 62,offOn:on_click 63,offOn
on_click 64,offOn:on_click 65,offOn:on_click 66,offOn
on_click 67,offOn:on_click 68,offOn:on_click 69,offOn
on_click 70,offOn:on_click 71,offOn:on_click 72,offOn

on_click 121,offSwitchOn:on_click 122,offSwitchOn:on_click 123,offSwitchOn
on_click 124,offSwitchOn:on_click 125,offSwitchOn:on_click 126,offSwitchOn

' ---
END
' ---

sauvegarde:
if file_exists("MonMemo.txt")=1 then file_delete "MonMemo.txt"
if file_exists("MesLeds.txt")=1 then file_delete "MesLeds.txt"
if file_exists("MesBtns.txt")=1 then file_delete "MesBtns.txt"
if file_exists("MesSwch.txt")=1 then file_delete "MesSwch.txt"
if file_exists("Hebdooo.txt")=1 then file_delete "Hebdooo.txt"

file_open_write 1,"MonMemo.txt"
  for i=21 to 32
   if text$(i)<>""
   file_writeln 1,text$(i)
   else
   file_writeln 1,"[vide]"
   end_if
  next i
file_close 1

file_open_write 1,"MesBtns.txt"
  for i=61 to 72
   if caption$(i)<>""
   file_writeln 1,caption$(i)
   else
   file_writeln 1,"[vide]"
   end_if
  next i
file_close 1

file_open_write 1,"MesSwch.txt"
  for i=1 to 6
   file_writeln 1,str$(quid(i))
  next i
file_close 1

file_open_write 1,"Hebdooo.txt"
  for i=151 to 156
   if text$(i)<>""
   file_writeln 1,text$(i)
   else
   file_writeln 1,"[vide]"
   end_if
  next i
file_close 1
return

offOn:
if caption$(number_click)=" À faire..."
   caption number_click," C'est bon !":mark_on number_click-60
else
   caption number_click," À faire ...":mark_off number_click-60
end_if
return

offSwitchOn:
  var1=number_click-120:var2=number_click-30
  if quid(var1)=0
   quid(var1)=1: mark_on var2
  else
   quid(var1)=0:mark_off var2
  end_if
return

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Chouette !
Suggestion : tu peux aussi y ajouter les RV
Cela compléterait utilement le pense-bête !
geek

Froggy One a écrit:: mais j'ai ralenti la soucoupe en haut de l'écran

Tricheur !
Bon, il est vrai que j'ai fait, cette fois-là,
un jeu particulièrement hyperactif et stressant,
qui demande de garder presque en permanence
le doigt sur le bouton de tir pour ne pas être surpris
par le jaillissement illégitime de ces bougres d'aliens !
lol!

Nombre de messages : 595 Date d'inscription : 06/01/2012

En fait je réapprends plein de choses avec ce truc. J'ai ajouté quelques boutons pas vraiment utiles pour trier et effacer les lignes. Attention, j'ai momentanément laissé le ON_CLOSE en standby, ça me permet de continuer à tester en direct...

Code:: color 0,180,120,50:caption 0,"Mon memo par Froggy One"

dim i,var1,var2,var3,var4,a$,b$,c$,dd$,quid(6)
label sauvegarde,offOn,offSwitchOn,tri1,tri2,raz1,raz2
dd$="C:\Elip\Elip_6_10_fr\notes\":dir_change dd$

  for i=1 to 12
   led1 i:left i,32:top i,32*i
  next i

  for i=21 to 32
   edit i:left i,60:top i,32*(i-20)
  next i

alpha 15:font_size 15,14:left 15, 64:top 15,4:caption 15,"Aujourd'hui..."
alpha 35:font_size 35,16:left 35,333:top 35,4:caption 35,"En semaine..."
container 50
left 50,200:top 50,4:height 50,426:width 50,70

  for i=61 to 72
   button i:parent i,50:left i,3:top i,(32*(i-60))-4:width i,65:caption i," À faire..."
  next i

REM Deuxième série

  for i=91 to 96
   led1 i:left i,302:top i,(64*(i-90))
  next i
  for i=121 to 126
   switch1 i:left i,350:top i,(64*(i-120))-8:mark_off i
  next i

  for i=151 to 156
   edit i:left i,400:top i,(64*(i-150)):height i,50:font_size i,16
  next i

button 500:left 500,536:top 500,38:width 500,36:caption 500,"Tri_1"
button 502:left 502,536:top 502,100:width 502,36:caption 502,"RaZ_1"
button 503:left 503,536:top 503,230:width 503,36:caption 503,"Tri_2"
button 504:left 504,536:top 504,292:width 504,36:caption 504,"RaZ_2"
REM c'était pour les tests...

dlist 600:dlist 700

' OUVERTURE des fichiers
  if file_exists("MonMemo.txt")=1
   file_open_read 1,"MonMemo.txt"
   for i=1 to 12
   var1=i+20
   text var1,file_readln$(1)
   next i
   file_close 1
  end_if

  if file_exists("MesBtns.txt")=1
   file_open_read 1,"MesBtns.txt"
   for i=1 to 12
   var1=i+60
   caption var1,file_readln$(1)
   if caption$(var1)=" À faire..."
   mark_off i
   else
   mark_on i
   end_if
   next i
   file_close 1
  else
   for i=61 to 72:caption i," À faire...":next i
  end_if

  if file_exists("MesSwch.txt")=1
   file_open_read 1,"MesSwch.txt"
   for i=1 to 6
   var1=i+90:var2=i+120
   quid(i)=val(file_readln$(1))
   if quid(i)=0
   mark_off var1:mark_off var2
   else
   mark_on var1:mark_on var2
   end_if
   next i
   file_close 1
  else
   for i=151 to 156:text i," À faire...":next i
  end_if

  if file_exists("Hebdooo.txt")=1
   file_open_read 1,"Hebdooo.txt"
   for i=1 to 6
   var1=i+150
   text var1,file_readln$(1)
   next i
   file_close 1
  end_if

' ---
rem KLIKs
' ---

REM on_click 500,sauvegarde
REM on_close 0,sauvegarde : ' après tests !
on_click 61,offOn:on_click 62,offOn:on_click 63,offOn
on_click 64,offOn:on_click 65,offOn:on_click 66,offOn
on_click 67,offOn:on_click 68,offOn:on_click 69,offOn
on_click 70,offOn:on_click 71,offOn:on_click 72,offOn

on_click 121,offSwitchOn:on_click 122,offSwitchOn:on_click 123,offSwitchOn
on_click 124,offSwitchOn:on_click 125,offSwitchOn:on_click 126,offSwitchOn

on_click 500,tri1:on_click 502,raz1:on_click 503,tri2:on_click 504,raz2

' ---
END
' ---

sauvegarde:
if file_exists("MonMemo.txt")=1 then file_delete "MonMemo.txt"
if file_exists("MesLeds.txt")=1 then file_delete "MesLeds.txt"
if file_exists("MesBtns.txt")=1 then file_delete "MesBtns.txt"
if file_exists("MesSwch.txt")=1 then file_delete "MesSwch.txt"
if file_exists("Hebdooo.txt")=1 then file_delete "Hebdooo.txt"

file_open_write 1,"MonMemo.txt"
  for i=21 to 32
   if text$(i)<>""
   file_writeln 1,text$(i)
   else
   file_writeln 1,"[vide]"
   end_if
  next i
file_close 1

file_open_write 1,"MesBtns.txt"
  for i=61 to 72
   if caption$(i)<>""
   file_writeln 1,caption$(i)
   else
   file_writeln 1,"[vide]"
   end_if
  next i
file_close 1

file_open_write 1,"MesSwch.txt"
  for i=1 to 6
   file_writeln 1,str$(quid(i))
  next i
file_close 1

file_open_write 1,"Hebdooo.txt"
  for i=151 to 156
   if text$(i)<>""
   file_writeln 1,text$(i)
   else
   file_writeln 1,"[vide]"
   end_if
  next i
file_close 1
RETURN

offOn:
if caption$(number_click)=" À faire..."
   caption number_click," C'est bon !":mark_on number_click-60
else
   caption number_click," À faire ...":mark_off number_click-60
end_if
RETURN

offSwitchOn:
  var1=number_click-120:var2=number_click-30
  if quid(var1)=0
   quid(var1)=1: mark_on var2
  else
   quid(var1)=0:mark_off var2
  end_if
RETURN

tri1:

REM on remplit le DLIST pour le tri
clear 600
   for i=1 to 12
   var1=i+20:var2=i+60
   REM var1 -> EDIT et var2 -> BUTTON
   REM je combine les deux chaînes
   item_add 600,text$(var1)+"\"+caption$(var2)
   next i
sort 600
  for i=1 to 12
   var1=i+20:var2=i+60
   a$=item_read$(600,i):var3=instr(a$,"\")
   b$=left$(a$,var3-1)
   c$=mid$(a$,1+var3,len(a$)-len(b$))
   text var1,b$
   caption var2,c$
   if c$=" C'est bon !"
   mark_on i
   else
   mark_off i
   end_if
  next i
clear 600
RETURN

tri2:
clear 600
caption 0,text$(151)
  for i=1 to 6
  var1=i+90:var2=i+120:var3=i+150
   if quid(i)=0
   item_add 600,text$(var3)+"\"+"off"
   else
   item_add 600,text$(var3)+"\"+"on"
   end_if
  next i
sort 600
  for i=1 to 6
   var1=i+90:var2=i+120:var3=i+150
   a$=item_read$(600,i):var4=instr(a$,"\")
   b$=left$(a$,var4-1)
   c$=mid$(a$,1+var4,len(a$)-len(b$))
   text var3,b$
   if c$="off"
   mark_off var1:mark_off var2
   else
   mark_on var1:mark_on var2
   end_if
  next i
clear 600
RETURN

raz1:
  for i=1 to 12
   mark_off i
   text i+20,""
   caption i+60," À faire ..."
  next i
RETURN

raz2:
  for i=1 to 6
   mark_off i+90:mark_off i+120
   text i+150," À faire ..."
  next i
RETURN

Sujet: Re: Un autre pense-bête... Ven 8 Nov 2024 - 1:11

Bonjour !

@Froggy One
Ton pense-bête est très sympa ! Bravo ! cheers

J’ai testé ce premier jet.

J’ai remarqué que la bascule des boutons "A faire… / C’est bon !" ne fonctionne pas correctement.
Après l'appui sur un bouton, le bouton affiche "C’est bon !". On réappuie sur le bouton, il affiche de nouveau "A faire..." mais on ne peut plus retourner à "C'est bon !" .

Cela provient du sous-programme offOn:
Les deux légendes "A faire…" ne sont pas identiques. L’une possède un espace entre le mot "faire" et les pointillés tandis que l’autre n’en a pas.

Bonne continuation !

EDIT :

Le sous-programme onSwicthOn comporte une petite erreur de logique.

Tu ne détectes pas la position physique de l’interrupteur :
Si tu cliques sur l’interrupteur sans le faire basculer, la LED va quand même changer d’état ainsi que le contenu de la variable quid(xx).

Autrement dit : Si l’interrupteur est sur la position « 0 » et que tu cliques sur ce « 0 », l’interrupteur restera sur « 0 » mais la LED va quand même changer d’état ainsi que la variable quid(xx), ce qui n’est pas normal.

Préconisation : utilise la fonction CHECKED(x) pour connaitre l’état de l’interrupteur à chaque clic.

Ce qui donnerait :

Code:: offSwitchOn:
  var1=number_click-120:var2=number_click-30
  if checked(number_click)=1
   quid(var1)=1: mark_on var2
  else
   quid(var1)=0:mark_off var2
  end_if
RETURN

Nombre de messages : 595 Date d'inscription : 06/01/2012

Coucou Marc ! me revoilà au clavier. Tu as vu très juste, ce qui m'a permis de corriger mon code :

Code:: color 0,180,120,50:caption 0,"Mon memo par Froggy One"

dim i,var1,var2,var3,dd$,quid(6)
label sauvegarde,offOn,offSwitchOn
dd$="C:\Elip\Elip_6_10_fr\notes\":dir_change dd$
  for i=1 to 12
   led1 i:left i,32:top i,32*i
  next i

  for i=21 to 32
   edit i:left i,60:top i,32*(i-20)
  next i

alpha 15:font_size 15,14:left 15, 64:top 15,4:caption 15,"Aujourd'hui..."
alpha 35:font_size 35,14:left 35,333:top 35,4:caption 35,"En semaine..."
container 50
left 50,200:top 50,4:height 50,426:width 50,70

  for i=61 to 72
   button i:parent i,50:left i,3:top i,(32*(i-60))-4:width i,65:caption i," À faire..."
  next i

REM Deuxième série

  for i=91 to 96
   led1 i:left i,302:top i,(64*(i-90))
  next i
  for i=121 to 126
   switch1 i:left i,350:top i,(64*(i-120))-8:mark_off i
  next i

  for i=151 to 156
   edit i:left i,400:top i,(64*(i-150)):height i,50:font_size i,16
  next i

REM button 500:left 500,500:top 500,24:caption 500,"SAVE"
REM c'était pour les tests...

  if file_exists("MonMemo.txt")=1
   file_open_read 1,"MonMemo.txt"
   for i=1 to 12
   var1=i+20
   text var1,file_readln$(1)
   next i
   file_close 1
  end_if

  if file_exists("MesBtns.txt")=1
   file_open_read 1,"MesBtns.txt"
   for i=1 to 12
   var1=i+60
   caption var1,file_readln$(1)
   if caption$(var1)=" À faire..."
   mark_off i
   else
   mark_on i
   end_if
   next i
   file_close 1
  else
   for i=61 to 72:caption i," À faire...":next i
  end_if

  if file_exists("MesSwch.txt")=1
   file_open_read 1,"MesSwch.txt"
   for i=1 to 6
   var1=i+90:var2=i+120
   quid(i)=val(file_readln$(1))
   if quid(i)=0
   mark_off var1:mark_off var2
   else
   mark_on var1:mark_on var2
   end_if
   next i
   file_close 1
  else
   for i=151 to 156:text i," À faire...":next i
  end_if

  if file_exists("Hebdooo.txt")=1
   file_open_read 1,"Hebdooo.txt"
   for i=1 to 6
   var1=i+150
   text var1,file_readln$(1)
   next i
   file_close 1
  end_if

' ---
rem KLIKs
' ---

REM on_click 500,sauvegarde
on_close 0,sauvegarde
on_click 61,offOn:on_click 62,offOn:on_click 63,offOn
on_click 64,offOn:on_click 65,offOn:on_click 66,offOn
on_click 67,offOn:on_click 68,offOn:on_click 69,offOn
on_click 70,offOn:on_click 71,offOn:on_click 72,offOn

on_click 121,offSwitchOn:on_click 122,offSwitchOn:on_click 123,offSwitchOn
on_click 124,offSwitchOn:on_click 125,offSwitchOn:on_click 126,offSwitchOn

' ---
END
' ---

sauvegarde:
if file_exists("MonMemo.txt")=1 then file_delete "MonMemo.txt"
if file_exists("MesLeds.txt")=1 then file_delete "MesLeds.txt"
if file_exists("MesBtns.txt")=1 then file_delete "MesBtns.txt"
if file_exists("MesSwch.txt")=1 then file_delete "MesSwch.txt"
if file_exists("Hebdooo.txt")=1 then file_delete "Hebdooo.txt"

file_open_write 1,"MonMemo.txt"
  for i=21 to 32
   if text$(i)<>""
   file_writeln 1,text$(i)
   else
   file_writeln 1,"[vide]"
   end_if
  next i
file_close 1

file_open_write 1,"MesBtns.txt"
  for i=61 to 72
   if caption$(i)<>""
   file_writeln 1,caption$(i)
   else
   file_writeln 1,"[vide]"
   end_if
  next i
file_close 1

file_open_write 1,"MesSwch.txt"
  for i=1 to 6
   file_writeln 1,str$(quid(i))
  next i
file_close 1

file_open_write 1,"Hebdooo.txt"
  for i=151 to 156
   if text$(i)<>""
   file_writeln 1,text$(i)
   else
   file_writeln 1,"[vide]"
   end_if
  next i
file_close 1
return

offOn:
if caption$(number_click)=" À faire..."
   caption number_click," C'est bon !":mark_on number_click-60
else
   caption number_click," À faire...":mark_off number_click-60
end_if
return

offSwitchOn:
  var1=number_click-120:var2=number_click-30
  if checked(number_click)=1
   quid(var1)=1: mark_on var2
  else
   quid(var1)=0:mark_off var2
  end_if
RETURN

Grand merci !

Peut-être pourrait-il encore enregistrer les sept Memos, pour une liste à vérifier de temps à temps : les courses, les préparatifs des vacances etc. Par ailleurs, un simple LIST le ferait tout aussi bien et je crois me souvenir que tu as déjà écrit un programme qui l'utilise.
Ceci dit, PANORAMIC est très riche, ce qui est excellent. Il faut que je trouve le moyen de fabriquer une boîte de dialogue pour enregistrer un fichier. Je ne suis pas sûr qu'une instruction toute faite existe, et le contenu du chapitre "répertoire" n'apparaît pas dans l'aide ni de PANORAMIC, ni d'ELIP. Ce n'est sans doute pas sorcier et je vais y réfléchir... study

Encore merci !

Nombre de messages : 595 Date d'inscription : 06/01/2012

Idiot bête ! j'ai posté le code du premier jet du programme !! voici le bon avec les corrections de Marc pale

Code:: color 0,180,120,50:caption 0,"Mon memo par Froggy One"

dim i,var1,var2,var3,var4,a$,b$,c$,dd$,quid(6)
label sauvegarde,offOn,offSwitchOn,tri1,tri2,raz1,raz2
dd$="C:\Elip\Elip_6_10_fr\notes\":dir_change dd$

  for i=1 to 12
   led1 i:left i,32:top i,32*i
  next i

  for i=21 to 32
   edit i:left i,60:top i,32*(i-20)
  next i

alpha 15:font_size 15,14:left 15, 64:top 15,4:caption 15,"Aujourd'hui..."
alpha 35:font_size 35,16:left 35,333:top 35,4:caption 35,"En semaine..."
container 50
left 50,200:top 50,4:height 50,426:width 50,70

  for i=61 to 72
   button i:parent i,50:left i,3:top i,(32*(i-60))-4:width i,65:caption i," À faire..."
  next i

REM Deuxième série

  for i=91 to 96
   led1 i:left i,302:top i,(64*(i-90))
  next i
  for i=121 to 126
   switch1 i:left i,350:top i,(64*(i-120))-8:mark_off i
  next i

  for i=151 to 156
   edit i:left i,400:top i,(64*(i-150)):height i,50:font_size i,16
  next i

button 500:left 500,536:top 500,38:width 500,36:caption 500,"Tri_1"
button 502:left 502,536:top 502,100:width 502,36:caption 502,"RaZ_1"
button 503:left 503,536:top 503,230:width 503,36:caption 503,"Tri_2"
button 504:left 504,536:top 504,292:width 504,36:caption 504,"RaZ_2"
REM c'était pour les tests...

dlist 600:dlist 700

' OUVERTURE des fichiers
  if file_exists("MonMemo.txt")=1
   file_open_read 1,"MonMemo.txt"
   for i=1 to 12
   var1=i+20
   text var1,file_readln$(1)
   next i
   file_close 1
  end_if

  if file_exists("MesBtns.txt")=1
   file_open_read 1,"MesBtns.txt"
   for i=1 to 12
   var1=i+60
   caption var1,file_readln$(1)
   if caption$(var1)=" À faire..."
   mark_off i
   else
   mark_on i
   end_if
   next i
   file_close 1
  else
   for i=61 to 72:caption i," À faire...":next i
  end_if

  if file_exists("MesSwch.txt")=1
   file_open_read 1,"MesSwch.txt"
   for i=1 to 6
   var1=i+90:var2=i+120
   quid(i)=val(file_readln$(1))
   if quid(i)=0
   mark_off var1:mark_off var2
   else
   mark_on var1:mark_on var2
   end_if
   next i
   file_close 1
  else
   for i=151 to 156:text i," À faire...":next i
  end_if

  if file_exists("Hebdooo.txt")=1
   file_open_read 1,"Hebdooo.txt"
   for i=1 to 6
   var1=i+150
   text var1,file_readln$(1)
   next i
   file_close 1
  end_if

' ---
rem KLIKs
' ---

REM on_click 500,sauvegarde
REM on_close 0,sauvegarde : ' après tests !
on_click 61,offOn:on_click 62,offOn:on_click 63,offOn
on_click 64,offOn:on_click 65,offOn:on_click 66,offOn
on_click 67,offOn:on_click 68,offOn:on_click 69,offOn
on_click 70,offOn:on_click 71,offOn:on_click 72,offOn

on_click 121,offSwitchOn:on_click 122,offSwitchOn:on_click 123,offSwitchOn
on_click 124,offSwitchOn:on_click 125,offSwitchOn:on_click 126,offSwitchOn

on_click 500,tri1:on_click 502,raz1:on_click 503,tri2:on_click 504,raz2

' ---
END
' ---

sauvegarde:
if file_exists("MonMemo.txt")=1 then file_delete "MonMemo.txt"
if file_exists("MesLeds.txt")=1 then file_delete "MesLeds.txt"
if file_exists("MesBtns.txt")=1 then file_delete "MesBtns.txt"
if file_exists("MesSwch.txt")=1 then file_delete "MesSwch.txt"
if file_exists("Hebdooo.txt")=1 then file_delete "Hebdooo.txt"

file_open_write 1,"MonMemo.txt"
  for i=21 to 32
   if text$(i)<>""
   file_writeln 1,text$(i)
   else
   file_writeln 1,"[vide]"
   end_if
  next i
file_close 1

file_open_write 1,"MesBtns.txt"
  for i=61 to 72
   if caption$(i)<>""
   file_writeln 1,caption$(i)
   else
   file_writeln 1,"[vide]"
   end_if
  next i
file_close 1

file_open_write 1,"MesSwch.txt"
  for i=1 to 6
   file_writeln 1,str$(quid(i))
  next i
file_close 1

file_open_write 1,"Hebdooo.txt"
  for i=151 to 156
   if text$(i)<>""
   file_writeln 1,text$(i)
   else
   file_writeln 1,"[vide]"
   end_if
  next i
file_close 1
RETURN

offOn:
if caption$(number_click)=" À faire..."
   caption number_click," C'est bon !":mark_on number_click-60
else
   caption number_click," À faire...":mark_off number_click-60
end_if
RETURN

offSwitchOn:
  var1=number_click-120:var2=number_click-30
  if checked(number_click)=1
   quid(var1)=1: mark_on var2
  else
   quid(var1)=0:mark_off var2
  end_if
RETURN

tri1:

REM on remplit le DLIST pour le tri
clear 600
   for i=1 to 12
   var1=i+20:var2=i+60
   REM var1 -> EDIT et var2 -> BUTTON
   REM je combine les deux chaînes
   item_add 600,text$(var1)+"\"+caption$(var2)
   next i
sort 600
  for i=1 to 12
   var1=i+20:var2=i+60
   a$=item_read$(600,i):var3=instr(a$,"\")
   b$=left$(a$,var3-1)
   c$=mid$(a$,1+var3,len(a$)-len(b$))
   text var1,b$
   caption var2,c$
   if c$=" C'est bon !"
   mark_on i
   else
   mark_off i
   end_if
  next i
clear 600
RETURN

tri2:
clear 600
caption 0,text$(151)
  for i=1 to 6
  var1=i+90:var2=i+120:var3=i+150
   if quid(i)=0
   item_add 600,text$(var3)+"\"+"off"
   else
   item_add 600,text$(var3)+"\"+"on"
   end_if
  next i
sort 600
  for i=1 to 6
   var1=i+90:var2=i+120:var3=i+150
   a$=item_read$(600,i):var4=instr(a$,"\")
   b$=left$(a$,var4-1)
   c$=mid$(a$,1+var4,len(a$)-len(b$))
   text var3,b$
   if c$="off"
   mark_off var1:mark_off var2
   else
   mark_on var1:mark_on var2
   end_if
  next i
clear 600
RETURN

raz1:
  for i=1 to 12
   mark_off i
   text i+20,""
   caption i+60," À faire ..."
  next i
RETURN

raz2:
  for i=1 to 6
   mark_off i+90:mark_off i+120
   text i+150," À faire ..."
  next i
RETURN

Bonjour Froggy One !

Citation :: Il faut que je trouve le moyen de fabriquer une boîte de dialogue pour enregistrer un fichier.

Pas de soucis ! Rien de plus simple, Jack a tout prévu ! cheers

Regarde l’aide des mots-clés suivants :
SAVE_DIALOG
FILE_NAME$

En complément :
FILTER
FILE_DIALOG
DIR_DIALOG

Un p’tit code pour visualiser la boîte de dialogue :

Code:: dim nomFichier$

' créer la boîte de dialogue (qui est non visible tant qu'elle n'est pas solicitée)
save_dialog 1

' afficher la boîte de dialogue
nomFichier$ = file_name$(1)

end

Les autres boîtes de dialogue :
OPEN_DIALOG
OPEN_DIALOG_PIC
SAVE_DIALOG_PIC

Bonne programmation !

» Un logiciel pratique (entre autre pour Ygeronimi, je pense)
» Je pense que çà en est un...
» Question bête
» Autre date
» Truc tout bête avec EDIT