Créer un pendu pour TI 89

→ **MyCalcs** profile · by **dededick** » 11 Apr 2007, 13:18

Hello les gens! J'aimerais créer un pendu su ma ptite TI 89 titanium. Le problème, c'est que je vois pas vraiment comment faire... Est-ce que quelqu'un à une ptite idée pour m'aider ?
Merci

→ **MyCalcs** profile · by **tama** » 11 Apr 2007, 16:21

ça va plus dans programmation ça

voici en gros comment faire

Code: Select all: Le joueur 1/La TI choisit un mot à deviner Boucle tant que le joueur n'a pas deviné le mot Demander lettre (Input/Getkey au choix, GetKey étant plus "esthétique) Parcourir la chaine donnée au départ Si le mot apparait, l'afficher au bon endroit et enlever le bon nombre de lettres restantes sinon raté : enlever 1 chance Fin de la boucle S'il ne reste plus de chance : joueur a perdu sinon il a gagné

version simplifiée du code (ne pas mettre ce qu'il y a après les "//")

Code: Select all: Prgm Local str,temp,key,prop,app //pour éviter d'avoir des variables après l'exécution du programme InputStr "mot à deviner?",str //demande le mot à deviner 12-chance // nombre de chances (réduire en cas de besoin) dim(str)-reste //nombre de lettres restantes ClrIO //efface l'écran For temp,1,reste Output 0,8*temp,"-" //affiche les traits EndFor While chance0 and reste0 //tant qu'il y a encore des lettres et encore des chances 0-key While key=0 //tant qu'aucune touche n'est appuyée GetKey()-key //on obtient le code de la touche appuyée EndWhile Try char(key)-prop //on obtient la lettre correspondante Else EndTry 0-app //la lettre apparait t-elle dans le mot ? For temp,1,dim(str) If sub(str,temp,1)=prop then reste-1-reste Output(0,8*temp," ") //on efface le trait... Output(0,8*temp,prop) //et on met la bonne lettre 1-app //oui elle apparait Endif Endfor If app=0 //si la lettre n'apparait pas chance-1-chance //on enlève une chance EndWhile //fin de la boucle principale If chance0 then//s'il n'y a plus de chance Disp "perdu" //perdu else //sinon Disp "gagné!" //gagné Endif

→ **MyCalcs** profile · by **dededick** » 12 Apr 2007, 07:27

J'ai quelques notions de Basic, j'ai déjà crée quelques programmes pas impressionants mais que j'aime bien ^^.
Pour le code Tama, je comprends tout ce que tu fais sauf:

Code: Select all: Try char(key)-prop //on obtient la lettre correspondante Else EndTry

Pourquoi char? avec cette prop, il ne faut pas entrer un chiffre pour avoir une lettre ?
Quand je le teste, il me met d'ailleurs:

Code: Select all: A test did not resolve TRUE or FALSE

.
QUe mettre? N'y a-t-il pas une fonction inverse de char?
Merci

→ **MyCalcs** profile · by **tama** » 12 Apr 2007, 20:33

A Test did not resolve TRUE or FALSE ?
chez moi ça marche parfaitement ?
t'es sur que t'a bien recopié ?

→ **MyCalcs** profile · by **dededick** » 13 Apr 2007, 07:30

Je vais réessayer

. Est-ce que tu pourrais juste me dire ce que fait la propriété sub parce que je n'ai pas bien compris :

Code: Select all: If sub(str,temp,1)=prop then

Merci

EDIT: Après réessai, toujours le même pb, le curseur est positionné sur la ligne :

Code: Select all: If sub(str,temp,1)=prop then

→ **MyCalcs** profile · by **tama** » 13 Apr 2007, 16:46

aah c'est pas sub c'est mid sub c'est pour les 84+
mid si tu ne le sais pas sert à extraire n lettres d'une chaine str à partir de la lettre l
mid("abcdef",2,2) va extraire 2 lettres à partir de la 2ème lettre de la chaine abcdef, ce qui donne "bc"