Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Jeu 13 Oct 2011, 18:10
Salut à tous! Me revoila pour un programme bien connu entre tous mais que je n'avais pas encore essayé de faire
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 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^^
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é)
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Lun 24 Oct 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.
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 26 Oct 2011, 13:08
tu n'aurais pas mit un espace entre le Input et le guillemet par hasard ?
il ne faut pas.
Jess9564 Invité
Posté le : Mer 26 Oct 2011, 14:39
Non, je n'ai pas mis d'espace :S
Jess9564 Invité
Posté le : Mer 26 Oct 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 ?
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 26 Oct 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.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
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 ?
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 26 Oct 2011, 15:42
Tu dois enlever le "B->L1(A)" car il figure dans le code signalé à remplacer.
Cela devrait marcher ensuite.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
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
Azazhel Invité
Posté le : Ven 11 Nov 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é.
Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Sam 12 Nov 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
Et d'ailleurs c'est bien dommage ...
---------------------- La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Un problème de programmation ? Allez consulter ce tutoriel crée pour cela : TUTORIEL PROGRAMMATION
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTIONEN VIDEO
Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Mer 16 Nov 2011, 13:52
Figg ... c'est demandé et répondu 3 posts plus haut ... lis UN PEU avant de poster svp ...
---------------------- La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Un problème de programmation ? Allez consulter ce tutoriel crée pour cela : TUTORIEL PROGRAMMATION
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTIONEN VIDEO