prgm TxT Print - Enregistrez vos cours sur votre TI-82

Coucou à tous!

je vous présente mon nouveau programme, TxT-print!

TxTPRINT est un utilitaire très utile, codé en TI-basic.
Il permet de saisir un petit texte (maximum 207 caractères), et de l'enregistrer dans sa TI, tout cela sans besoin d'un PC. Le programme vous permet de saisir jusqu'à 3 fiches de 207 caractères; soit 627 caractères, ce qui est plutôt pas mal... Bien sûr, lorsque vous quittez le programme, les fiches sont sauvegardées.
Vous pouvez également supprimer une fiche déjà existante, et TxTPRINT vous informe, avant de tapez votre texte, si la mémoire est pleine.
Le programme dispose également d'une fonction qui permet de désactiver, ou de réactiver selon vos souhaits les minuscules (minuscules: appuyez 2 fois sur ALPHA) . Fonction non-disponible sur les TI non flash (>TI-83)

Screenshoot :

Avant toute utilisation, je conseille d’effacer la liste L1 pour éviter les soucis

Code version Ti-82:

Code:


:AxesOff:GridOff
:DelVar K:3→dim(ᴸ1:Lbl W
:ClrDraw:ClrHome:DelVar F
:Menu(" TXT PRINT","NOUVEAU",N,"VOIR",V,"RESET",RR,"QUITTER",Q
:Lbl Q:Stop
:Lbl RR:ClrDraw
:StorePic 1:StorePic 2:StorePic 3:DelVar ᴸ1:3→dim(ᴸ1:DelVar K:DelVar F:Goto W
:Lbl V
:Menu(" VOIR","FICHE 1",A,"FICHE 2",B,"FICHE 3",C
:Lbl C:3→F:Goto F
:Lbl B:2→F:Goto F
:Lbl A:1→F:Goto F:Lbl N
:If ᴸ1(1)*ᴸ1(2)*ᴸ1(3):Then:Pause "MEMOIRE PLEINE!":Goto W:End
:Disp "MAX:207 LETTRES
:Input "ENTRE TON TEXTE:",Str1
:DelVar R
:length(Str1→T
:DelVar P
:If T<24:Goto 1
:If T≥24 and T<47:Goto 2
:If T≥47 and T<70:Goto 3
:If T≥70 and T<93:Goto 4
:If T≥93 and T<116:Goto 5
:If T≥116 and T<139:Goto 6
:If T≥139 and T<162:Goto 7
:If T≥162 and T<185:Goto 8
:If T≥185 and T<208:Goto 9
:Lbl 9
:For(A,1,162,23
:   Text(P,0,sub(Str1,A,23
:   P+7→P:End
:Text(56,0,sub(Str1,185,T-184
:Goto F
:Lbl 8
:For(A,1,139,23
:   Text(P,0,sub(Str1,A,23
:   P+7→P:End
:Text(49,0,sub(Str1,162,T-161
:Goto F
:Lbl 7
:For(A,1,116,23
:   Text(P,0,sub(Str1,A,23
:   P+7→P:End
:Text(42,0,sub(Str1,139,T-138
:Goto F
:Lbl 6
:For(A,1,93,23
:   Text(P,0,sub(Str1,A,23
:   P+7→P:End
:Text(35,0,sub(Str1,116,T-115
:Goto F
:Lbl 5
:For(A,1,70,23
:   Text(P,0,sub(Str1,A,23
:   P+7→P:End
:Text(28,0,sub(Str1,93,T-92
:Goto F
:Lbl 4
:For(A,1,47,23
:   Text(P,0,sub(Str1,A,23
:   P+7→P
:End
:Text(21,0,sub(Str1,70,T-69
:Goto F
:Lbl 3
:Text(0,0,sub(Str1,1,23
:Text(7,0,sub(Str1,24,23
:Text(14,0,sub(Str1,47,T-46
:Goto F
:Lbl 2
:Text(0,0,sub(Str1,1,23
:Text(7,0,sub(Str1,24,T-23
:Goto F
:Lbl 1
:Text(0,0,sub(Str1,1,T
:Goto F
:Lbl F
:If F=1:RecallPic 1
:If F=2:RecallPic 2
:If F=3:RecallPic 3
:If not(F:DispGraph
:DelVar K
:Repeat K=45
:   If K=105 and not(F:Goto S
:   If K=45:Goto W
:   If K=23:Goto Θ
:   getKey→K
:End
:Goto W
:Lbl Θ:ClrDraw
:If F=1:Then:StorePic 1:0→ᴸ1(1:End
:If F=2:Then:StorePic 2:0→ᴸ1(2:End
:If F=3:Then:StorePic 3:0→ᴸ1(3:End
:Goto W
:Lbl S:ClrHome
:Menu("SAUVEGARDE","FICHE 1",S1,"FICHE 2",S2,"FICHE 3",S3
:Pause
:Lbl S1
:If ᴸ1(1:Then:Pause "EXISTE DEJA":Goto S:Else:1→ᴸ1(1:StorePic 1:Goto W:End
:Lbl S2
:If ᴸ1(2:Then:Pause "EXISTE DEJA":Goto S:Else:StorePic 2:1→ᴸ1(2:Goto W:End
:Lbl S3
:If ᴸ1(3:Then:Pause "EXISTE DEJA":Goto S:Else:StorePic 3:1→ᴸ1(3:Goto W:End

Pas mal !

Spoiler:

pito2901 a écrit:Pas mal !
Quelle en est l'utilité ??

D'enregistrer un memo, un cours, des formules dans sa TI. On peut faire pareil avec une string, mais la présentation est vraiment pas terrible, et il faut un temps fou pour rechercher une infos... (flêche de droite appuyée pendant 10 minutes :p )

A toi de trouver son utilitée

Ok alors +1 !

cool!
Merci

Bien.

quelques autres sources non exhaustives:

Depuis les progs de Maxence, j'ai l'habitude d'utiliser la combinaison de touches 2nde+sto(rappel) dans le champ de saisie pour pouvoir éditer les notes déjà sauvées.

Merci pour ces références