Éditeur de textes

Bonjour à tous!

Beaucoup d'entre vous ont déjà rentré du cours dans un programme pour le lire en contrôle 

Cependant, l'éditeur de programmes n'est pas très ergonomique,
j'ai alors décidé de créer mon propre éditeur avec une écriture sur l'écran graphique pour plus de place!

Pour l'instant, il se contente d'écrire la touche que l'utilisateur tape, de revenir à la ligne quand on appuie sur [enter] et d'afficher une erreur lorsque Y est trop grand 

Si quelqu'un souhaite travailler en coopération, c'est possible!

Aperçu:


code source:

Code:


[font=Consolas, monospace]"ABCDEFGHIJKLMNOPQRSTUVWXYZ ->Str1
{41,42,43,51,52,53,54,55,61,62,63,64,65,71,72,73,74,75,81,82,83,84,85,91,92,93,102->L1
ClrDraw
FnOff
AxesOff
DelVar XDelVar YFull
Repeat A=45
getKey->A
If A=105
DelVar XY+6->Y
sum(A=L1
If Ans
Then
While A-L1(Ans
Ans+1
End
Text(Y,X,sub(Str1,Ans,1
X+4->X
If X>90
DelVar XY+6->Y
End
End

Très bien  

Evidemment, je peux t'apporter toute l'aide dont tu auras besoin ! 
Content de voir un premier projet du nouveau Tout-82 !

moi je veux bien t'aider aussi mais je ne suis vraiment pas le meilleur programmeur de tout les temps alors si tu me file un truc à faire faut que se soit relativement simple.

J'avais essayer de faire un programme dans le meme style, mais un peut différent.
En fait on commence par un INPUT ou l'utilisateur rentre son texte.
Puis le programme ecris le tout sur l'écran graphique, en mettant 23 caractères par ligne et il y a 9 ligne. Dès qu'il a finit de mettre 23 caractère sur une ligne, il passe à la ligne suivante, ect.
Dès qu'il a finit une page, il enregistre la page dans un Pic et recommence pour les pages suivantes.
En tout, on peut donc stocker 23 x 9 x 9 = 1863 caractère, ce qui est pas mal!

Malheuresement au bout de la ligne 5 sa m'a soulé et j'ai pas continué.
Si quelqu'un veut prendre la relève, je lui cède volontier le programme

C'est une bonne idée mais la Pic n'est pas pratique car il y en a peu 



Il faudrait trouver un moyen de convertir Pic en listes! 

Peut-être parcourir la page avec de Pixel-Test(, puis prendre le nombre binaire de 6144 bits obtenu et le convertir en une base plus grande (64, voire plus!)


EDIT: 5985 bits en fait, il y a une colonne et une ligne qui sont inutilisables en TI-basic

Bah alors là, mieux vaut sauvegarder tous les caractères puis les ré-afficher sur l'écran graphique quand on change de page...
C'est plus rapide, plus pratique, et ça prend beaucoup moins de place

Si mes souvenirs sont bons, je crois savoir qu'il y a un programme qui fait ce que tu envisageais, Samos, sur le vieux Tout-82. Je te laisse chercher si ça t'intéresse.

Il s'apelle comment ?

Il s'appelle Scanner, il est de moi, et il est très mauvais...

Il stocke dans une liste de 94 termes les coordonnées de points jusqu'à 7 points par abscisse, ce qui suffit à enregistrer la plupart des Pic.

Mais c'est:

• Super lent
  
• Parfois inexact
  

Cependant, je pense a une autre idée.
Considérez que chaque mot est un nombre codé en base 27. Convertissez le en base 10.


Ainsi, vous pouvez stocker dans une liste, à raison d'un mot par "case" de liste.
Et pour le retraçage: On prend le premier nombre dans la liste, on le convertit en base 27 pour retrouver notre mot, on l'affiche, on ajoute un espace, on passe au suivant...




Est-ce qu'on y gagne ?
EDIT: on oublie, c'est idiot, ça pèse plus lourd que de tout stocker dans une chaine...

Voici mon éditeur :
Il est finit à 50%


:0→Xmin:94→Xmax
:0→Ymin:62→Ymax
:ClrHome:ClrDraw
:DelVar Str1
:Disp "TxtPRINT
:0→R
:Input " ",Str1
:length(Str1)→T
:ClrHome
:If T<24:Goto 1L
:If T≥24 and T<47:Goto 2L
:If T≥47 and T<70:Goto 3L
:If T≥70 and T<93:Goto 4L
:If T≥93 and T<116:Goto 5L
:If T≥116 and T<139:Goto 6L
:If T≥139 and T<162:Goto 7L
:If T≥162 and T<185:Goto 8L
:If T≥185:Goto NL
:Lbl 4L
:Text(0,0,sub(Str1,1,23
:Text(7,0,sub(Str1,24,T-46
:Text(14,0,sub(Str1,48,T-47
:Text(21,0,1
:Goto AG
:
:
:Lbl 3L
:Text(0,0,sub(Str1,1,23
:Text(7,0,sub(Str1,24,T-46
:Text(14,0,sub(Str1,48,T-47
:Lbl 2L
:Text(0,0,sub(Str1,1,23
:Text(7,0,sub(Str1,24,T-23
:Goto AG
:Lbl 1L
:Text(0,0,sub(Str1,1,T
:Goto AG
:Lbl AG
:DispGraph