Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Easy Memo

Easy Memo

Auteur

Message

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Lun 31 Mai 2010, 20:19

Je viens de faire un programme pour créer des mémos sur la calculette.Il n'aura aucun intérêt pour les gens s'y connaissant en programmation,surtout qu'il utilise les chaînes de 1 à 9.Mais pour d'autres il pourrait s'avérer utile.

Par contre j'ai pas trouvé comment on pourrait éditer simplement des mémos déjà crées sans les effacer.Là les programmateurs pourraient m'aider.

Le programme fait 1567 octets,mais il faut en compter au minimum 216 pour les chaînes.

Vous pouvez le télécharger là:http://www.mediafire.com/?xk2wiolawdz
Ou le recopier à la main."l" est le petit "L" et ¤ est le theta

Code

:1->dim(lMEMO
:If lMEMO(1)=1
:Goto A
:" "->Chaîne1 -14 espaces à chaque fois-
:" "->Chaîne2
:" "->Chaîne3
:" "->Chaîne4
:" "->Chaîne5
:" "->Chaîne6
:1->lMEMO(1
:Lbl A
:EffEcr
:Menu(" REZUS MEMO ",sous-Chaîne(Chaîne1,1,14),1,sous-Chaîne(Chaîne2,1,14),2,sous-Chaîne(Chaîne3,1,14),3,sous-Chaîne(Chaîne4,1,14),4,sous-Chaîne(Chaîne5,1,14),5,sous-Chaîne(Chaîne6,1,14),6,"QUITTER",¤
:Lbl 1
:1->A
:sous-Chaîne(Chaîne1,1,14)->Chaîne7
:Chaîne1->Chaîne8
:Goto G
:Lbl 2
:2->A
:sous-Chaîne(Chaîne2,1,14)->Chaîne7
:Chaîne2->Chaîne8
:Goto G
:Lbl 3
:3->A
:sous-Chaîne(Chaîne3,1,14)->Chaîne7
:Chaîne3->Chaîne8
:Goto G
:Lbl 4
:4->A
:sous-Chaîne(Chaîne4,1,14)->Chaîne7
:Chaîne4->Chaîne8
:Goto G
:Lbl 5
:5->A
:sous-Chaîne(Chaîne5,1,14)->Chaîne7
:Chaîne5->Chaîne8
:Goto G
:Lbl 6
:6->A
:sous-Chaîne(Chaîne6,1,14)->Chaîne7
:Chaîne6->Chaîne8
:Lbl G
:longueur(Chaîne8)/128->B
:EffEcr
:Menu(Chaîne7,"VOIR",H,"EDITER",I,"RENOMMER",J,"SUPPRIMER",K,"RETOUR",A
:Lbl H
:For(C,0,B
:If longueur(Chaîne8)-128C-14<128
:Goto L
:Output(1,1,sous-Chaîne(Chaîne8,15+128C,128
:Pause
:EffEcr
:End
:Goto G
:Lbl L
:If longueur(Chaîne8)-14-128C>0
:Output(1,1,sous-Chaîne(Chaîne8,15+128C,128B-14-128C
:Pause
:EffEcr
:Goto G
:Lbl I
:Disp "","","","","",""
:Output(1,1,"ATTENTION,CETTE ACTION EFFACERA LE CONTENU ACTUEL DE CE MEMO.
:Input "CONTINUER (O/N)?",Chaîne9
:If Chaîne9="N
:Goto G
:EffEcr
:Output(3,1,"TAPEZ MAINTENANTLE CONTENU DU MEMO.
:Pause
:EffEcr
:Input "",Chaîne8
:If A=1
:Chaîne7+Chaîne8->Chaîne1
:If A=2
:Chaîne7+Chaîne8->Chaîne2
:If A=3
:Chaîne7+Chaîne8->Chaîne3
:If A=4
:Chaîne7+Chaîne8->Chaîne4
:If A=5
:Chaîne7+Chaîne8->Chaîne5
:If A=6
:Chaîne7+Chaîne8->Chaîne6
:EffEcr
:Output(3,1,"LE NOUVEAU MEMO A ETE ENREGISTREAVEC SUCCES.
:Pause
:Goto A
:Lbl J
:EffEcr
:Disp "ENTRER NOUVEAU","NOM.","(14 CARACTERES","MAXI)
:Input " ",Chaîne7
:If longueur(Chaîne7)>14
:Then
:Disp "NOM TROP LONG.
:Pause
:Goto J
:End
:longueur(Chaîne7->D
:For(C,D,13
:Chaîne7+" "->Chaîne7
:End
:If 128B<15
:Then
:Chaîne8+" "->Chaîne8
:longueur(Chaîne8)/128->B
:End
:Chaîne7+sous-Chaîne(Chaîne8,15,128B-14)->Chaîne8
:If A=1
:Chaîne8->Chaîne1
:If A=2
:Chaîne8->Chaîne2
:If A=3
:Chaîne8->Chaîne3
:If A=4
:Chaîne8->Chaîne4
:If A=5
:Chaîne8->Chaîne5
:If A=6
:Chaîne8->Chaîne6
:Disp "","RENOMME AVEC","SUCCES.
:Pause
:Goto G
:Lbl K
:Disp "ETES-VOUS SUR","DE VOULOIR","SUPPRIMER",Chaîne7
:Input "(O/N) ? ",Chaîne9
:If Chaîne9="N
:Goto G
:If A=1
:" "->Chaîne1
:If A=2
:" "->Chaîne2
:If A=3
:" "->Chaîne3
:If A=4
:" "->Chaîne4
:If A=5
:" "->Chaîne5
:If A=6
:" "->Chaîne6
:EffEcr
:Disp "","",Chaîne7,"A ETE SUPPRIME","AVEC SUCCES.
:Pause
:Goto A
:Lbl ¤
:EffVar Chaîne7
:EffVar Chaîne8
:EffVar Chaîne9
:Output(1,1,"

Reinhart

Autorisation : Membre
Nb de messages : 37
Inscrit le : Lun 16 Nov 2009, 18:58

Posté le : Lun 31 Mai 2010, 21:18

Pour editer les notes soit les chaines utilise les sous chaine.

----------------------
Eleve a Supinfo, programmeur C/C#/C++/Java/Assembleur
Delphi/et tout les langages Web.

Programmeur de Ti Basic sur demande, adresse msn : St3ph_daft@hotmail.fr

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Lun 31 Mai 2010, 22:07

^^ si tu lis le code,tu verras que je n'utilises que ça ou presque,le problème c'est que je veux que l'utilisateur puisse retoucher comme il veut son memo facilement,un genre de traitement de texte quoi.Le problème c'est que comme les mémos sont stockés dans des chaînes,je ne vois pas comment je pourrais le faire.

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Lun 31 Mai 2010, 23:55

Ce programme est extra (mais pas primordial).
J'ai réfléchi à ton problème d'édition mais moi non plus je ne trouve pas.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

Reinhart

Autorisation : Membre
Nb de messages : 37
Inscrit le : Lun 16 Nov 2009, 18:58

Posté le : Mer 02 Jui 2010, 13:59

Avec les sous chaine je vous ai di !!

----------------------
Eleve a Supinfo, programmeur C/C#/C++/Java/Assembleur
Delphi/et tout les langages Web.

Programmeur de Ti Basic sur demande, adresse msn : St3ph_daft@hotmail.fr

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Mer 02 Jui 2010, 14:42

et moi j'ai répondu bien sur mais comment ?

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Jeu 03 Jui 2010, 0:09

La notion d'afficher un texte et déplacer un curseur dessus ne me semble pas possible de manière simple. Les sous-chaînes ne suffisent pas à elles seules.
Le seul affichage que j'envisage nécessite le graphe pour pouvoir utiliser un curseur sans cacher un caractère.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Jeu 03 Jui 2010, 13:45

Ouais,je vois quoi,mais ça va être dur.
Si quelqu'un veut s'en charger,pas de problèmes,j'ai le bac dans 10 jours et j'ai d'autres projets donc j'y regarderais pas de sitôt.

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Easy Memo

Page générée en 6 requêtes

Flux RSS