[TI-83 Premium CE] Code lors du lancement

[leoparis15]

J'avoue ne pas avoir trop compris ce truc de hook

En tout cas j'ai écrit le programme tout bête qui demande le code (sauf qu'il ne se lance évidemment pas au démarrage):

(le code est 1234 pour l'instant)

Code: Select all

ClrHome
Lbl 0
Output(2,1,"*******INSERER CODE******")
Output(6,12,"-")
Output(6,13,"-")
Output(6,14,"-")
Output(6,15,"-")
Repeat K=72 or K=73 or K=74 or K=82 or K=83 or K=84 or K=92 or K=93 or K=94 or K=102
getKey→K
End
Output(6,12,"*")
Repeat L=72 or L=73 or L=74 or L=82 or L=83 or L=84 or L=92 or L=93 or L=94 or L=102
getKey→L
End
Output(6,13,"*")
Repeat M=72 or M=73 or M=74 or M=82 or M=83 or M=84 or M=92 or M=93 or M=94 or M=102
getKey→M
End
Output(6,14,"*")
Repeat N=72 or N=73 or N=74 or N=82 or N=83 or N=84 or N=92 or N=93 or N=94 or N=102
getKey→N
End
Output(6,15,"*")
If K=92 and L=93 and M=94 and N=82
Then:ClrHome:Stop
Else:Output(8,10,"ERREUR !"):Goto 0:End

[Epharius]

Ce dont je suis sûr, c'est que tu ne vas pas aller très loin en Ti-Basic, si tu veux bloquer la calculatrice
Pour faire ce genre de projet, tu vas devoir programmer en assembleur, le langage de programmation de plus bas niveau sur calculatrice. Si tu ne connais pas, je ne pense pas que ce soit une bonne idée de ce lancer sur un tel projet sans avoir de bases en programmation assembleur. Entre autres, ce langage est beaucoup plus rapide, a beaucoup plus de possibilités (permet par exemple de changer le fonctionnement de l'OS) mais très dangereux.
Le basic ne te permettra jamais de changer le fonctionnement de l'OS. On ne peut même pas Archiver de programme avec. Tu peux à la limite interdire l'utilisateur de quitter un programme Basic avec le verrouillage de la touche [ON] (un programme de MateoConLechuga) mais ce sera à l'utilisateur d'exécuter le programme, il ne se lancera pas automatiquement.

Sinon, côté pratique, ton code peut être raccourci comme ceci :

Code: Select all

ClrHome
Lbl 0
Output(2,1,"*******INSERER CODE******
Output(6,12,"----
4->dim(L1
For(I,4,1,-1
Repeat K>=72 and K<=74 or K>=82 and K<=84 or K>=92 and K<=94 or K=102
getKey→K
End
K->L1(5-I
Output(6,11+I,"*
End
If L1(1)=92 and L1(2)=93 and L1(3)=94 and 82=L1(4
Then:ClrHome:Stop
Else:Output(8,10,"ERREUR !"):Goto 0:End

Les parenthèses fermantes et les " ne sont pas obligatoires en fin de ligne. De plus, j'ai mis dans une boucle ton repeat pour l'exécuter 4 fois, ça prend moins de place

Dans tous les cas, il existe déjà un ou deux programme qui font ce que tu souhaites faire, tu peux en retrouver deux ici : viewtopic.php?t=17955
Mais, c'est sûr que ça peut être intéressant de le faire soit-même