Forum

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

Le Pendu 2 ! - Page 1 / 3

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