Forum

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

[TI-82] Jeu du pendu !

tete0148 le 20/05/2015 à 17:33
Bonjour, j'ai récemment réalisé le jeu du pendu sur ma calculatrice TI-82 stats.

Le jeu a les fonctionnalités suivantes :

    Saisie du mot à faire deviner
    Saisie des lettres pour deviner
    Affichage de la lettre sur le mot si la lettre est correcte
    Sinon évolution du pendu (une barre apparaît) + affichage de la lettre utilisée pour ne pas se répéter


Voilà le programme :

Code

0->Xmin
0->Ymin
94->Xmax
63->Ymax
DelVar Str3
DelVar Str4
DelVar Str5
AxesOff
LabelOff
CoordOff
Normal
ClrDraw
ClrHome
Lbl M
Menu("PENDU","JOUER",1,"QUITTER",3


Lbl 1
ClrDraw
ClrHome
0->E
Text(20,20,"SAISISSEZ LE MOT"
For(F,1,200):End
Input "MOT:?",Str3
length(Str3)->L
0->K
ClrDraw
Text(10,10,"{PENDU}"
Line(70,0,70,20
Line(70,20,96,20
For(F,1,L
Text(20,5F,"-":End
Text(10,50,L
Text(10,60,"LETTRES"
Lbl 11
Pause
ClrHome
Input "LETTRE?",Str4
0->(thêta)
For(F,1,L)
sub(Str3,F,1)->Str5
If Str4=Str5:Then
Text(20,5F,Str4
K+1->K
(thêta)+1->(thêta)
End
End
If (thêta)=0:Then
E+1->E
Text(40,1,E
Text(40,15,"ERREUR(S)"
Text(50,5E,Str4
If E=1
Line(74,3,80,3:If E=2
Line(77,3,77,15
If E=3
Line(77,15,85,15
If E=4
Line(77,11,81,15
If E=5
Line(85,15,85,11
If E=6
Circle(85,12,1
If E=7
Line(85,15,85,7
If E=8
Line(83,9,87,9:If E=9
Line(83,5,85,7:If E=10:Then
Line(85,7,87,5:For(F,0,63)
Horizontal F
End
Text(29,43,"PERDU"
Text(39,43," '"+Str3+"' "
End
End
If K=L:Then
For(F,0,63)
Horizontal F
End
Text(28,35,"BRAVO"
Pause :Goto M
End
Goto 11
Lbl 3
ClrDraw
ClrHome
Stop


Le programme n'est pas tout à fait fini, il reste en effet les statistiques ainsi que certains parametres a ajouter
leo_85 le 20/05/2015 à 17:38
je suis intéressé par le programme... je demande! bigmouth.gif
tete0148 le 20/05/2015 à 17:41
Le voilà dans le post principal
leo_85 le 20/05/2015 à 17:43
cool mais certains caractères ne passent pas au format UNICODE je te conseille d'écrire les inférieur/supérieur ou égale comme ça : ">=" "<="
tete0148 le 20/05/2015 à 17:44
leo_85 a écrit :
cool mais certains caractères ne passent pas au format UNICODE je te conseille d'écrire les inférieur/supérieur ou égale comme ça : ">=" "<="


D'accord merci. Thêta ne passe pas non plus :c
Mingerton le 20/05/2015 à 20:56
Tiens, le code m'a l'air pas mal du tout mais tu as quelques améliorations qui mériteraient d'être là :
http://www.tout82.org/t50-cand[...]-l-optimisation
tete0148 le 20/05/2015 à 22:00
Mingerton a écrit :
Tiens, le code m'a l'air pas mal du tout mais tu as quelques améliorations qui mériteraient d'être là :
http://www.tout82.org/t50-cand[...]-l-optimisation


Un tutoriel très intéressant un effet ! Je vais essayer de l'optimiser si j'ai le temps en cours happy.gif
spouki35 le 25/05/2015 à 12:43
Bonjour ou bonsoir,
J'ai une ti-82 qui n'est pas stat.fr , je ne trouve pas la commande Delvar, si elle existe sur une ti-82 j'aimerais savoir comment la trouver et si jamais sa n'existe pas y a t'il une autre commande pour la remplacer.
Merci d'avance
tete0148 le 25/05/2015 à 13:54
spouki35 a écrit :
Bonjour ou bonsoir,
J'ai une ti-82 qui n'est pas stat.fr , je ne trouve pas la commande Delvar, si elle existe sur une ti-82 j'aimerais savoir comment la trouver et si jamais sa n'existe pas y a t'il une autre commande pour la remplacer.
Merci d'avance


Tu peux tout simplement ignorer ces lignes, le programme fonctionnera quand meme winkle.gif
spouki35 le 25/05/2015 à 15:18
Merci,
J'aimerais savoir aussi ce que c'est la fonction str , si jamais on peut l'enlever ou sinon j'aimerais savoir ou trouver cet fonction happy.gif
Merci encore happy.gif
Spouki35 le 25/05/2015 à 15:44
Dernière chose je l'espère,
Je ne sais pas ou trouver pour désactiver les axe et les coordonnées
Merci ^^
Mingerton le 26/05/2015 à 16:50
Si tu as une TI 82 Stats au moins, dans 2nd-Zoom choisis respectivement AxesOff et CoordOff (et l'inverse pour les activer).

Si tu as une TI-82, je crois que c'est dans Window, Droite et tu auras les mêmes options.

Concernant les Str, ce sont des chaînes de caractères, non accesibles sur une TI 82 sad.gif

Enfin, un DelVar [variable] peut dans ce cas se remplacer par un 0->[variable]
tete0148 le 26/05/2015 à 19:02
Mingerton a écrit :
Si tu as une TI 82 Stats au moins, dans 2nd-Zoom choisis respectivement AxesOff et CoordOff (et l'inverse pour les activer).

Si tu as une TI-82, je crois que c'est dans Window, Droite et tu auras les mêmes options.

Concernant les Str, ce sont des chaînes de caractères, non accesibles sur une TI 82 sad.gif

Enfin, un DelVar [variable] peut dans ce cas se remplacer par un 0->[variable]


Dommage qu'on ne puisse pas accéder aux chaînes....
Mingerton le 27/05/2015 à 11:38
Avec une TI-82 tu es bloqué pour pas mal de jeux en effet. Elle a été plus prévue pour l'algo simple à l'époque, malheureusement.
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.