Forum

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

Pendu

tbmc le 08/06/2010 à 10:53
Un morpion assez difficile à gagner.


Code

EffDessin
GraphNAff
FonctNAff
AxesNAff
ZStandard
Lbl U
EffEcr
EffDessin
0ü ( ) V:0ü ( ) Y:0ü ( ) S:0ü ( ) R
0ü ( ) P
0ü ( ) U
Menu("DEBUT","JOUEUR",J,"ORDI",B,"2 JOUEURS",H,"QUITTER",Q)
Lbl H
1ü ( ) U
Goto 96
Lbl B
1ü ( ) Y:1ü ( ) V:1ü ( ) L(1
Goto 96
Lbl J
0ü ( ) Y:0ü ( ) V:0ü ( ) L(1
Lbl 96
EffEcr
EffDessin
0ü ( ) A:0ü ( ) B:0ü ( ) C:0ü ( ) Á:0ü ( ) K
0ü ( ) E:0ü ( ) F:0ü ( ) G:0ü ( ) H:0ü ( ) I:0ü ( ) J:0ü ( ) L:0ü ( ) M:0ü ( ) N:0ü ( ) Q
EffVar Y
EffVar Y‚
EffVar r
EffVar r‚
Horizontale 4
Horizontale ú ( ) 4
Verticale 4
Verticale ú ( ) 4

Lbl 0
0ü ( ) K:0ü ( ) Á:0ü ( ) A:0ü ( ) B
Horizontale 4
Horizontale ú ( ) 4
Verticale 4
Verticale ú ( ) 4


Lbl 1
If Eø0 et Fø0 et Gø0 et Hø0 et Iø0 et Jø0 et Lø0 et Mø0 et Nø0
Then
Texte(5,4,"MATCH NUL
Goto F
End
0ü ( ) A:0ü ( ) B:0ü ( ) C
If V=1
Then
0ü ( ) V
Goto A
End
0ü ( ) K
codeTouch(ü ( ) K
While K=0
codeTouch(ü ( ) K
End
If K=92 et E=0
Then
ú ( ) 7ü ( ) A:ú ( ) 7ü ( ) B:1ü ( ) E
End
If K=93 et F=0
Then
0ü ( ) A:ú ( ) 7ü ( ) B:1ü ( ) F
End
If K=94 et G=0
Then
7ü ( ) A:ú ( ) 7ü ( ) B:1ü ( ) G
End
If K=82 et H=0
Then
ú ( ) 7ü ( ) A:0ü ( ) B:1ü ( ) H
End
If K=83 et I=0
Then
0.1ü ( ) A:0.1ü ( ) B:1ü ( ) I
End
If K=84 et J=0
Then
7ü ( ) A:0ü ( ) B:1ü ( ) J
End
If K=72 et L=0
Then
ú ( ) 7ü ( ) A:7ü ( ) B:1ü ( ) L
End
If K=73 et M=0
Then
0ü ( ) A:7ü ( ) B:1ü ( ) M
End
If K=74 et N=0
Then
7ü ( ) A:7ü ( ) B:1ü ( ) N
End
If K<72 ou K>94 ou (A=0 et B=0)
Then
codeTouch(ü ( ) K
Goto 1
End
partEnt(A)ü ( ) A
partEnt(B)ü ( ) B
Ligne(A+2,B+2,A-2,B-2
Ligne(A+2,B-2,A-2,B+2
If ((E=1)(F=1)(G=1)) ou ((H=1)(I=1)(J=1)) ou ((E=1)(H=1)(L=1)) ou ((F=1)(I=1)(M=1)) ou ((G=1)(J=1)(N=1)) ou ((L=1)(M=1)(N=1))
Then
If U=0:Texte(5,4,"VOUS AVEZ GAGNE")
If U=1:Texte(5,4,"JOUEUR 1 GAGNE
P+1ü ( ) P
Goto F
End
If ((E=1)(I=1)(N=1)) ou ((G=1)(I=1)(L=1))
Then
If U=0:Texte(5,4,"VOUS AVEZ GAGNE")
If U=1:Texte(5,4,"JOUEUR 1 GAGNE
P+1ü ( ) P
Goto F
End
Lbl A
Horizontale 4
Horizontale ú ( ) 4
Verticale 4
Verticale ú ( ) 4
If Eø0 et Fø0 et Gø0 et Hø0 et Iø0 et Jø0 et Lø0 et Mø0 et Nø0
Then
Texte(5,4,"MATCH  NUL
Goto F
End
If U=0
Then
If E=0:1ü ( ) C
If F=0:2ü ( ) C
If G=0:3ü ( ) C
If H=0:4ü ( ) C
If I=0:5ü ( ) C
If J=0:6ü ( ) C
If L=0:7ü ( ) C
If M=0:8ü ( ) C
If N=0:9ü ( ) C

If E=0 et F=0 et G=0 et H=0 et I=0 et J=0 et L=0 et M=0 et N=0
Then
If C>5:7ü ( ) C
If C<6:5ü ( ) C
End
If I=1 et E=0 et F=0 et G=0 et H=0 et J=0 et L=0 et M=0 et N=0:9ü ( ) C
If I=1 et E=1 et N=2 et F=0 et G=0 et H=0 et J=0 et L=0 et M=0:7ü ( ) C
If L=1 et E=0 et F=0 et G=0 et H=0 et I=0 et J=0 et M=0 et N=0:5ü ( ) C
If N=1 et E=0 et F=0 et G=0 et H=0 et I=0 et J=0 et L=0 et M=0:5ü ( ) C
If E=1 et F=0 et G=0 et H=0 et I=0 et J=0 et L=0 et M=0 et N=0:5ü ( ) C
If G=1 et E=0 et F=0 et H=0 et I=0 et J=0 et L=0 et M=0 et N=0:5ü ( ) C
If E=1 et F=1 et G=0
Then
3ü ( ) C
End
If E=1 et F=0 et G=1
Then
2ü ( ) C
End
If E=0 et F=1 et G=1
Then
1ü ( ) C
End
If H=1 et I=1 et J=0
Then
6ü ( ) C
End
If H=1 et I=0 et J=1
Then
5ü ( ) C
End
If H=0 et I=1 et J=1
Then
4ü ( ) C
End
If L=1 et M=1 et N=0
Then
9ü ( ) C
End
If L=1 et M=0 et N=1
Then
8ü ( ) C
End
If L=0 et M=1 et N=1
Then
7ü ( ) C
End
If E=1 et H=1 et L=0
Then
7ü ( ) C
End
If E=1 et H=0 et L=1
Then
4ü ( ) C
End
If E=0 et H=1 et L=1
Then
1ü ( ) C
End
If F=1 et I=1 et M=0
Then
8ü ( ) C
End
If F=1 et I=0 et M=1
Then
5ü ( ) C
End
If F=0 et I=1 et M=1
Then
2ü ( ) C
End
If G=1 et J=1 et N=0
Then
9ü ( ) C
End
If G=1 et J=0 et N=1
Then
6ü ( ) C
End
If G=0 et J=1 et N=1
Then
3ü ( ) C
End
If E=1 et I=1 et N=0:9ü ( ) C
If E=1 et I=0 et N=1:5ü ( ) C
If E=0 et I=1 et N=1:1ü ( ) C
If G=1 et I=1 et L=0:7ü ( ) C
If G=1 et I=0 et L=1:5ü ( ) C
If G=0 et I=1 et L=1:3ü ( ) C
If E=2 et F=2 et G=0:3ü ( ) C
If E=2 et F=0 et G=2:2ü ( ) C
If E=0 et F=2 et G=2:1ü ( ) C
If H=2 et I=2 et J=0:6ü ( ) C
If H=2 et I=0 et J=2:5ü ( ) C
If H=0 et I=2 et J=2:4ü ( ) C
If L=2 et M=2 et N=0:9ü ( ) C
If L=2 et M=0 et N=2:8ü ( ) C
If L=0 et M=2 et N=2:7ü ( ) C
If E=2 et H=2 et L=0:7ü ( ) C
If E=2 et H=0 et L=2:4ü ( ) C
If E=0 et H=2 et L=2:1ü ( ) C
If F=2 et I=2 et M=0:8ü ( ) C
If F=2 et I=0 et M=2:5ü ( ) C
If F=0 et I=2 et M=2:2ü ( ) C
If G=2 et J=2 et N=0:9ü ( ) C
If G=2 et J=0 et N=2:6ü ( ) C
If G=0 et J=2 et N=2:3ü ( ) C
If F=2 et I=2 et L=0:7ü ( ) C
If F=2 et I=0 et L=2:5ü ( ) C
If F=0 et I=2 et L=2:3ü ( ) C
If E=2 et I=2 et N=0:9ü ( ) C
If E=2 et I=0 et N=2:5ü ( ) C
If E=0 et I=2 et N=2:1ü ( ) C
End

If U=1
Then
0ü ( ) K
codeTouch(ü ( ) K
While K=0
codeTouch(ü ( ) K
End
If K=92:1ü ( ) C
If K=93:2ü ( ) C
If K=94:3ü ( ) C
If K=82:4ü ( ) C
If K=83:5ü ( ) C
If K=84:6ü ( ) C
If K=72:7ü ( ) C
If K=73:8ü ( ) C
If K=74:9ü ( ) C
End
0ü ( ) K
If (C=1)(E=0)
Then
2ü ( ) E:1ü ( ) K
Cercle(ú ( ) 7,ú ( ) 7,2,{à
End
If (C=2)(F=0)
Then
2ü ( ) F:1ü ( ) K
Cercle(0,ú ( ) 7,2,{à
End
If (C=3)(G=0)
Then
2ü ( ) G:1ü ( ) K
Cercle(7,ú ( ) 7,2,{à
End
If (C=4)(H=0)
Then
2ü ( ) H:1ü ( ) K
Cercle(ú ( ) 7,0,2,{à
End
If (C=5)(I=0)
Then
2ü ( ) I:1ü ( ) K
Cercle(0,0,2,{à
End
If (C=6)(J=0)
Then
2ü ( ) J:1ü ( ) K
Cercle(7,0,2,{à
End
If (C=7)(L=0)
Then
2ü ( ) L:1ü ( ) K
Cercle(ú ( ) 7,7,2,{à
End
If (C=8)(M=0)
Then
2ü ( ) M:1ü ( ) K
Cercle(0,7,2,{à
End
If (C=9)(N=0)
Then
2ü ( ) N:1ü ( ) K
Cercle(7,7,2,{à
End
If K=0
Then
Goto A
End
Lbl 68
If ((E=2)(F=2)(G=2)) ou ((H=2)(I=2)(J=2)) ou ((L=2)(M=2)(N=2)) ou ((L=2)(H=2)(E=2)) ou ((F=2)(I=2)(M=2)) ou ((G=2)(J=2)(N=2)) ou ((E=2)(I=2)(N=2)) ou ((G=2)(I=2)(L=2))
Then
If U=0:Texte(5,4,"VOUS AVEZ PERDU")
If U=1:Texte(5,4,"JOUEUR 2 GAGNE
P-1ü ( ) P
Goto F
End
If V=1
Then
Goto 1
End



Goto 0
Lbl Q
Stop
Lbl F
0ü ( ) K
Repeat Kø0
codeTouch(ü ( ) K
End
If K=45 ou K=23
Then
EffEcr
EffDessin
Stop
End
If P>O
Then
Pü ( ) L(2)
End

L(1)ü ( ) Q
If Q=1:1ü ( ) Y
If Q=0:0ü ( ) Y
If Y=1:Goto J
If Y=0:Goto B
tbmc le 08/06/2010 à 10:57
Et voila le pendu.

Code


Lbl Z
0ü ( ) Z
Menu("PENDU ","1 JOUEUR",E,"ENTRER MOT",F,"QUITTER",Q
Lbl F
EffEcr
Lbl Y
Disp "MAX CARACTERE:",7
Disp "MOT A FAIRE"
Input "DEVINER: ",Cha ne3
longueur(Cha ne3)ü ( ) A
If A>7
Then
Disp "MOT TROP LONG"
Goto Y
End
1ü ( ) Z
Lbl E
0ü ( ) X
Lbl B
If Z=1:Goto A
{0,0,0,0,0,0,0,0,0}ü ( ) áEA
entAl–at(1,5)ü ( ) X
If X=1 et áEA(1)=0
Then
"PORTE"ü ( ) Cha ne3
1ü ( ) áEA(1
Goto A
End
If X=1 et áEA(1)=1:X+1ü ( ) X
If X=2 et áEA(2)=0
Then
"ROBOT"ü ( ) Cha ne3
1ü ( ) áEA(2
Goto A
End
If X=2 et áEA(2)=1:X+1ü ( ) X
If X=3 et áEA(3)=0
Then
"CHIEN"ü ( ) Cha ne3
1ü ( ) áEA(3
Goto A
End
If X=3 et áEA(3)=1:X+1ü ( ) X
If X=4 et áEA(4)=0
Then
"CHAISE"ü ( ) Cha ne3
1ü ( ) áEA(4
Goto A
End
If X=4 et áEA(4)=1:X+1ü ( ) X
If X=5 et áEA(5)=0
Then
"TABLEAU"ü ( ) Cha ne3
1ü ( ) áEA(5
Goto A
End
If X=5 et áEA(5)=1:1ü ( ) X
If X>10:Goto B
Lbl A
EffEcr
0ü ( ) E:10ü ( ) F
" "ü ( ) Cha ne0
" "ü ( ) Cha ne1
" "ü ( ) Cha ne2
" "ü ( ) Cha ne5
" "ü ( ) Cha ne6
" "ü ( ) Cha ne7
" "ü ( ) Cha ne8
" "ü ( ) Cha ne9
longueur(Cha ne3)ü ( ) A
"-"ü ( ) Cha ne1
If Aù ( ) 2:"-"ü ( ) Cha ne2
If Aù ( ) 3:"-"ü ( ) Cha ne5
If Aù ( ) 4:"-"ü ( ) Cha ne6
If Aù ( ) 5:"-"ü ( ) Cha ne7
If Aù ( ) 6:"-"ü ( ) Cha ne8
If Aù ( ) 7:"-"ü ( ) Cha ne9
Cha ne1ü ( ) Cha ne0
If A>1
Then
1ü ( ) V
Repeat A=V
Cha ne0+Cha ne1ü ( ) Cha ne0
V+1ü ( ) V
End
End
0ü ( ) D
Lbl 2
EffEcr
Output(4,1,"MOT MYSTERE:"
Disp "LONGUEUR:"
Output(1,15,A
Output(5,1,Cha ne0
1ü ( ) D
carCha ne(Cha ne0,"-",1)ü ( ) D
If D=0
Then
Disp "GAGNER
Pause
If Z=1:Goto Z
Goto B
End
Output(8,1,"COUPS RESTANT:"
Output(8,15,F
Input "LETTRE: ",Cha ne4
sous-Cha ne(Cha ne4,1,1)ü ( ) Cha ne4
1ü ( ) B
Lbl 1
carCha ne(Cha ne3,Cha ne4,B)ü ( ) C
If Cø0
Then
C+1ü ( ) B
If C=1:Cha ne4ü ( ) Cha ne1
If C=2:Cha ne4ü ( ) Cha ne2
If C=3:Cha ne4ü ( ) Cha ne5
If C=4:Cha ne4ü ( ) Cha ne6
If C=5:Cha ne4ü ( ) Cha ne7
If C=6:Cha ne4ü ( ) Cha ne8
If C=7:Cha ne4ü ( ) Cha ne9
Cha ne1ü ( ) Cha ne0
If Aù ( ) 2:Cha ne0+Cha ne2ü ( ) Cha ne0
If Aù ( ) 3:Cha ne0+Cha ne5ü ( ) Cha ne0
If Aù ( ) 4:Cha ne0+Cha ne6ü ( ) Cha ne0
If Aù ( ) 5:Cha ne0+Cha ne7ü ( ) Cha ne0
If Aù ( ) 6:Cha ne0+Cha ne8ü ( ) Cha ne0
If Aù ( ) 7:Cha ne0+Cha ne9ü ( ) Cha ne0
1ü ( ) E
Goto 1
End
If E=0:F-1ü ( ) F
If F=0
Then
Disp "PREDU
Stop
End
0ü ( ) E
Goto 2
Lbl Q
Persalteas le 08/06/2010 à 11:19
joli!!
j'ai pas le temps de recopier là, mais je testerai.

le pendu, c'est une idée originale.
le morpion en intelligence artificiele, chapeau!
Persalteas le 08/06/2010 à 22:18
là je suis en train de recopier, et ... c'est très long et surtout répétitif.
A l'avenir utilise plus d'algorithmes pour alléger tes progs.
je sais, c'est difficile au début mais on s'y fait!
tbmc le 08/06/2010 à 23:49
C'est ce que j'essaye de faire d'habitude mais la je voit pas comment le simplifier.
tbmc le 08/06/2010 à 23:58
Et pour ceux qui ne le savent pas le
Code
à

C'est le "i" en italique situe sur le point
Persalteas le 09/06/2010 à 10:16
bien. je croyais que tu ne savis pas.
j'ai arrêté de recopier hier, je vais continuer aujourd'hui.

juste un truc pour silmplifier:
If E=0 peut s'écrire If non(E
If E=1 peut s'écrire juste If E (dans le sens ou E n'est pas nul)

If ((E=1)(F=1)(G=1)) ou ((H=1)(I=1)(J=1)) ou ((E=1)(H=1)(L=1)) ou ((F=1)(I=1)(M=1)) ou ((G=1)(J=1)(N=1)) ou ((L=1)(M=1)(N=1))
peut s'écrire:
IF EFG ou HIJ ou EHL ou FIM ou GJN ou LMN et ça simplifie vachement.
Persalteas le 09/06/2010 à 10:19
d'ailleurs

If Eø0 et Fø0 et Gø0 et Hø0 et Iø0 et Jø0 et Lø0 et Mø0 et Nø0

peut s'écrire
If EFGHIJLMN

et
If E=0 et F=0 et G=0 et H=0 et I=0 et J=0 et L=0 et M=0 et N=0

peut s'écrire
If non(EFGHIJLMN)
Persalteas le 09/06/2010 à 10:21
non!! excuse!! énorme erreur!

Citation

If E=0 et F=0 et G=0 et H=0 et I=0 et J=0 et L=0 et M=0 et N=0

peut s'écrire
If non(EFGHIJLMN)


c'est faux!
ça s'écrit If non(E+F+G+H+I+J+L+M+N)
Persalteas le 09/06/2010 à 10:31
d'ailleurs tu n'as pas besoin de mettre les then et les end si ton if n'a qu'une seule opération à contenir:

If E=1 et F=1 et G=0:
Then
3->C
End

s'écrit
If E=1 et F=1 et G=0:3->C
Persalteas le 09/06/2010 à 10:45
j'abandonne. je suis flemmard de nature.
si tu veux que ton prog soit utilisé, une version téléchargeable serait la bienvenue.(en tout cas pour le morpion).
Persalteas le 09/06/2010 à 10:53
maitenant je suis au pendu, il me met err syntaxe à {0,0,0,0,0,0,0,0,0,0}->àEA

(j'ai bien remplacé à par le i au dessus du point.)

tu est sur que ce i ne serait pas plutôt le l de liste ([2nde][0][)][enter])
tbmc le 09/06/2010 à 12:20
Pour le pendu le "à" c'est dans le menu liste le 2e et tout en bas
Persalteas le 09/06/2010 à 15:07
ok dac c'est bien ce que je pensais.
Persalteas le 09/06/2010 à 16:53
voilà un morpion à moi, inspiré de plusieurs morpions déjà existants, mais sans IA.
si tu veux tu peux essayer de rajouter l'IA sur mon prog qui est quand même plus simple.

Code

AxesNaff
0->S:0->R
1->P
Lbl Z
0->Y
EffDessin
PleinEcr
0->Xmin
50->Xmax
0->Ymin
30->Ymax
Ligne(0,10,30,10
Ligne(0,20,30,20
Ligne(10,2,10,29
Ligne(20,2,20,29
Verticale 35
Ligne(35,0,50,0
Ligne(35,30,50,30
1->C:1->D
2->A:2->B
0->T
If partDéc(P/2):1->T
{3,3}->dim([A]
For(K,1,3
For(G,1,3
0->[A](K,G)
End
End
Texte(10,85,"J.1"
Texte(52,85,"J.2"
Repeat 0
codeTouche->K
If K>=24 et K =<26 ou K=34:Then
A->C:B->D
End
If K=24:A-1->A
If K=25:B+1->B
If K=26:A+1->A
If K=34:B-1->B
If A=0:3->A
If B=0:3->B
If A=4:1->A
If B=4:1->B
Ligne(10C-1,10D-1,10C-1,10D-9,0
Ligne(10C-9,10D-1,10C-1,10D-1,0
Ligne(10C-9,10D-9,10C-1,10D-9,0
Ligne(10C-9,10D-9,10C-9,10D-1,0
Ligne(10A-1,10B-1,10A-1,10B-9
Ligne(10A-9,10B-1,10A-1,10B-1
Ligne(10A-9,10B-9,10A-1,10B-9
Ligne(10A-9,10B-9,10A-9,10B-1
Texte(28,69,"PARTIE :"
Texte(34,75,P
Texte(10,70,S
Texte(52,70,R
Ligne(44,22,50,22,T
Ligne(44,1.5,50,1.5,non(T
If K=45:Goto Q
If K=105 et [A](A,B):0->K
If K=105 et T=1:Then
1->[A](A,B)
Ligne(10A-8,10B-2,10A-2,10B-8
Ligne(10A-8,10B-8,10A-2,10B-2
End
If K=105 et T=0:Then
Cercle(10A-5,10B-5,3
2->[A](A,B)
End
If K=105:non(T->T
[A](1,1)->J
[A](1,2)->K
[A](1,3)->L
[A](2,1)->M
[A](2,2)->E
[A](2,3)->F
[A](3,1)->G
[A](3,2)->H
[A](3,3)->I
If JKL=1 ou MEF=1 ou GHI=1 ou JMG=1 ou KEH=1 ou LFI=1 ou JEI=1 ou LEG=1
Then
Ligne(0,12,50,12
For(K,12.5,18.5,0.5
Ligne(0,K,50,K,0
End
Ligne(0,19,50,19
Texte(28,20,"JOUEUR 1 GAGNE!"
P+1->P
S+1->S
1->Y
Pause
End
If JKL=8 ou MEF=8 ou GHI=8 ou JMG=8 ou KEH=8 ou LFI=8 ou JEI=8 ou LEG=8
Then
Ligne(0,12,50,12
For(K,12.5,18.5,0.5
Ligne(0,K,50,K,0
End
Ligne(0,19,50,19
Texte(28,20,"JOUEUR 2 GAGNE!"
P+1->P
R+1->R
1->Y
Pause
End
If non(Y) et J+K+L+M+E+F+G+H+I>=13:Then
Ligne(0,12,50,12
For(K,12.5,18.5,0.5
Ligne(0,K,50,K,0
End
Ligne(0,19,50,19
Texte(28,32,"RATE!!"
P+1->P
1->Y
Pause
End
If Y:Goto Z
End
Lbl Q
EffDessin
EffEcr
ZStandard
AxesAff
EffVar [A]
EffVar A:EffVarB: etc...,C,D,E,F,G,H,I,J,K,L,M,P,R,S,T,Y
Output(1,1,"



vu que j'ai pas arrêté de te trasher, fais pareil pour moi!
Persalteas le 09/06/2010 à 17:19
réflexion sur le pendu:
j'ai recopié ton prog, j'ai essayé, et quand je cherche à deviner le mot il écrit longueur: 1 alors que ce que j'avais rentré était plus long, et quand je rentre les bonnes lettres, il ne les affiche pas.
idem quand la calto tire un mot au sort.
je ne crois pas avoir fait d'erreur.
as tu testé ton prog?

si oui, j'ai du mal recopier quelque chose.
tbmc le 09/06/2010 à 17:43
Ouais je l'ai teste et normalement il marche tres bien
tbmc le 09/06/2010 à 17:49
Pour le morpion, l'IA c'est 80% du programme
tbmc le 09/06/2010 à 17:55
Je veut bien mettre une version telechargeable pour le morpion mais j sais pas trop comment on fait
Et si ta des problèmes pour recopier le pendu n'ésite pas a demander.
Persalteas le 09/06/2010 à 18:17
dac.
je pose pas tout de suite, parce que la j'étais sur le site toute la journée et je commence à avoir mal aux yeux.
linkakro le 09/06/2010 à 18:22
J'arrive trop tard pour donner des conseils ^^' ; Je suis d'accord avec tout ce qui a été dit.

Pour une version téléchargeable :
-soit tu utilise le site ti Editor
-soit tu utilise le logiciel vti
-soit tu utilise un câble
Puis héberge le fichier sur internet.

ps: le conseil n'est pas pour toi persalteas ^^
Persalteas le 09/06/2010 à 18:28
prends la relève linkakro je suis mort j'ai déjà invent 3 progs dans l'aprèm.
tu es le bienvenu.
teste donc le pendu pour voir si c'est le prog ou moi qu'il faut changer. godgrace.gif
Persalteas le 10/06/2010 à 16:34
c'était le prog qu'il fallait changer : j'ai supprimé une ligne et ça a fonctionné normalement.
Il affiche la bonne longueur, le bon nombre de traits.
par contre, quand le mot fait moins de 7 lettres, il n'affiche pas la dernière quand on l'a trouvé.
alexvire le 10/06/2010 à 17:59
Bonjour, hier tu m'as donné l'idée de faire un pendu. J'ai donc fais un pendu de 745 octets qui utilise le partage d'écran entre le graphique et le tableur. Si tu veux tu peux t'en inspirer pour raccourcir le tiens.

Un fichier 83p est disponible ici.

Vous avez la possibilité de rentrer un mot, mais dix mots sont déjà programmés, pour en activé un des dix tapez un espace.

Code
SauveBDG 0
Lbl 0
EffEcr
PleinEcr
EffVar {L1}
Menu(">>>> PENDU <<<<<","JOUER",1,"QUITTER",5
Lbl 1
Horiz
EffDessin
AxesNAff
FonctNAff
0{->}Xmin
94{->}Xmax
0{->}Ymin
31{->}Ymax
0{->}A
0{->}B
1{->}C
AffGraph
Input "MOT: ",Chaîne0
"CHAISEBATEAUCAHIERTENNISBOUTONREVEILLEZARDCHIMIEDOMINOBANANE
If Chaîne0="
sous-Chaîne(Rép,6entAléat(0,9)+1,6{->}Chaîne0
longueur(Chaîne0{->}D
D{->}dim({L1}
Lbl 2
EffEcr
1{->}E
For(F,1,D
If {L1}(F
Then
Texte(0,E,sous-Chaîne(Chaîne0,F,1
Else
Texte(0,E,"-
End
E+4{->}E
End
If A=9
Goto 3
Input "LETTRE: ",Chaîne1
0{->}A
For(F,1,D
If sous-Chaîne(Chaîne1,1,1)=sous-Chaîne(Chaîne0,F,1
Then
1{->}{L1}(F
1{->}A
End
End
If A
Then
0{->}G
For(F,1,D
If {L1}(F
G+1{->}G
End
If D=G
9{->}A
Else
Texte(24,C,sous-Chaîne(Chaîne1,1,1
C+4{->}C
B+1{->}B
If B=1
Ligne(73,1,93,1
If B=2
Ligne(75,1,75,30
If B=3
Ligne(75,30,85,30
If B=4
Ligne(75,25,80,30
If B=5
Ligne(85,30,85,25
If B=6
Cercle(85,22,2
If B=7
Ligne(85,20,85,12
If B=8
Ligne(85,12,81,5
If B=9
Ligne(85,12,89,5
If B=10
Ligne(85,19,82,12
If B=11
Then
Ligne(85,19,88,12
Goto 4
End
End
Goto 2
Lbl 3
EffEcr
Output(2,6,"GAGNE!
Pause
Goto 0
Lbl 4
Texte(0,0,Chaîne0
EffEcr
Output(2,6,"PERDU!
Pause
Goto 0
Lbl 5
Output(4,6,"ALEXIS
RappelBDG 0
EffVar AEffVar BEffVar CEffVar DEffVar EEffVar FEffVar GEffVar YEffVar BDG0EffVar Chaîne0EffVar Chaîne1
Output(1,1,"
Persalteas le 10/06/2010 à 21:16
j'ai pas le temps de recopier et comme la ja suis sous vista je peux pas télécharger.
dès que j'aurais le temps, j'essaie.
linkakro le 10/06/2010 à 23:39
S'il te plaît, persalteas, dis-nous précisément quelle est la modification que tu as effectuée (au-cas-où)
Sangohan38 le 11/06/2010 à 14:32
Sous vista, les logiciels tels que vti, ti-graph link et ti-connect fonctionnent parfaitement si le contrôle administrateur est désactivé.

Sangohan38
Persalteas le 12/06/2010 à 09:19
ah, euh...
tout bien vérifié, j'ai enlevé une ligne que j'avais écrite mais qui n'était pas dans le code prog.
l'erreur venait donc de moi.
désolé.

Sangohan=> non, ti connect sous vista 64 bit ça ne marche pas.
j'ai cherché sur internet il y a quelque temps et je suis tombé sur un forum ou un type avait écrit un mail à Ti education pour demander si c'était possible de connecter une calto avec vista 64.

la réponse de Ti était formelle: "aucun de nos produits n'est compatible avec Vista 64 bits."

et je te dis c'est pas faute d'avoir essayé.
Persalteas le 12/06/2010 à 09:49
bravo alexvire ton prog fonctionne a merveille.
alexvire le 24/06/2010 à 15:22
Je vous propose ma version du MORPION de 990 octets disponible ici.
Programaths le 01/05/2011 à 00:57
Salut alexvire pour ton programme du pendu ! très bien fait coté design et simplicité.
Les 10 mots que tu as mis, on peux en rajouter dans la liste ? il faut qu'ils aient 6lettres exactement apparemment. ya-t-il un moyen d'en mettre avec plus de lettre ? en mettant 2 espace par exemple un truck dans le genre ^^, j'aimerai test quelque truck mais j'ai pas de cable sous la main et ça m'a deja fais 2 ram clear crazy.gif
Programaths le 01/05/2011 à 02:16
j'ai regler le probleme ! crazy.gif je vous montre :

Code

SauveBDG 0
Lbl 0
EffEcr
PleinEcr
EffVar {L1}
Menu(">>>> PENDU <<<<<","JOUER",1,"QUITTER",5
Lbl 1
Horiz
EffDessin
AxesNAff
FonctNAff
0{->}Xmin
94{->}Xmax
0{->}Ymin
31{->}Ymax
0{->}A
0{->}B
1{->}C
AffGraph
Disp "16 lettres max                         /
Input "MOT: ",Chaîne0
"CHAISEBATEAUCAHIERTENNISBOUTONREVEILLEZARDCHIMIEDOMINOBANANE
If Chaîne0="6                                //:  6 pour un mot a 6lettres
sous-Chaîne(Rép,6entAléat(0,9)+1,6{->}Chaîne0    //: 10 mot ="entAléat(0,9)+1"  ,11 mots =  "entAléat(0,10)+1" etc, et le nombre 6 c'est le nbr de lettre

"LEXIQUEUTILISEPRESENT                       /
If Chaine0="7                                /
Sous-Chaine(Rep,7entAléat(0,2)+1,7->Chaine0  /

"FONCTIONNAVIGUERAILLEURS
If Chaine0="8                                /
Sous-Chaine(Rep,8entAléat(0,2)+1,8->Chaine0  /

longueur(Chaîne0{->}D
D{->}dim({L1}
Lbl 2
EffEcr
1{->}E
For(F,1,D
If {L1}(F
Then
Texte(0,E,sous-Chaîne(Chaîne0,F,1
Else
Texte(0,E,"-
End
E+4{->}E
End
If A=9
Goto 3
Input "LETTRE: ",Chaîne1
0{->}A
For(F,1,D
If sous-Chaîne(Chaîne1,1,1)=sous-Chaîne(Chaîne0,F,1
Then
1{->}{L1}(F
1{->}A
End
End
If A
Then
0{->}G
For(F,1,D
If {L1}(F
G+1{->}G
End
If D=G
9{->}A
Else
Texte(24,C,sous-Chaîne(Chaîne1,1,1
C+4{->}C
B+1{->}B
If B=1
Ligne(73,1,93,1
If B=2
Ligne(75,1,75,30
If B=3
Ligne(75,30,85,30
If B=4
Ligne(75,25,80,30
If B=5
Ligne(85,30,85,25
If B=6
Cercle(85,22,2
If B=7
Ligne(85,20,85,12
If B=8
Ligne(85,12,81,5
If B=9
Ligne(85,12,89,5
If B=10
Ligne(85,19,82,12
If B=11
Then
Ligne(85,19,88,12
Goto 4
End
End
Goto 2
Lbl 3
EffEcr
Output(2,6,"GAGNE!
Pause
Goto 0
Lbl 4
Texte(0,0,Chaîne0
EffEcr
Output(2,6,"PERDU!
Pause
Goto 0
Lbl 5
Output(4,6,"ALEXIS
RappelBDG 0
EffVar AEffVar BEffVar CEffVar DEffVar EEffVar FEffVar GEffVar YEffVar BDG0EffVar Chaîne0EffVar Chaîne1
Output(1,1,"



Voila happy.gif
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.