Poster un nouveau sujet Poster une réponse Page: 1,      >>
PENDU BY SNAP
Auteur Message
snap



Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Jeu 13 Oct 2011, 18:10   Citer 

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^^

----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes happy.gif
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 24 Oct 2011, 17:12   Citer 


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é)

----------------------
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)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
snap



Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Lun 24 Oct 2011, 17:27   Citer 

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.

----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes happy.gif
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr
 Adresse email Haut de page Bas de page 
 
Jess9564
Invité
Posté le : Mer 26 Oct 2011, 11:10   Citer 

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 !!

  Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 26 Oct 2011, 13:08   Citer 

tu n'aurais pas mit un espace entre le Input et le guillemet par hasard ?

il ne faut pas.

 Adresse email Haut de page Bas de page 
 
Jess9564
Invité
Posté le : Mer 26 Oct 2011, 14:39   Citer 

Non, je n'ai pas mis d'espace :S

  Haut de page Bas de page 
 
Jess9564
Invité
Posté le : Mer 26 Oct 2011, 14:50   Citer 

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 ?

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 26 Oct 2011, 15:02   Citer 

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)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Jess9564
Invité
Posté le : Mer 26 Oct 2011, 15:17   Citer 

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 ?

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 26 Oct 2011, 15:42   Citer 

Tu dois enlever le "B->L1(A)" car il figure dans le code signalé à remplacer.
Cela devrait marcher ensuite. happy.gif

----------------------
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)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Jess9564
Invité
Posté le : Mer 26 Oct 2011, 15:52   Citer 

En effet, je suis desolé j'avais mal regarder. Merci de ton aide ! Bye bigmouth.gif

  Haut de page Bas de page 
 
The Lycanthrope
Invité
Posté le : Mer 09 Nov 2011, 13:35   Citer 

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

  Haut de page Bas de page 
 
snap



Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mer 09 Nov 2011, 14:12   Citer 

Pour les trouver, il faut faire : [var] + 1 winkle.gif

----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes happy.gif
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr
 Adresse email Haut de page Bas de page 
 
The Lycanthrope
Invité
Posté le : Mer 09 Nov 2011, 14:18   Citer 

Ahah ! Merci bien winkle.gif

  Haut de page Bas de page 
 
Azazhel
Invité
Posté le : Ven 11 Nov 2011, 21:18   Citer 

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

  Haut de page Bas de page 
 
Azazhel
Invité
Posté le : Ven 11 Nov 2011, 21:22   Citer 

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é.

  Haut de page Bas de page 
 
The K



Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Sam 12 Nov 2011, 10:17   Citer 

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

----------------------
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 ? SOLUTION EN VIDEO

Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind

Mes nouveaux programmes de calcul formel : FCarré FPrime

Projet base de données : ici mais abandonné. Trop de travail ...
 Adresse email Haut de page Bas de page 
 
figg



Autorisation : Membre
Nb de messages : 7
Inscrit le : Mer 16 Nov 2011, 13:45
Posté le : Mer 16 Nov 2011, 13:47   Citer 

comment on obtient le Xmin Xmax etc... meme dans la catalogue je ne le vois pas...

 Adresse email Haut de page Bas de page 
 
The K



Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Mer 16 Nov 2011, 13:52   Citer 

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 ? SOLUTION EN VIDEO

Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind

Mes nouveaux programmes de calcul formel : FCarré FPrime

Projet base de données : ici mais abandonné. Trop de travail ...
 Adresse email Haut de page Bas de page 
 
figg



Autorisation : Membre
Nb de messages : 7
Inscrit le : Mer 16 Nov 2011, 13:45
Posté le : Mer 16 Nov 2011, 14:23   Citer 

ouais mais bon, la flemme quoi, enfin bon j'etais revenu pour dire que j'avais trouvé finalement désolé...

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse Page: 1,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink