Forum TI-Planet.org

N'ayant pas accès à une véritable TI-89/TI-89T, j'ai besoin de récolter quelques informations dessus.

Voici un programme, que je viens de coder, et qui récupère des informations dont j'ai besoin.

http://www.mirari.fr/z124

Les informations sont incluses.

Merci d'avance.

et tu peux pas le faire sur emu ?

EDIT : vive l'optimisation x____x

MAJ : bon sinon, les résultats :
ERROR : data type xD

Bon, corrigé le code

Résultat :

Code: Select all

Product Name          Advanced Mathematics Software
OS Version              2.09, 03/27/2003
Product ID              03-1-C-59
Screen width           160
Screen height          100
Window width          160
Window height         77
RAM size                 262132
Free RAM                190986
Archive size             589824
Free archive            589806
AAAA
338
344
337
340
AAAA
4434
4440
4433
4436
AAAA
8530
8536
8529
8532
AAAA
16722
16728
16721
16724
AAAA
AAAA
10
AAAA
z
AAAA


Tu as fait comment pour l'extraire sous forme de texte?

Merci quand même!

TI-89 non titanium, je suppose?

Et puis l'optimisation, qu'est-ce qu'elle a?

pour extraire, j'ai copié à la main, j'avais la flemme de sortir ma TI, alors j'l'ai fait sur emu

pour l'optimisation : extrait de code :

Code: Select all

Disp "Appuyer sur APPS"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur ESC"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur Enter"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur sto»"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur clear"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur mode"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
augment(getConfg(),{"AAAA"})»list

Disp "Appuyer sur F1"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur F2"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur F3"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur F4"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur F5"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur F6"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur F7"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur F8"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur F9"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
augment(getConfg(),{"AAAA"})»list
Disp "Appuyer sur "
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur "
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur "
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur »"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
augment(list,{"AAAA"})»list
Disp "Appuyer sur 2nd "
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur 2nd "
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur 2nd "
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur 2nd »"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
augment(list,{"AAAA"})»list
Disp "Appuyer sur  "
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur  "
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur  "
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur  »"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
augment(list,{"AAAA"})»list
Disp "Appuyer sur  "
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur  "
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur  "
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list
Disp "Appuyer sur  »"
0»c:While c=0:getKey()»c:EndWhile:augment(list,{c})»list


x___x

Qu'y a-t-il de mal à cela?

bah la répétition, c'est pas plus simple de mettre une chaine :

Code: Select all

{"APPS","ESC","ENTER",....}-appuyer
For z,1,dim(appuyer)
0-c
Disp "Appuyer sur "appuyer[z]
While c=0
getKey()-c
EndWhile
augment(list,{c})»list
EndFor


Mouais...