Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
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

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 
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é
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...
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 complexeexasky 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!

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
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

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 ticoc5 le 17/10/2007 à 21:43
Il n'y a pas d'autres solutions malheureusement
Et puis tu as mal compter je crois, tous les mots ne font pas une moyenne de 7 lettres

( 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
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 5adury38 le 19/11/2007 à 19:21
à 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
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.
Sangohan38Stupid 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?
Sangohan38Stupid le 29/11/2007 à 17:43
oh bordel c'était pour donner un trés leger coté humoristique au message aved lesmiley

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
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 beaucoupStupid le 02/12/2007 à 13:38
si ce penduà eu 5, ça veut dire que le miens vaut au moins 3.5

youpi !!!

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?

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

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? 
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.
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
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. Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.