Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 8810
Réponses : 43
Type : discussion
Etat : réponses autorisées

Le Pendu 2 !

coc5 le 07/10/2007 à 18:28
Voici mon programme de Pendu ! (2ième version)

Pour économiser de la place, j'ai fait deux programmes séparés.
Pensez à bien nommer le second programme "PSTR" !
LE PROGRAMME PRINCIPAL ICI

LE DICO DU PROGRAMME





L1 s'obtient avec [2nd] + [1]
et
[PETIT "L"] avec [2nd] + [0] + [L] + [ENTER]

Code
1 -> dim([PETIT «L»]TSP
If not([PETIT «L»]TSP(1
prgmPSTR
While 1
ClrHome
Menu("PDU2 COC5(C)2007","UN JOUEUR",5,"DEUX JOUEURS",2,"QUITTER",R
Lbl 5
randInt(1,length(Str5)-12 -> B
For(I,0,1
While sub(Str5,B,1)ø"
B+1 -> B
End
B+1 -> B
If not(I
B -> C
End
sub(Str5,C,B-C-1 -> Str1
Goto 3
Lbl 2
ClrHome
Input "MOT SECRET      ",Str1
Menu("AJOUTER AU DICO ?","OUI",8,"NON",3
Lbl 8
Str5+" "+Str1 -> Str5
Lbl 3
DelVar L1
length(Str1 -> dim(L1
ClrHome
1 -> N
0 -> T
For(I,1,length(Str1
Output(2,I,"*
End
Repeat G or N=11
Disp "ESSAIE N°  /10","","","","
If N>1:Output(8,11,"---
If N>2:Then
For(I,4,7
Output(I,12,"!
End
End
If N>3:Output(3,11,"-----
If N>4:Output(4,13,"/
If N>5:Output(4,15,"!
If N>6:Output(5,15,"[PETIT «L»]
If N>7:Output(6,14,"- -
If N>8:Output(6,15,"X
If N>9:Then
Disp "ATTENTION !
Output(7,15,"Ä
End
Output(1,11-(N>9),N
Output(8,1,"0=QUITTER
Input "",Str2
1 -> G
If Str2="0.
Then
ClrHome
Disp ".34/340",.0001,"5/.5
Pause 10
N-1 -> N
End
If Str2="0
Then
Lbl R
ClrHome
" "
Stop
End
If Str2=Str1
Goto 1
ClrHome
sub(Str2,1,1 -> Str2
1 -> T
For(L,1,length(Str1
If not(L1(L)) and Str2=sub(Str1,L,1
Then
0 -> T
1 -> L1(L
End
If L1(L
Then
sub(Str1,L,1
Else
0 -> G
"*
End
Output(2,L,Ans
End
N+T -> N
End
Lbl 1
ClrHome
If G
Disp "GAGNE !","LE MOT SECRET"," ETAIT BIEN :
If not(G:Disp "PERDU !","DOMMAGE, LE MOT","SECRET ETAIT :
Pause Str1
End



ATTENTION /!\ --> Bien nommer ce programme "PSTR"

Code

1->[PETIT "L"]TSP(1
Disp "PENSEZ A","SUPPRIMER LE
Pause "PROGRAMME -PSTR-
"  PENDU LAVABO JOINDRE CRIER CHAT NONOBSTANT FORTIFIANT ECLAIRAGE MANIERE FRIGIDE SIROTER CHARISMATIQUE LUNDI LOGICIEL INTROUVABLE BUT SOTTISE SAUCISSON VANDALE TILLEUL HETRE CHENE MEDIEVAL HALLOWEEN LYNX PIRATE CALCUL DAIM ENCENS NASAL EUROPE HEAUME GARDIEN PROLETAIRE BOLCHEVIK MAILLE TENSION ESTONIEN PATRICIEN ARBALETE CUISSON VOLUME SEC OPIUM SEPULCRE CHIMPANZE CANON MARTEAU WAGON JOUFFLU YAOURT HAUBERT GLORIEUX LIBERAL SCIE CHEVAL OURS CARDINAL INQUISITION CHOLERA HECATOMBE CLAIRIERE MONTAGNE VALLEE LANCE COUPE CASSEROLE ADRIATIQUE VAUTOUR MESSIE RACHITIQUE CARREAU OSCILLATION PENDULE SPAGHETTI REVOLUTION DRAPEAU CRAYON XYLOPHONE TELEPHONE PRUNE POMME RAMADAN PRESIDENT CAMEMBERT NEIGE PSYCHOLOGIQUE SUBCONSCIENT CHEVRE CHINOIS INCANDESCENT ASCENSEUR AN JOIE SERIEUX CHOUX CRI SANGLOT FREQUENCE  -> Str5
Stupid le 07/10/2007 à 19:10
encore une fois, t'as fait un programme que j'ia déjà fait mais en 2xplus complexe et 3xplus gros godgrace.gif
vibra le 07/10/2007 à 19:18
T'es productif en ce moment !
coc5 le 07/10/2007 à 21:19
Baby a écrit :
encore une fois, t'as fait un programme que j'ia déjà fait mais en 2xplus complexe et 3xplus gros godgrace.gif


Je peux pas savoir, je vais pas m'amuser à chercher tout ce que t'as fait comme programme, et puis les possibilités d'une Ti en jeux ne sont pas énormes, et personne n'en a l'exclusivité karate.gif

C'est pas comme si j'avais mis un code source identique. As-tu mit un dico avec recherche aléatoire ?

==> Vibra

Enfait j'ai fait pas mal de jeu pendant mes cours, mais je les mets un par un parce - que tout en même temps... karate.gif

En attente : Worms (il me prend du temps celui-là), demieur deuxième version (bien moins horrible que l'autre, naviguateur de chaîne (fini celui-là)...
Stupid le 08/10/2007 à 11:37
c'était pa sun reproche

je sais que des gens l'ont fait avant moi et le feront aprés moi

et comme j'ai dit le tiens est plus complexe
exasky le 17/10/2007 à 17:53
à la ligne "While sub(Str5,B,1) (different De] "
il me marque "dim invalide" au niveau du deuxieme ")" sachant que j'ai une ti 82 stats.fr et que j'ai traduit "sub" par "sous-chaine" et "Str5" par "Chaine5"
comment ça se fait que ça marche pas?
exasky le 17/10/2007 à 18:06
aussi non, le jeu à deux joueurs marche super! winkle.gif bigmouth.gif
coc5 le 17/10/2007 à 20:51
Citation
à la ligne "While sub(Str5,B,1) (different De] "
il me marque "dim invalide" au niveau du deuxieme ")" sachant que j'ai une ti 82 stats.fr et que j'ai traduit "sub" par "sous-chaine" et "Str5" par "Chaine5"
comment ça se fait que ça marche pas?


Il y a plusieurs possiblités.

D'abord, Tu as peut-être oublié de recopier le code du dico dans un autre programme, la chaine5 n'existe donc pas, et toute recherche dans cette chaîne pose naturellement des problèmes karate.gif

Ou alors tu as fait une erreur dans le code du début, sur la variable B.
Stupid le 17/10/2007 à 20:53
le pb avec le dico c'est que c'est super lourd, et que si on a recopié les mots on les connait à peu pres...
coc5 le 17/10/2007 à 20:55
Tu as une autre possiblité ?
Je pourrais mettre des chiffres puis les faires convertir mais je crois que copier 500 chiffres à la suite est encore plus ennuyeux^^

Avec le cable il n'y a pas ce problème eyeonly.gif
Stupid le 17/10/2007 à 20:59
c'est vrai mais bon 100 mots qui sortent aléatoirement ça passe pas longtemps en plus 800 octets c'est immense.

Le facteur economie d'octets est super important pour les ti
coc5 le 17/10/2007 à 21:43
Il n'y a pas d'autres solutions malheureusement angry.gif
Et puis tu as mal compter je crois, tous les mots ne font pas une moyenne de 7 lettres happy.gif ( 100(7+1)=800 )
exasky le 18/10/2007 à 18:58
euhh au niveau de
"B+1->B
end
B+1->B"
t'es sur qu'il n'y a pas un "-" à la place d'un "+" ??
coc5 le 19/10/2007 à 16:41
Non mon code est bon, je l'ai sur ma calto et ça marche très bien karate.gif
Tu n'as pas oublié le dico ?
exasky le 19/10/2007 à 18:34
non, j'ai bien rentré la chaine 6, le programme PST, donc noralement , ça devrit marher, bé ça marche pas ^^
coc5 le 19/10/2007 à 18:51
C'est chaîne 5 et PSTR...
exasky le 19/10/2007 à 19:17
oui dsl
PSTR et la chane 5
adury38 le 19/11/2007 à 19:21
coc5 a écrit :

"*


à quoi correspond le * svp parce que si je met le * càd le multiplié dans mon programme il me dit erreur...
ratuss le 19/11/2007 à 19:31
a priori l'erreur ne vient pas du * . Quel type d'erreur la calcu te renvoie ?
Stupid le 19/11/2007 à 20:17
ça t'apprendras à recopier un pendu plus lourd que le mien^^
coc5 le 20/11/2007 à 20:42
Ons se serait passé de cette remarque...

Bon sinon vérifie que tu as bien entré un guillemmet avant le signe multiplier ?
Stupid le 20/11/2007 à 21:04
oui il est plus lourd, tu ne peux pas dire le contraire mais il est mieux aussi minied.gif
Sangohan38 le 28/11/2007 à 15:57
Ce n'est pas grave si le prog est un peu plus lourds dans la mesure où il est plus performant.

Sangohan38
Stupid le 28/11/2007 à 17:44
c'est ce que j'ai dit en tout petit (((700 messages)))
Sangohan38 le 29/11/2007 à 12:50
Oui mais pourquois ne pas le dire tout haut?

Sangohan38
Stupid le 29/11/2007 à 17:43
oh bordel c'était pour donner un trés leger coté humoristique au message aved lesmiley minied.gif prouve que ce que je dit je le pense et je l'assume et ecrire en petit ben c'est pour faire style; enfin ça sera dur à expliquer, normalement y'a une connection logique entre les neuronnes qui devrait se fair...
ratuss le 01/12/2007 à 11:01
coc5=> est ce que tu pourrais me filer le .83p stp ?
coc5 le 01/12/2007 à 16:19
Upload happy.gif

Les liens sont disponibles,la vidéo aussi, le code un peu allégé et il y a une option en plus !
ratuss le 01/12/2007 à 17:27
merci beaucoup
Stupid le 02/12/2007 à 13:38
si ce penduà eu 5, ça veut dire que le miens vaut au moins 3.5 ahh.gif youpi !!! bigmouth.gif
ratuss le 02/12/2007 à 14:00
ça dépend, le gros + de celui de coc5 c'est le dico intégré...
Stupid le 02/12/2007 à 18:22
mais donc de maniere intrinseque tu ne prends pas en compte la taille octitetique? loupe.gif
coc5 le 02/12/2007 à 18:46
Ce n'est pas que la taille qui compte dans le nombre d'octet d'un programme.
Un gros jeu pourra avoir été codé au minimum d'octet, et donc la "taille" sera faible par rapport au jeu, à sa qualité.

En plus le programme de dico n'est pas obligatoire et on peu le supprimer après happy.gif
ratuss le 02/12/2007 à 19:07
Stupid Butters a écrit :
mais donc de maniere intrinseque tu ne prends pas en compte la taille octitetique? loupe.gif


globalement non
musica le 03/12/2007 à 19:49
voila je ne trouve pas la fonction "Str1" et à quoi elle sert.
merci.
coc5 le 03/12/2007 à 20:09
[VAR] + [7] et tu choisis (le [1] en l'occurence pour ce cas là).
musica le 03/12/2007 à 20:12
d'accord, merci.
toon le 14/12/2007 à 23:20
Bonjour à tous je viens de tester le jeu de pendu et j'ai la même erreur qu'Exasky
et je n'arrive pas a la résoudre malgrés vos informations. cry.gif
J'ai une ti 82 stat et elle me marque a la ligne
"while sub(Str5,B,1)[différent de]""
elle ma marque invalid dim
pourtant le programme pstr est correctement entré
Gros Minet le 30/09/2008 à 19:15
bonjour,

je dispose de la TI 82 stats en français alors que se programme est en anglais donc si quelqu'un peu me dir à quoi correspond :

- TSP (1 -> dim([PETIT «L»]TSP)

- randInt( et lengtg( et Str5 (randInt(1,length(Str5)-12 -> B)

- sub( (While sub(Str5,B,1)ø)

- DelVar (DelVar L1)

- If not( (If not(G:Disp "PERDU !","DOMMAGE, LE MOT","SECRET ETAIT :)
coc5 le 30/09/2008 à 22:00
Encore un qui n'a pas lu l'en-tête avant de poster cupsmiley.gif

Sinon tu aurais vu qu'il existe un sujet de traduction Anglais-Français.

Ce sujet ne résoud cependant pas toutes tes difficultés :

-TSP : C'est le nom arbitraire que j'ai donné à ma liste personnelle (Pour une raison obscure dont je n'ai plus aucun souvenir^^). Le petit L se trouve dans le catalogue à la lettre L.

-length( doit correspondre à "longueur" ou quelque chose dans le genre.
-sub( et bien... Tu n'es pas le premier à me poser la question... Et il est de même pour toutes les fonctions touchant aux chaînes...

Ne possédant pas de calculatrice en français et mes logiciels Ti étant bugués, je ne peux pas te renseigner directement. La liste des traductions ne comprend en effet pas ces fonctions. J'en ai fais la demande à Sangohan (le responsable de cet article) et attend toujours...

Sinon sache que Str5 = Chaine5 et se trouve avec [VARS] + [7] +[5]
Gros Minet le 01/10/2008 à 07:54
Si si, je sais qu'il existe un dico Anglais-Français mais il est incomplet.
Et puis je n'ai pas de cable pour relier la TI à l'ordinateur .........

Le Ä (Output(7,15,"Ä) correspond à quoi ? (à moins que se soit une faute de frappe)

Bon je vais essayer de trouver tout seul pour le reste

@+
coc5 le 01/10/2008 à 18:42
Ah j'ai dû oublier de changer cette lettre en le "n" qui devrait la remplacer !
C'est donc le petit "n" qui se trouve dans le catalogue à "N".
pasdepsedo le 11/06/2009 à 21:11
moi c'est au niveau de: randInt(1,length(Str5)-12 -> B

que j'ai traduit par: entAleat(1,longueur(chaîne5)-12 -> B
il me marque: indefini

il me fait aussi cette erreur à: chaîne5+" "+chaîne1 ->chaîne5
à mon avis je me suis trompé dans les chaines...
(j'ai bien mis [var]+[7]+[...] et le programme pstr est bon.)
coc5 le 11/06/2009 à 23:24
Tout ça veut dire que la Chaine5 n'existe pas, lance donc le programme pstr pour voir, encore un fois, puis lance le pendu.