PLM N13

Sujet: PLM N13 Jeu 11 Sep 2014 - 12:42

J' ouvre ici le sujet pour le numéro 13 de " Panoramic le Mag ".
J' espère y voir plein de nouveaux articles, petits ou grands pour faire vivre
ce magazine.

A bientôt sur ce fil de discussion...
Laughing

Sujet: Re: PLM N13 Ven 12 Sep 2014 - 8:50

J'ai commencé l'article 9 sur les fractales. Il devrait être prêt à temps.

Sujet: re Jeu 9 Oct 2014 - 8:47

Je constate avec émotion que malgré mon absence de relance
deux d' entre vous ont déposé discretement des articles sur le webdav.
Je publierai donc ces deux articles dans la journée.
Merci à vous deux.

Je ne dirai pas les noms, vous les reconnaîtrez en allant lire leurs articles sur le site... Laughing

Sujet: Re: PLM N13 Jeu 9 Oct 2014 - 10:32

Merci aux rédacteurs de continuer à faire vivre le mag (et au rédac chef pour l'intégration Smile

)

Sujet: re Jeu 9 Oct 2014 - 14:23

C' est en ligne !!! Laughing

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

Je t'envoie dans une minute, je cite,

Citation :: un petit article sans doute pas très utile aux codeurs confirmés, mais destiné à ceux et celles qui débutent en programmation – comme moi ! ou qui voudraient utiliser PANORAMIC en classe…

Ça ne vole pas très haut mais c'est au niveau débutant et ça pourrait peut-être inspirer quelqu'un... à toi de voir.
À noter que c'est le PREMIER article d'une série. Là aussi, dis-moi STP ce que tu en penses...

Comme je n'ai pas encore retrouvé le moyen de stocker tout ça sur mon propre dossier sur MyDrive, voici encore le code :

Code:: caption 0,"Je crée des mots"
color 0,0,128,92:font_size 0,12:font_bold 0
dim i%,n%,flag_list

main_menu 1
' Les cinq sous-menus sont numérotés de 11 à 15
for i%=1 to 5 :sub_menu i%+10:parent i%+10,1:next i%
' On crée une table avec le texte des bandeaux
dim a$,t$(5),f$,ln$
data "Début","Milieu","Fin","Règle","Liste"
for i%=1 to 5:read a$:caption 10+i%,a$:t$(i%)=a$:next i%
' Un deuxième niveau de ss-menu pour 15 "Fichier"
sub_menu 51:parent 51,15:caption 51,"Trier cette liste"
sub_menu 52:parent 52,15:caption 52,"Sauver cette liste"
sub_menu 53:parent 53,15:caption 53,"Vider cette liste"
sub_menu 54:parent 54,15:caption 54,"Ajouter un élément"
' On dessine un cadre (LIST) et un plus petit (EDIT) pour affichage
list 100
left 100,int((width(0)-145)/2):top 100,69::height 100,height(0)-130:hide 100
edit 110:left 110,int((width(0)-145)/2):top 110,30:width 110,width(100): hide 110

label clicbandeau,tri,saisie,poubelle,sauvegarde
on_click 11, clicbandeau
on_click 12, clicbandeau
on_click 13, clicbandeau
on_click 51, tri
on_click 52, sauvegarde
on_click 53, poubelle
on_click 54, saisie

END
' fin du programme...
' ********************************************************
' Et voici les SOUS-MENUS :

clicbandeau:

' On note qu'il y a bien un list ouvert
flag_list=1
n%=number_click-10
show 100:show 110:text 110,t$(n%)
' On lit le fichier où l'on a mis le contenu du list
a$=t$(n%):f$=a$+".txt"
' On cherche d'abord s'il existe, et s'il n'existe pas, on le crée
if file_exists(f$)=0
   file_open_write n%,f$:file_writeln n%,"Efface-moi":file_close n%
end_if

' Sinon, on ouvre et on affiche

  if file_exists(f$)=1
   clear 100
   file_open_read n%,f$
   repeat
   file_readln n%,ln$
   item_add 100,ln$
   until file_eof(n%)=1
  end_if
  file_close n%

RETURN
' ********************************************************
tri:

if flag_list=0:message "Quelle liste ?":RETURN:end_if
sort 100


RETURN
' ********************************************************
saisie:

if flag_list=0:message "A quelle liste ?":RETURN:end_if
a$=message_input$("SAISIE","Ecris et clique sur OK","xxx")
item_add 100,a$

RETURN
' ********************************************************
poubelle:

if flag_list=0:message "Quelle liste ?":RETURN:end_if
clear 100

RETURN
' ********************************************************
sauvegarde:

if flag_list=0:message "Quelle liste ?":RETURN:end_if
file_delete f$
file_open_write n%,f$
   for i%=1 to count(100)
   file_writeln n%,item_read$(100,i%)
   next i%
  file_close n%

RETURN
' ********************************************************

Voilà !