| PENDU BY SNAP |
| Auteur |
Message |
snap
Autorisation : Membre
Nb de messages : 364
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^^
----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes 
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr |
 |
  |
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Lun 24 Oct 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é)
----------------------
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 |
| |
|
| |
snap
Autorisation : Membre
Nb de messages : 364
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.
----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr |
| |
|
| |
Jess9564
Invité
|
Posté le : Mer 26 Oct 2011, 11:10
|
|
|
Coucou J'viens de rentrer ce programme du pendu, mais ils me mettent une erreur de syntaxe à Imput "MOT? .. Au niveau des guillemets. Help !!
|
| |
|
| |
Persalteas
Autorisation : Membre
Nb de messages : 2086
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 ?
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
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)
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 |
| |
|
| |
Jess9564
Invité
|
Posté le : Mer 26 Oct 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
Autorisation : Membre
Nb de messages : 3738
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)
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 |
| |
|
| |
Jess9564
Invité
|
Posté le : Mer 26 Oct 2011, 15:52
|
|
|
En effet, je suis desolé j'avais mal regarder. Merci de ton aide ! Bye 
|
| |
|
| |
The Lycanthrope
Invité
|
Posté le : Mer 09 Nov 2011, 13:35
|
|
|
J'aimerais savoir où se trouve "Xmin", "Xmax", "Ymin", "Ymax" sur la calculette  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
Vous pouvez m'aider ?
[Sur calculette TI 82stats.fr en français
The Lycanthrope
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
snap
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
|
Posté le : Mer 09 Nov 2011, 14:12
|
|
|
Pour les trouver, il faut faire : [var] + 1
----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr |
| |
|
| |
The Lycanthrope
Invité
|
Posté le : Mer 09 Nov 2011, 14:18
|
|
|
Ahah ! Merci bien
|
| |
|
| |
Azazhel
Invité
|
Posté le : Ven 11 Nov 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 
|
| |
|
| |
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é.
|
| |
|
| |
The K
Autorisation : Membre
Nb de messages : 850
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
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 ... |
| |
|
| |
figg
Autorisation : Membre
Nb de messages : 7
Inscrit le : Mer 16 Nov 2011, 13:45
|
Posté le : Mer 16 Nov 2011, 13:47
|
|
|
comment on obtient le Xmin Xmax etc... meme dans la catalogue je ne le vois pas...
|
| |
|
| |
The K
Autorisation : Membre
Nb de messages : 850
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
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 ... |
| |
|
| |
figg
Autorisation : Membre
Nb de messages : 7
Inscrit le : Mer 16 Nov 2011, 13:45
|
Posté le : Mer 16 Nov 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
Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
|
Posté le : Mer 16 Nov 2011, 14:27
|
|
|
Pas de pb
Evite juste de trop faire ce coup la ^^
----------------------
La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
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 ... |
| |
|
| |
lagy
Invité
|
Posté le : Dim 20 Nov 2011, 10:54
|
|
|
Salut
Désolé de te déranger mais une erreur syntaxe se forme au niveau de Input"MOT?",Chaîne1
Que dois-je faire ?
|
| |
|
| |
snap
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
|
Posté le : Dim 20 Nov 2011, 10:55
|
|
|
Salut! Le curseur se place sur quel mot quant tu appuie sur 2 au moment de l'erreur?
----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr |
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
lagy
Invité
|
Posté le : Dim 20 Nov 2011, 11:00
|
|
|
Re
Il se place après Chaîne1
|
| |
|
| |
snap
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
|
Posté le : Dim 20 Nov 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
----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr |
| |
|
| |
lagy
Invité
|
Posté le : Dim 20 Nov 2011, 11:05
|
|
|
Pourtant tout est fait correctement 
|
| |
|
| |
snap
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
|
Posté le : Dim 20 Nov 2011, 11:06
|
|
|
tu n'as mis aucun espace? Parce que normalement, il marche XD
----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr |
| |
|
| |
lagy
Invité
|
Posté le : Dim 20 Nov 2011, 11:07
|
|
|
Aucun espace à part après Chaîne1
|
| |
|
| |
lagy
Invité
|
Posté le : Dim 20 Nov 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
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
|
Posté le : Dim 20 Nov 2011, 11:28
|
|
|
Après chaine 1 faut pas d'espace 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]
----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr |
| |
|
| |
lagy
Invité
|
Posté le : Dim 20 Nov 2011, 11:35
|
|
|
Ok merci
Et pour le int ?
|
| |
|
| |
snap
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
|
Posté le : Dim 20 Nov 2011, 11:39
|
|
|
A oui désolé je l'avais pas vu^^ La traduction c'est ent( tu le trouvera dans le catalogue
----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr |
| |
|
| |
lagy
Invité
|
Posté le : Dim 20 Nov 2011, 12:47
|
|
|
Ok merci
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
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
|
Posté le : Dim 20 Nov 2011, 12:48
|
|
|
Reverifie la portion de code de linkakro car c'est surement la que tu a du te trompé 
----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr |
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
lagy
Invité
|
Posté le : Dim 20 Nov 2011, 13:12
|
|
|
En effet cependant ABC ne marche pas
|
| |
|
| |
snap
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
|
Posté le : Dim 20 Nov 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.
----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr |
| |
|
| |
lovespain
Invité
|
Posté le : Lun 09 Jan 2012, 0:31
|
|
|
Bonjour!
Le programme fonctionne avec toutes les lettres sauf A,B et C pourquoi?
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Lun 09 Jan 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.
----------------------
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 |
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
