Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 2804
Réponses : 37
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

PENDU BY SNAP

snap le 13/10/2011 à 18:10
Salut à tous! Me revoila pour un programme bien connu entre tous mais que je n'avais pas encore essayé de faire ahh.gif
Alors le voila pour vous chers amis! Mon pendu!!
Ma calculette ne voulant plus s'allumer surement à cause d'un court-circuit, j'ai pu récupérer le programme non améliorer que j'avais sauvegardé sur mon ordi et j'ai dû remettre les autres amélioration que j'avais en tête. Si il y a des erreur, prévenez moi winkle.gif personne n'est parfait ^^

PENDU BY SNAP
Taille : Si je me souviens bien environ 1100 octets.

Code

:0 -> Q
:0 -> Z
:PleinEcr
:For(A,1,16
:Output(1,A,"*
:Output(8,A,"*
:If non(PartDec(A/2:Then
:Output(A/2,1,"*
:Output(A/2,16,"*
:End
:End
:Output(4,2,PENDU BY SNAP!
:Pause
:EffEcr
:Horiz
:0 -> Xmin
:94 -> Xmax
:0 -> Ymin
:31 -> Ymax
:FonctOff
:AxesNAff
:EffDessin
:Input "MOT?            ",Chaîne1             <--  12 espaces
:Longueur(Chaîne1 -> dim(L1
:For(A,1,dim(L1
:Sous-Chaîne(Chaîne1,A,1 -> Chaîne2
:If chaîne2 = "A" : 41 -> B
:If chaîne2 = "B" : 42 -> B
:If chaîne2 = "C" : 43 -> B
:If chaîne2 = "D" : 51 -> B
:If chaîne2 = "E" : 52 -> B
:If chaîne2 = "F" : 53 -> B
:If chaîne2 = "G" : 54 -> B
:If chaîne2 = "H" : 55 -> B
:If chaîne2 = "I" : 61 -> B
:If chaîne2 = "J" : 62 -> B
:If chaîne2 = "K" : 63 -> B
:If chaîne2 = "L" : 64 -> B
:If chaîne2 = "M" : 65 -> B
:If chaîne2 = "N" : 71 -> B
:If chaîne2 = "O" : 72 -> B
:If chaîne2 = "P" : 73 -> B
:If chaîne2 = "Q" : 74 -> B
:If chaîne2 = "R" : 75 -> B
:If chaîne2 = "S" : 81 -> B
:If chaîne2 = "T" : 82 -> B
:If chaîne2 = "U" : 83 -> B
:If chaîne2 = "V" : 84 -> B
:If chaîne2 = "W" : 85 -> B
:If chaîne2 = "X" : 91 -> B
:If chaîne2 = "Y" : 92 -> B
:If chaîne2 = "Z" : 93 -> B
:B -> L1(A
:End
:While 1
:EffEcr
:0 -> C
:For(A,1,dim(L1
:Output(3,A,"-
:If non(L1(A : Output(2,A,sous-Chaîne(Chaîne1,A,1
:If non(L1(A : C+1 -> C
:End
:If C = dim(L1 : Goto GG
:Output(4,5,"LETTRE?
:Repeat K<94 et K>40 et K [pas égal à] 44 et K [pas égal à] 45
:CodeTouche -> K
:End
:Q+1 -> Q
:0 -> C
:For(A,1,dim(L1
:If K=L1(A : Then
:0 -> L1(A
:C+1 -> C
:End
:End
:If non(C : Then
:Z+1 -> Z
:If Z=1 : Ligne(61,7.23,36,7.23
:If Z=2 : Ligne(36,7.23,36,26.87
:If Z=3 : Ligne(36,13.43,42,7.23
:If Z=4 : Ligne(36,26.87,49,26.87
:If Z=5 : Ligne(41,26.87,36,21.7
:If Z=6 : Ligne(49,22.73,49,26.87,
:If Z=7 : Cercle(49,20.67,2
:If Z=8 : Ligne(49,17.57,49,13.43
:If Z=9 : Ligne(52,10.33,49,13.43
;If Z=10 : Ligne(45,15.5,53,15.5
:If Z=10 : Goto MO
:End
:End
:Lbl MO
:EffEcr
:disp "T PENDU! LE MOT","ETAIT",Chaîne1
:Pause
:PleinEcr
:EffEcr
:Output(1,1," "      <-- pas besoin du dernier guillemet
:Stop
:lbl GG
:EffEcr
:disp "BRAVO! TU AS","TROUVE LE MOT :",Chaîne1
:Output(4,1,"EN    COUPS            <-- 4 espaces
:Output(4,4,Q
:Pause
:EffEcr
:PleinEcr
:Output(1,1," "        <-- pas besoin du dernier guillemet


PS : J'ai changé deux trois trucs qui allait pas.

Et voila! Pfiou c'était long! Bon ben si il y a des erreur n'hésitez pas, et si il y a des améliorations ben pareil^^
linkakro le 24/10/2011 à 17:12
Code
:Sous-Chaîne(Chaîne1,A,1 -> Chaîne2
:If chaîne2 = "A" : 41 -> B
...
:If chaîne2 = "Z" : 93 -> B
:B -> L1(A


À REMPLACER PAR

:sous-Chaîne(Chaîne1,A,1
:carChaîne("ABCDEFGHIJKLMONOPQRSTUVWXYZ",Rép
:47+Rép-2(Rép<4)+5int((Rép-4)/5->L1(A

J'immagine qu'on peut simplifier l'ensemble du code en se passant de l'usage des getKeys. (et donc en sepassant du passage que j'ai modifié)
snap le 24/10/2011 à 17:27
Waouh! C'est vrai que sa diminue beaucoup la taille du programme^^ Au moins 300 octets. Pour le code touche, je trouve que c'est plus marrant c'est pour sa que je l'ai mit^^ Et puis sinon faudrait mettre un input et la on pourrait mettre n'importe quoi.
Jess9564 le 26/10/2011 à 11:10
Coucou happy.gif J'viens de rentrer ce programme du pendu, mais ils me mettent une erreur de syntaxe à Imput "MOT? .. Au niveau des guillemets. Help !!
Persalteas le 26/10/2011 à 13:08
tu n'aurais pas mit un espace entre le Input et le guillemet par hasard ?

il ne faut pas.
Jess9564 le 26/10/2011 à 14:39
Non, je n'ai pas mis d'espace :S
Jess9564 le 26/10/2011 à 14:50
Ah c'est bon, c'est parce que j'avais mis 12 espaces apres MOT? Mais aussi apres Chaine1. Maintenant mon probleme est que je ne peux pas deviner le mot. J'ai mis par exemple CALCULATRICE, quand j'ai essayé pour voir si ça fonctionnait, dès que je mettais le C par exemple, il dessinait le pendu . D'ou peut provenir le bug ?
linkakro le 26/10/2011 à 15:02
Je suppose que le programme n'a pas d'erreur.
Mais je n'ai testé que ma portion de code.

Si tu as tenté d'employer mon amélioration, il y a de grandes chances que l'erreur s'y trouve car elle est courte mais compliquée.
Sinon je ne sais pas d'où cela peut provenir.
Jess9564 le 26/10/2011 à 15:17
J'ai recopié ta version correctement, mais je savais pas ou il fallait reprendre la suite. Du coup, apres le 47+Rép-2(Rép<4)+5int((Rép-4)/5->L1(A, j'ai continuer a partir de B -> L1(A. C'est faux ?
linkakro le 26/10/2011 à 15:42
Tu dois enlever le "B->L1(A)" car il figure dans le code signalé à remplacer.
Cela devrait marcher ensuite. happy.gif
Jess9564 le 26/10/2011 à 15:52
En effet, je suis desolé j'avais mal regarder. Merci de ton aide ! Bye bigmouth.gif
The Lycanthrope le 09/11/2011 à 13:35
J'aimerais savoir où se trouve "Xmin", "Xmax", "Ymin", "Ymax" sur la calculette crazy.gif J'ai beau cherché dans le catalogue je trouve rien ...

Peut-être que c'est l'équivalent de "X max(" mais comme je ne retrouve pas la trace de la parenthèse après le min ou le max ... j'ai un doute ^^

J'ai aussi essayé avec xfmax mais là aussi, yfmax n'existe pas crazy.gif

Vous pouvez m'aider ?

[Sur calculette TI 82stats.fr en français crazy.gif

The Lycanthrope
snap le 09/11/2011 à 14:12
Pour les trouver, il faut faire : [var] + 1 winkle.gif
The Lycanthrope le 09/11/2011 à 14:18
Ahah ! Merci bien winkle.gif
Azazhel le 11/11/2011 à 21:18
Salutation, après avoir mis ton "amélioration" j'ai un soucis au niveau du Rép. (Je ne sais pas si il faut écrire carChaîne ... (étant donné que je n'ai pas trouvé "car" j'ai seulement mis Chaîne).

En tout cas merci tongue.gif
Azazhel le 11/11/2011 à 21:22
Désolé pour le double post, mais je n'ai pas pus éditer.

J'ai enfin trouvé : carChaîne, je ne pensait pas que cette une fonction collé.
The K le 12/11/2011 à 10:17
En réalité si : toutes les fonctions relatives aux chaînes, par exemple sous-chaine ou carChaine, ne sont que dans le catalogue winkle.gif

Et d'ailleurs c'est bien dommage ... karate.gif
figg le 16/11/2011 à 13:47
comment on obtient le Xmin Xmax etc... meme dans la catalogue je ne le vois pas...
The K le 16/11/2011 à 13:52
Figg ... c'est demandé et répondu 3 posts plus haut ... lis UN PEU avant de poster svp ...
figg le 16/11/2011 à 14:23
ouais mais bon, la flemme quoi, enfin bon j'etais revenu pour dire que j'avais trouvé finalement désolé...
The K le 16/11/2011 à 14:27
Pas de pb winkle.gif
Evite juste de trop faire ce coup la ^^
lagy le 20/11/2011 à 10:54
Salut happy.gif
Désolé de te déranger mais une erreur syntaxe se forme au niveau de Input"MOT?",Chaîne1
Que dois-je faire ?
snap le 20/11/2011 à 10:55
Salut! Le curseur se place sur quel mot quant tu appuie sur 2 au moment de l'erreur?
lagy le 20/11/2011 à 11:00
Re happy.gif
Il se place après Chaîne1
snap le 20/11/2011 à 11:03
Regarde si tu as bien fermé les guillemets après mot et que tu as bien mis la virgule. Ou alors c'est que tu n'as pas pris chaine 1 en faisant [var] + 7 + 1
lagy le 20/11/2011 à 11:05
Pourtant tout est fait correctement sad.gif
snap le 20/11/2011 à 11:06
tu n'as mis aucun espace? Parce que normalement, il marche XD
lagy le 20/11/2011 à 11:07
Aucun espace à part après Chaîne1
lagy le 20/11/2011 à 11:25
Désolé de te déranger mais j'ai 2 autres questions :p
Ou se trouve int(au niveau du raccouci) dans la t1 82?
Si on oubie un ligne du programme, peut-on insérer une ligne ?
snap le 20/11/2011 à 11:28
Après chaine 1 faut pas d'espace ahh.gif Faut un passage a la ligne.
Pour ta question, tu peut insérer une ligne en te mettant au bout d'une ligne et en faisant [2de] + [suppr] + [entrer]
lagy le 20/11/2011 à 11:35
Ok merci happy.gif
Et pour le int ?
snap le 20/11/2011 à 11:39
A oui désolé je l'avais pas vu^^ La traduction c'est ent( tu le trouvera dans le catalogue
lagy le 20/11/2011 à 12:47
Ok merci happy.gif
Voila j'ai fini de taper le jeu marche sauf que pour le a il faut que j'appuie sur le c pour le e sur le f ....
snap le 20/11/2011 à 12:48
Reverifie la portion de code de linkakro car c'est surement la que tu a du te trompé notgood.gif
lagy le 20/11/2011 à 13:12
En effet cependant ABC ne marche pas
snap le 20/11/2011 à 13:16
T'as surement encore fait une faute. Revérifie encore et si sa marche pas, ben essaie de recopier la partie du programme qui vérifie les lettre.
lovespain le 09/01/2012 à 00:31
Bonjour!
Le programme fonctionne avec toutes les lettres sauf A,B et C pourquoi?
linkakro le 09/01/2012 à 13:53
Vérifie que tu as correctement copié cette partie de ma portion :
47+Rép-2(Rép<4)+5int((Rép-4)/5->L1(A
Particulièrement "-2(Rép<4)"
Les parenthèses sont importantes... Et "<" s'obtient avec le menu 2nde+math.
Rép=2nde+( - )

Je l'ai testé une fois de plus donc j'assure que la portion fonctionne.
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.