Autorisation : Membre
Nb de messages : 9
Inscrit le : Mer 20 Mai 2015, 17:28
Posté le : Mer 20 Mai 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
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
Autorisation : Membre
Nb de messages : 9
Inscrit le : Mer 20 Mai 2015, 17:28
Posté le : Lun 25 Mai 2015, 13:54
Citer : spouki35
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
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
Merci encore
Spouki35 Invité
Posté le : Lun 25 Mai 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 ^^
