un petit programme mot de passe

→ **MyCalcs** profile · by **kindermoumoute** » 11 Oct 2009, 18:27

Après avoir regardé a gauche a droite ce qu'était le ti-basic je me suis attaquer a mon vrai premier programme

qui consiste (ça n'est pas nouveau) à mettre un mot de passe aux démarrage de la calculatrice!

Code: Select all: ::Lbl 1 :ClrHome :0:Asm(prgmONBLOCK :DelVar KDelVar AOutput(1,1,"MOT DE PASSE: :Repeat K=XX //lettre A :¦ DelVar KgetKey→K :¦ If K≠0 :¦ Then :¦ ¦ If K=11 :¦ ¦ Then :¦ ¦ ¦ DelVar K :¦ ¦ ¦ Repeat K=12 :¦ ¦ ¦ ¦ getKey→K :¦ ¦ ¦ ¦ If K≠12 and K≠0 :¦ ¦ ¦ ¦ Then :¦ ¦ ¦ ¦ ¦ Goto 1 :¦ ¦ ¦ ¦ End :¦ ¦ ¦ End :¦ ¦ ¦ DelVar K :¦ ¦ ¦ Repeat K=13 :¦ ¦ ¦ ¦ getKey→K :¦ ¦ ¦ ¦ If K≠13 and K≠0 :¦ ¦ ¦ ¦ Then :¦ ¦ ¦ ¦ ¦ Goto 1 :¦ ¦ ¦ ¦ End :¦ ¦ ¦ End :¦ ¦ ¦ DelVar K :¦ ¦ ¦ Repeat K=14 :¦ ¦ ¦ ¦ getKey→K :¦ ¦ ¦ ¦ If K≠14 and K≠0 :¦ ¦ ¦ ¦ Then :¦ ¦ ¦ ¦ ¦ Goto 1 :¦ ¦ ¦ ¦ End :¦ ¦ ¦ End :¦ ¦ ¦ DelVar K :¦ ¦ ¦ Repeat K=15 :¦ ¦ ¦ ¦ getKey→K :¦ ¦ ¦ ¦ If K≠15 and K≠0 :¦ ¦ ¦ ¦ Then :¦ ¦ ¦ ¦ ¦ Goto 1 :¦ ¦ ¦ ¦ End :¦ ¦ ¦ End :¦ ¦ ¦ ClrHome :¦ ¦ ¦ Output(1,1,"BONJOUR CECI EST UNE FONCTION CACHE :¦ ¦ ¦ Pause :¦ ¦ ¦ Goto 1 :¦ ¦ End :¦ ¦ A+1→A :¦ ¦ Output(2,A,"* :¦ ¦ If A=4 :¦ ¦ Then :¦ ¦ ¦ Asm(prgmSHUTDOWN :¦ ¦ ¦ Goto 1 :¦ ¦ End :¦ End :End :Repeat K=XX //lettre B :¦ DelVar KgetKey→K :¦ If K≠0 :¦ Then :¦ ¦ A+1→A :¦ ¦ Output(2,A,"* :¦ ¦ If A=4 :¦ ¦ Then :¦ ¦ ¦ Asm(prgmSHUTDOWN :¦ ¦ ¦ Goto 1 :¦ ¦ End :¦ End :End :Repeat K=XX //lettre C :¦ DelVar KgetKey→K :¦ If K≠0 :¦ Then :¦ ¦ A+1→A :¦ ¦ Output(2,A,"* :¦ ¦ If A=4 :¦ ¦ Then :¦ ¦ ¦ Asm(prgmSHUTDOWN :¦ ¦ ¦ Goto 1 :¦ ¦ End :¦ End :End :DelVar ARepeat K=XX //lettre D :¦ getKey→K :¦ If K=65 :¦ Then :¦ ¦ Repeat A=4 :¦ ¦ ¦ A+1→A :¦ ¦ ¦ ClrHome :¦ ¦ ¦ randBin(5,0 :¦ ¦ ¦ Output(2,1,"**** :¦ ¦ ¦ randBin(5,0 :¦ ¦ End :¦ End :End :Asm(prgmZBATTCHK :ClrHome :If X=0 :Then :¦ Output(1,1,"BATTERIE : MAUVAISE :¦ Pause :End :1:Asm(prgmONBLOCK :Output(4,5,"HEY BOSS :For(Y,1,1,1 :¦ For(X,1,63,1 :¦ ¦ Asm(prgmSHIFT :¦ End :End

Voilà cela n'est pas grand chose pour l'instant mais donnez vos commentaires, d'éventuelles optimisation, ...etc

PS : pour faire fonctionner ce programme, remplacer les lettres XX pars les differentes touche que vous preferer et il est necessaire d'avoir les programmes SHUTDOWN, SHIFT, ZBATTCHK de BASIC Tools utility disponibles ici http://www.ticalc.org/pub/83plus/asm/pr ... index.html
ainsi que le programme ONBLOCK que vous pouvez creer vous même avec ce tuto ici http://ti83-84.skyrock.com/1724070332-B ... BASIC.html

→ **MyCalcs** profile · by **Marco** » 11 Oct 2009, 21:19

Salut
Il faudrait que tout passe dans une boucle, sinon tu peux enlever les Then et End si t'as qu'une instruction après le If.
Moi, ce que je ferais, c'est que j'enregistrerais les touches sur lesquelles on a appuyé (dans une liste) puis je comparerais avec le résultat attendu. Tu remarqueras que ça prend beaucoup moins de place à écrire comme algorithme.

→ **MyCalcs** profile · by **kindermoumoute** » 12 Oct 2009, 19:23

Ouai mai pour l'instant je maîtrise pas les listes, pour les THEN et END j'ai vu que cela prenait moin de place quand on met if then end que si on faisait if : instruction
ou sinon je pensai faire un autre truc mais je ne sais pas si c'est possible, en baissant le contraste de l'écran à 0 au démarrage du programme, comme ça quelqu'un qui ne connait pas peu croire a une panne de la calculette, mais je ne sais pas comment faire cela dans un programme.

→ **MyCalcs** profile · by **Marco** » 12 Oct 2009, 19:34

kindermoumoute wrote:je pensai faire un autre truc mais je ne sais pas si c'est possible, en baissant le contraste de l'écran à 0 au démarrage du programme, comme ça quelqu'un qui ne connait pas peu croire a une panne de la calculette, mais je ne sais pas comment faire cela dans un programme.

C'est possible en utilisant un programme en assembleur, mais c'est pas un peu grillé comme technique ?

→ **MyCalcs** profile · by **kindermoumoute** » 13 Oct 2009, 20:26

Marco wrote:C'est possible en utilisant un programme en assembleur, mais c'est pas un peu grillé comme technique ?

Et bas détrompe toi l'autre jour j'ai baisser le contraste a zéro juste avant que ma prof de physique me prenne ma calculatrice et je lui ai expliqué avec désolement qu'elle ne marchait plus!

→ **MyCalcs** profile · by **tama** » 13 Oct 2009, 20:32

ça dépend des profs, y a des profs qui se posent même pas de question et enlèvent une pile (c'est ce que faisait ma prof de 1ère ... de physique ! heureusement, ça ne m'est jamais arrivé

)
Pour ton programme il est bien, mais il est sûrement optimisable (bien, l'indentation

)

→ **MyCalcs** profile · by **ced78fr** » 13 Oct 2009, 21:11

la prof t'enlève un pile et tu gagne un reset, avec des programmes en moins xD

→ **MyCalcs** profile · by **Bisam** » 13 Oct 2009, 23:48

J'voudrais pas faire mon intéressant mais à part si tu l'utilises alors qu'il t'a spécifié que c'est interdit, un prof ou un surveillant n'a théoriquement pas le droit de te prendre ta calculatrice. Il a encore moins le droit d'en consulter voire d'en altérer son contenu. C'est une atteinte à la propriété privée.

Bien sûr, il peut te la confisquer (pour un motif valable comme "tentative de triche" ou "jeu pendant les heures de cours") et ne la restituer qu'à tes parents s'il le souhaite...

→ **MyCalcs** profile · by **kindermoumoute** » 14 Oct 2009, 17:19

Xywez wrote:la prof t'enlève un pile et tu gagne un reset, avec des programmes en moins xD

Ce qui peut être très utile si tu a mit un programme de triche sur ta calculette!

Bisam wrote:J'voudrais pas faire mon intéressant mais à part si tu l'utilises alors qu'il t'a spécifié que c'est interdit, un prof ou un surveillant n'a théoriquement pas le droit de te prendre ta calculatrice. Il a encore moins le droit d'en consulter voire d'en altérer son contenu. C'est une atteinte à la propriété privée.

Bien sûr, il peut te la confisquer (pour un motif valable comme "tentative de triche" ou "jeu pendant les heures de cours") et ne la restituer qu'à tes parents s'il le souhaite...

Je vais tenter cela la prochaine fois qui sait...