Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les rsultats

Rsultat de la recherche



Poster un nouveau sujet Poster une rponse Page: 1, ,      >>
tout mes programmes (pendu, morpion, ...)
Auteur Message
nanoseb
Avatar

Autorisation : Membre
Nb de messages : 19
Inscrit le : Sam 31 Mai 2008, 15:10
Post le : Mer 04 Jui 2008, 18:18   Citer 

bonjour
je poste ici tout mes programmes (je ne pouvais pas le faire plus tt car mon cble ti-PC vient juste d'arriver).
mes programmes ne sont pas trs dvelopp et tout les jeux que j'ai fait existent dj (et souvent en mieux )mais je voulais les poster ici pour avoir votre avis et les amliorer.
la notation est celle de TI-GRAPH LINk
donc les -> sont des
...

tout d'abord un jeu de pendu (pour le graphisme du "pendu" je me suis inspir d'un programme de ce forum mais pas pour le code c'est pour cela que je le poste)



Code
" "Str1
Str1Str2
Str2Str3
11dim(L
0L
0A
0B
0C
0X
Lbl 1
ClrHome
Input "MOT A CHERCHER : ",Str1
length(Str1X
If X>11
Then
Pause "MOT TROP LONG"
Goto 1
End
Str1+"-"Str1
Fill(X+1,L
ClrHome
For(G,1,X
Output(5,G,"-
End
Lbl 2
Output(1,1,"PLUS QUE   COUPS
Output(1,10,9-C
Disp ""
Input " ",Str2
Lbl 9
0L
ClrHome
For(M,1,X
Output(5,M,sub(Str1,L(M),1
End
If C1
Output(8,11,"----
If C2
Then
For(U,4,7
Output(U,12,"!
End
End
If C4
Output(4,13,"/
If C3
Output(3,11,"-----
If C5
Output(4,15,"!
If C6
Output(5,15,"*
If C7
Output(6,15,"O
If C8
Output(6,14,"-
If C8
Output(6,16,"-
If C9
Output(7,15,"
If C9 or B=X
Goto 5
Output(1,1,"PLUS QUE   COUPS
Output(1,10,9-C
Disp ""
Input " ",Str2
length(Str2Y
If Y1
Goto 9
inString(Str3,Str2)U
If U0
Goto 9
Str2+Str3Str3
Lbl 3
inString(Str1,Str2,A+1)A
If A=0 and L=0
Then
C+1C
Goto 9
End
If A0 and L=0
Then
B+1B
1L
AL(A)
Goto 3
End
If A0 and L=1
Then
B+1B
AL(A)
Goto 3
End
If A=0 and L=1
Goto 9
Goto 9
Lbl 5
If C9
Output(2,1,"PERDU"
Output(3,1,"LE MOT
Output(4,1,"ETAIT
If BX
Output(2,1,"GAGNE!"
Output(5,1,sub(Str1,1,X
Pause
ClrHome
Output(8,2,"CREATED BY SEB
Stop
End





maintenant un jeu qui simule le lanc de ds (entre 1 et 5 ds)


Code
FnOff
AxesOff
100Xscl
100Yscl
0Xmin
9.4Xmax
6.2Ymin
0Ymax
Lbl Z
0K
ClrDraw
ClrHome
Output(8,2,"CREATED BY SEB
Input "NOMBRE DE DES ",W
int(W)W
If W>5 or W<1
Then
Output(4,5,"ERREUR
Output(6,1,"ENTREZ UN NOMBRE  ENTRE 1 ET 5
Pause
Goto Z
End
If W=1
0C
If W=2
2C
If W=3
Then
4C
1K
End
If W=4
6C
If W=5
8C
Goto Q
Lbl K
Lbl Q
For(B,0,C,2)
Line(B,3,B,2
Line(B,2,1+B,2
Line(1+B,2,1+B,3
Line(1+B,3,1.3+B,2.7
Line(B,3,1+B,3
Line(1.3+B,2.7,1.3+B,1.7
Line(1.3+B,1.7,0.3+B,1.7
Line(B,2,0.3+B,1.7
Line(1+B,2,1.3+B,1.7
End
For(B,0,C,2)
randInt(1,6A
If A=1
Pxl-On(25,5+B*10)
If A=2
Then
Pxl-On(28,2+B*10
Pxl-On(22,8+B*10
End
If A=3
Then
Pxl-On(28,2+B*10
Pxl-On(22,8+B*10
End
If A=4
Then
Pxl-On(22,2+B*10
Pxl-On(22,8+B*10
Pxl-On(28,2+B*10
Pxl-On(28,8+B*10
End
If A=5
Then
Pxl-On(22,2+B*10
Pxl-On(28,2+B*10
Pxl-On(22,8+B*10
Pxl-On(28,8+B*10
Pxl-On(25,5+B*10
End
If A=6
Then
Pxl-On(22,2+B*10
Pxl-On(28,2+B*10
Pxl-On(22,8+B*10
Pxl-On(28,8+B*10
Pxl-On(25,2+B*10
Pxl-On(25,8+B*10
End
End
Pause
0K
Goto Z



maintenant un jeu de "course" un peut lent(mon premier programme alors soyez indulgent^^)



Code
9dim(L
If L(9)=9959
Then
Goto I
Else
9dim(L)
Fill(0,L)
End
Lbl I
ClrHome
Output(4,6,"COURSE"
1Y
For(,2,15)
Output(2,,""
Output(3,,""
Output(4,,""
Output(5,,""
Output(6,,""
Output(7,,""
Output(4,6,"COURSE"
End
For(,1,100)
2A
End
Lbl M
ClrHome
8X
0U
0V
0D
0E
0M
0H
0G
0N
0K
0L
0J
0B
0
11C
Menu("      MENU      ","JOUER",A,"INSTRUCTIONS",B,"MEILLEURS SCORES",C,"QUITTER",D)
Lbl D
ClrHome
Stop
Lbl A
ClrHome
Menu("   DIFFICULTE   ","FACILE",J,"MOYEN",K,"DIFFICILE",L)
Lbl J
7T
T-1S
Goto R
Lbl K
11T
T-1S
13C
Goto R
Lbl L
12T
T-1S
13C
Goto R
Lbl R
ClrHome
Output(2,1,"PTS"
For(W,1,8)
Output(W,S,"I"
Output(W,16,"I"
End
Output(8,C,"8"
Lbl Z
L+1L
Output(1,1,L
If L4:Then
If U8 or U0
randInt(T,15V
U+1U
If U=9:1U
Output(U,V,"O"
If U1:Output(U-1,V," "
End
If N8 or N0
randInt(T,15M
N+1N
If N=9:Output(N-1,M," "
If N=9:1N
If L5:Then
If J8 or J0
randInt(T,15G
J+1J
If J=9:1J
Output(J,G,"O"
If J1:Output(J-1,G," "
End
If L3:Then
If K8 or K0
randInt(T,15H
K+1K
If K=9:1K
Output(K,H,"O"
If K1:Output(K-1,H," "
End
If L7:Then
If D8 or D0
randInt(T,15E
D+1D
If D=9:1D
Output(D,E,"O"
If D1:Output(D-1,E," "
End
If N9 and NJ and NK and ND
Then
If =1:Then
If N=8:Then
0
End
Goto S
End
Output(N,M,""
If N1:Output(N-1,M," "
End
Lbl S
Output(X,C,"8"
0B
getKeyB
If B=45:Then
ClrHome
Stop
End
If B=105:Then
Output(4,4,"[ PAUSE ]"
Pause
Output(4,4,"         "
Output(4,S,"I"
End
If B=26:Then
If C=15:Goto Z
C+1C
Output(X,C,"8"
Output(X,C-1," ")
End
If B=25:Then
If X=1:Goto Z
X-1X
Output(X,C,"8"
Output(X+1,C," "
End
If B=34:Then
If X=8:Goto Z
X+1X
Output(X,C,"8"
Output(X-1,C," "
End
If B=24:Then
If CT:Goto Z
C-1C
Output(X,C,"8")
Output(X,C+1," ")
End
If C=V and U=X
Goto O
If C=G and J=X
Goto O
If C=E and D=X
Goto O
If C=H and K=X
Goto O
If C=M and N=X and =0
Then
1
L+19L
End
If D=8:Output(8,E," "
If N=8:Then
If CM:Output(8,M," "
End
If J=8:Output(8,G," "
If K=8:Output(8,H," "
If U=8:Output(8,V," "
Goto Z
Lbl O
ClrHome
Output(3,5,"GAME                               OVER"
Pause
ClrHome
Output(3,3,"VOUS AVEZ"
Output(5,1,L
Output(5,5,"POINTS"
LL(8)
SortD(L)
9959L(9)
Output(8,1,"SEB CORPORATION"
Pause
Goto E
Lbl B
Output(1,1,"A L'AIDE DES 4  FLECHES EVITER  LES AUTRES VOITURES (O), TOUT ENALLANT SUR LES ,(ENTRER POUR PAUSE,ANNUL POUR  QUITTER)"
Pause
Goto M
Lbl C
Menu("MEILLEURS SCORES","VOIR",E,"MISE A ZERO",F
Lbl E
ClrHome
For(W,2,8
Output(W,2,W-1)
End
Disp "MEILLEURS SCORES"
For(W,2,8
Output(W,12,L(W-1)
End
Pause
Goto M
Lbl F
ClrHome
{0,0,0,0,0,0,0,0,9959}L
Output(4,3,"REMISE A ZERO    EFFECTUEE"
Pause
Goto M





un jeu de morpion (un peut lent aussi)



Code
ClrHome
2M
1U
4I
2K
For(,2,15)
Output(4,6,"MORPION
Output(2,,"
Output(3,,"
Output(4,,"
Output(5,,"
Output(6,,"
Output(7,,"
End
Pause
ClrHome
{3,8}dim([A]
Fill(0,[A]
0S
0V
Lbl W
If M=1
Then
1U
2M
Goto J
End
If M=2
Then
2U
1M
Goto J
End
Lbl J
0W
Fill(0,[A]
Output(1,1,"I--I--I--I      I  I  I  I      I--I--I--I      I  I  I  I      I--I--I--I      I  I  I  I      I--I--I--I
Output(1,12,">< ()
Output(2,15,S
Output(2,12,V
4D
5F
4A
5C
Lbl A
If [A](I/2,K)=0
Output(I,K," 
If [A](I/2,K)=1
Output(I,K,"><
If [A](I/2,K)=2
Output(I,K,"()
If U=1:Then:Output(A,C,"><
Output(5,13,"><
End
If U=2:Then:Output(D,F,"()":Output(5,13,"()":End
Goto Z
Lbl Z
If U=2:Goto 2
If U=1:Goto 1
Lbl Q
For(Z,1,3)
If [A](Z,2)*[A](Z,5)*[A](Z,8)=1 or [A](1,5)*[A](2,5)*[A](3,5)=1 or [A](1,8)*[A](2,8)*[A](3,8)=1 or [A](1,2)*[A](2,2)*[A](3,2)=1 or [A](1,2)*[A](2,5)*[A](3,8)=1 or [A](1,8)*[A](2,5)*[A](3,2)=1
Goto V
If [A](Z,2)*[A](Z,5)*[A](Z,8)=8 or [A](1,2)*[A](2,2)*[A](3,2)=8 or [A](1,5)*[A](2,5)*[A](3,5)=8 or [A](1,8)*[A](2,8)*[A](3,8)=8 or [A](1,2)*[A](2,5)*[A](3,8)=8 or [A](1,8)*[A](2,5)*[A](3,2)=8
Goto K
End
If W=9
Goto X
Goto Z
Lbl 2
0Y
getKeyE
If E=24:Then
If F<4:Goto A
F-3F
Output(D,F,"()
F+3K
DI
Goto A
End
If E=26:Then
If F>5:Goto A
F+3F
Output(D,F,"()
F-3K
DI
End
If E=25:Then
If D<3:Goto A
D-2D
Output(D,F,"()
D+2I
FK
End
If E=34:Then
If D=6:Goto A
D+2D
Output(D,F,"()
D-2I
FK
End
If E=105:Then
D/2Q
FP
If [A](Q,P)=0
Then
2[A](Q,P)
1U
4A
5B
W+1W
Goto Q
End:End
Goto A
Lbl 1
0Y
getKeyB
If B=24:Then
If C<4:Goto A
C-3C
Output(A,C,"><
AI
C+3K
Goto A
End
If B=26:Then
If C>5:Goto A
C+3C
Output(A,C,"><
AI
C-3K
Goto A
End
If B=25:Then
If A<3:Goto A
A-2A
Output(A,C,"><
A+2I
CK
End
If B=34:Then
If A=6:Goto A
A+2A
Output(A,C,"><
A-2I
CK
End
If B=105:Then
A/2Y
CX
If [A](Y,X)=0
Then
1[A](Y,X)
2U
4D
5F
W+1W
Goto Q
End:End
Goto A
Lbl V
V+1V
ClrHome
Output(4,4,">< A GAGNE
Output(8,2,"CREATED BY SEB
Pause
Goto W
Lbl K
S+1S
ClrHome
Output(4,4,"() A GAGNE
Output(8,2,"CREATED BY SEB
Pause
Goto W
Lbl X
ClrHome
Output(4,4,"MATCH NUL
Output(8,2,CREATED BY SEB
Pause
Goto W




voici un jeu de slalom


Code
0Q
ClrHome
1B
3C
8E
3F
4A
While 1
If E=1
Then
If AF+1
Goto 5
Q+1Q
randInt(1,6F
16E
End
E-1E
Output(F,E,"
Output(F+2,E,"
If B=1
Then
If AC+1
Goto 5
Q+1Q
randInt(1,6C
16B
End
B-1B
Output(C,B,"
Output(C+2,B,"
getKey
If =25 and A2
A-1A
If =34 and A7
A+1A
Output(A,1,">
Output(A-1,1,"
Output(A+1,1,"
If =105
Pause
End
Lbl 5
Output(4,5,"PERDU!"
Output(5,2,"AVEC    PTS"
Output(5,7,Q
Stop




un "circuit" qui ram un peut aussi


Code
0Q
Menu("   >>>RACE<<<   ","FACILE",1,"MOYEN",2,"DIFFICILE",3
Lbl 1
5L
Goto 4
Lbl 2
3L
Goto 4
Lbl 3
2L
Lbl 4
ClrHome
9dim(L
8dim(L
{5,4,5,5,6,7,7,7}L
8B
8A
7H
While 1
For(X,1,8
L(X)L(X+1)
End
randInt(0,1R
If R=0:1R
LL
LL
R+L(2)L(1)
If L(1)=0:1L(1)
If L(1)=17-L:16-LL(1)
For(V,1,8
Output(V,L(V),"
Output(V,L(V),"*
Output(V,L(V)+L,"
Output(V,L(V)+L,"*
End
Q+1Q
getKey
If =24
Then
Output(8,A," "
A-1A
Output(8,L(8)+L,"*
End
If =26
Then
Output(8,A," "
A+1A
Output(8,L(8),"*
End
If =105
Pause
Output(8,A,"8"
If AL(8) or AL(8)+L
Goto 5
End
Lbl 5
Output(5,4,"PERDU!"
Output(6,2,"AVEC    PTS"
Output(6,7,Q
Stop




tant aussi adepte du rubik's cube j'ai fait un programme pour le mlanger (notation internationale)




Code
0
Lbl A
Menu("SCRAMBLE","4 MOUVEMENTS",P,"8 MOUVEMENTS",U,"12 MOUVEMENTS",G,"16 MOUVEMENTS",W,"28 MOUVEMENTS",T,"QUITTER",Q
Lbl Q
ClrHome
Stop
Lbl P
5G
5H
Goto B
Lbl U
4G
6H
Goto B
Lbl G
3G
7H
Goto B
Lbl T
1G
7H
1
Goto B
Lbl W
1G
7H
Goto B
0E
Lbl B
ClrHome
For(B,G,H,2
For(C,1,16,4
Lbl R
randInt(1,6K
If E=K
Goto R
If K=1
Then
randInt(0,2A
If A=0
Output(B,C,"F
If A=1
Output(B,C,"F'
If A=2
Output(B,C,"F2
End
If K=2
Then
randInt(3,5A
If A=3
Output(B,C,"B
If A=4
Output(B,C,"B'
If A=5
Output(B,C,"B2
End
If K=3
Then
randInt(6,8A
If A=6
Output(B,C,"U
If A=7
Output(B,C,"U'
If A=8
Output(B,C,"U2
End
If K=4
Then
randInt(9,11A
If A=9
Output(B,C,"D
If A=10
Output(B,C,"D'
If A=11
Output(B,C,"D2
End
If K=5
Then
randInt(12,14A
If A=12
Output(B,C,"L
If A=13
Output(B,C,"L'
If A=14
Output(B,C,"L2
End
If K=6
Then
randInt(15,17A
If A=15
Output(B,C,"R
If A=16
Output(B,C,"R'
If A=17
Output(B,C,"R2
End
KE
End
End
Pause
If =1
Then
0
Goto G
End
Goto A




et aussi un chrono avec moyenne



Code
ClrHome
Output(8,2,"CREATED BY SEB
For(,1,8
For(V,1,16
Output(,V,"-"
Output(4,6,"RUBIK'S
Output(5,8,"CHRONO
End
End
ClrHome
0T
0W
0I
0Q
0R
0Y
0X
0C
0D
1A
0B
For(,1,8)
Output(,7,"!
End
Lbl K
1A
0B
0C
Lbl Z
getKeyC
If C=45
Then
ClrHome
Stop
End
If C0
Goto A
Goto Z
Lbl A
Output(4,4,":
A+1A
If A=60
Then
B+1B
0A
Output(4,5,"0
End
Output(4,2,B
Output(4,5,A
For(K,0,26)
sin(7)L
End
getKeyD
If D0
Goto P
Goto A
Lbl P
Y+1Y
T+1T
If Y=8
1Y
If Y1
Output(Y-1,8,"
If Y=1
Output(7,8,"
Output(Y,8,"
Output(Y,9,T
Output(Y,12,B
Output(Y,14,":
Output(Y,15,A
(B+(A/60))+II
W+1W
I/WM
int(MQ
((fPart(M))*60)R
Output(8,11,"  :   "
Output(8,11,Q
Output(8,13,":
Output(8,14,R
Output(8,1,"MOYENNE :
Output(4,2,"0 :0
Goto K





et enfin un rvolver de systme d'quation 2 inconnues



Code
Lbl 1
ClrHome
0Q
Lbl 0
Output(7,1,"A X+B Y=C       A'X+B'Y=C'
If Q=0
Then
Input "A=",A
Q+1Q
Goto 0
End
If Q=1
Then
Input "B=",B
Q+1Q
Goto 0
End
If Q=2
Then
Input "C=",C
Q+1Q
Goto 0
End
If Q=3
Then
Input "A'=",D
Q+1Q
Goto 0
End
If Q=4
Then
Input "B'=",E
Q+1Q
Goto 0
End
If Q=5
Input "C'=",F
If A*E=B*D
Then
ClrHome
Output(4,4,"IMPOSSIBLE    PAS DE (UNIQUE)SOLUTION
0Q
Pause
Goto 1
End
(C*E-B*F)/(A*E-D*B)X
(A*F-C*D)/(A*E-D*B)Y
ClrHome
Output(4,1,"X=
Output(4,3,X
Output(5,1,"Y=
Output(5,3,Y
Output(8,2,"CREATED BY SEB
Stop



merci d'avance pour vos commentaires

----------------------
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicit    



 
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 782
Inscrit le : Mer 18 Ao 2004, 22:13
Post le : Mer 04 Jui 2008, 19:52   Citer 

Il aurait t prfrable de mettre chaque programme dans un sujet diffrent... Mais sinon, bravo pour tous ces programmes !

@+ Le Webmaster beer.gif

----------------------
Retrouver le site sur Facebook : http://www.facebook.com/tout82
 Adresse email Haut de page Bas de page 
 
craminou
Avatar

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31
Post le : Mer 04 Jui 2008, 22:55   Citer 

ahh.gif ahh.gif ahh.gif productif!!!
bravo a toi !

 Adresse email Haut de page Bas de page 
 
nanoseb
Avatar

Autorisation : Membre
Nb de messages : 19
Inscrit le : Sam 31 Mai 2008, 15:10
Post le : Jeu 05 Jui 2008, 11:58   Citer 

merci pour ces commentaires,
mais je ne suis pas si productif que a car j'ai fait tout ces 9 programmes en en 10 moi soit moins de 1 par moi ce qui n'est pas tellement^^

----------------------
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicit    



 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Dc 2005, 19:48
Post le : Ven 06 Jui 2008, 19:15   Citer 

Pour ton morpion, je te conseil d'utiliser soit des variables soit des listes car on arrive vite faire des conomie d'octets:
L1(6 prend 3 octets et [A](3,2 en prend 5 donc sur un prog, le gain de vitesse est norme.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
nanoseb
Avatar

Autorisation : Membre
Nb de messages : 19
Inscrit le : Sam 31 Mai 2008, 15:10
Post le : Sam 07 Jui 2008, 10:04   Citer 

ok merci de ton conseil
je vais essay de faire a

----------------------
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Dc 2005, 19:48
Post le : Sam 07 Jui 2008, 11:20   Citer 

Pour le prog qui rsoud les quations, tu peut le simplifier:


Code
Lbl 1
ClrHome
Output(7,1,"A X+B Y=C
Output(8,1,"A'X+B'Y=C'
Input "A=",A
Input "B=",B
Input "C=",C
Input "A'=",D
Input "B'=",E
Input "C'=",F
If A*E=B*D
Then
ClrHome
Output(4,4,"IMPOSSIBLE    PAS DE (UNIQUE)SOLUTION
Pause
Goto 1
End
(CE-BF)/(AE-DB)X
(AF-CD)/(AE-DB)Y
ClrHome
Output(4,1,"X=
Output(4,3,X
Output(5,1,"Y=
Output(5,3,Y
Output(8,2,"CREATED BY SEB



Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
nanoseb
Avatar

Autorisation : Membre
Nb de messages : 19
Inscrit le : Sam 31 Mai 2008, 15:10
Post le : Sam 07 Jui 2008, 12:37   Citer 

ok merci pour cette simplification mais en faite je l'avais compliqu pour que l'expression du bas reste tout le temps, mais c'est vrai que ce n'est pas indispensable

----------------------
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Dc 2005, 19:48
Post le : Sam 07 Jui 2008, 13:15   Citer 

En renvoyant tout le temps au label 0, tu les recris mais si tu ne met pas de ClrHome ou de symboles dessus, il n'y a aucune raisons pour que a s'efface.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
nanoseb
Avatar

Autorisation : Membre
Nb de messages : 19
Inscrit le : Sam 31 Mai 2008, 15:10
Post le : Sam 07 Jui 2008, 15:52   Citer 

Es tu sur de toi car dans ton code ds que je rentre le A le output du dbut s'efface

----------------------
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Dc 2005, 19:48
Post le : Sam 07 Jui 2008, 19:20   Citer 

En effet, il s'efface.
Met un Disp"AX+B ...","A'X+B'..." la place des output, a devrait marcher mais en mettant la formule en haut au lieu d'en bas.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
nanoseb
Avatar

Autorisation : Membre
Nb de messages : 19
Inscrit le : Sam 31 Mai 2008, 15:10
Post le : Lun 09 Jui 2008, 18:24   Citer 

oui bonne ide
merci

----------------------
 Adresse email Haut de page Bas de page 
 
Jcotnys



Autorisation : Membre
Nb de messages : 180
Inscrit le : Lun 20 Mar 2006, 13:28
Post le : Mer 11 Jui 2008, 20:59   Citer 

uai chapo ^^ pour des progs et j'essayerai d'en tester quelque uns minied.gif minied.gif

----------------------
le travail c la sant winkle.gif
 Adresse email Haut de page Bas de page 
 
didouille
Avatar

Autorisation : Membre
Nb de messages : 159
Inscrit le : Dim 11 Oct 2009, 14:18
Post le : Mer 10 Sep 2008, 21:20   Citer 

bonjour je voudrais essay le jeux du pendu mais je n'ai pas trouv la touche "str" ; si quelqu'un pouvait m'aider, merci d'avance.

----------------------
--Didouille--
 Adresse email Haut de page Bas de page 
 
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 782
Inscrit le : Mer 18 Ao 2004, 22:13
Post le : Mer 10 Sep 2008, 23:15   Citer 

Salut,

Quelle calculatrice as-tu ?

@+ Le Webmaster beer.gif

----------------------
Retrouver le site sur Facebook : http://www.facebook.com/tout82
 Adresse email Haut de page Bas de page 
 
Didouille
Avatar

Autorisation : Membre
Nb de messages : 159
Inscrit le : Dim 11 Oct 2009, 14:18
Post le : Jeu 11 Sep 2008, 7:43   Citer 

j'ai le modle ti-82 (pas la stats)

----------------------
--Didouille--
 Adresse email Haut de page Bas de page 
 
Eightech
Avatar

Autorisation : Membre
Nb de messages : 14
Inscrit le : Mar 09 Sep 2008, 22:45
Post le : Jeu 11 Sep 2008, 12:45   Citer 

Si je ne me trompe pas, tu dois appuyer sur [vars] => [7] et l t'as le choix parmis les Str disponibles.

Sinon, pour le jeu du slalom veut bien dire diffrent de non ?

Parce que j'ai copi ton programme sans aucune faute (j'ai vrifi plusieurs fois) et a m'envoie quand mme chaque fois une erreur : Domaine la ligne :

Output(A,1'">

Quelqu'un sait quel est le problme ? Merci d'avance winkle.gif

----------------------
 Adresse email Haut de page Bas de page 
 
peptele



Autorisation : Membre
Nb de messages : 2
Inscrit le : Jeu 11 Sep 2008, 10:30
Post le : Jeu 11 Sep 2008, 16:40   Citer 

cool tout tes programme je les est test y marche bien !!

 Adresse email Haut de page Bas de page 
 
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 782
Inscrit le : Mer 18 Ao 2004, 22:13
Post le : Jeu 11 Sep 2008, 18:34   Citer 


Citer : Didouille
j'ai le modle ti-82 (pas la stats)



Normal, la TI-82 ne gre pas les chanes de caractres... Oublie ce programme !

@+ Le Webmaster beer.gif

----------------------
Retrouver le site sur Facebook : http://www.facebook.com/tout82
 Adresse email Haut de page Bas de page 
 
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 782
Inscrit le : Mer 18 Ao 2004, 22:13
Post le : Jeu 11 Sep 2008, 18:38   Citer 


Citer : Eightech
Parce que j'ai copi ton programme sans aucune faute (j'ai vrifi plusieurs fois) et a m'envoie quand mme chaque fois une erreur : Domaine la ligne :

Output(A,1'">

Quelqu'un sait quel est le problme ? Merci d'avance winkle.gif



Le problme ne vient pas de toi, mais du dveloppeur du jeu ! Ouh... crazy.gif

@+ Le Webmaster beer.gif

----------------------
Retrouver le site sur Facebook : http://www.facebook.com/tout82
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une rponse Page: 1, ,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page gnre en 9 requtes
BlackOne par Grimmlink
 

Site hberg par Free Page sous licence creative commons Page valide par le W3C (XHTML 1.0 Transitional) Feuille de style valide par le W3C Flux RSS 2.0 valide Page tiquete par l'ICRA Page teste par Ocawa