Forum

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

Snake - Page 2 / 61

nujik le 22/10/2006 à 20:38
ok, merci ... a au fait, j'ai retrouver mon cable qui va avec ma calculatrice, tu pourrait me faire un ptit topo sur le p.82 et comment je fais pour pas avoir a recopier les prog a la main (ou si tu as un lien ou c'est expliquer un peu pres bien ? godgrace.gif )
Ratuss le 22/10/2006 à 20:42
T'as quoi comme genre de cable et comme genre de calcu ?
nujik le 22/10/2006 à 23:21
Ben la calcu c'est une ti 83+ et le cable, j'en ai aucune idée, tous se que je sais c'est qu'il va dans la culcu et dans l'ordi ^^ ...
Ratuss le 23/10/2006 à 06:55
C'est celui ci ??

Image manquante
Sangohan38 le 25/10/2006 à 19:47
OOOOh mon cable !

Tu télécharge Ti connect, tu branche ton cable a ta calcu et ton ordi, tu te débrouille sur Ti connect, tu recherche tes progs qui serons en .83p
Avec Ti graph link 83+ ANGLAIS, tu copie le prog sur Ti graph link 82.
Tu fait sauvegarder et si ça met une erreue tu cherche.

Sangohan38
Ratuss le 26/10/2006 à 08:42
Et Nujik, ce serait sympa que tu me dise quel cable t'as, parce que sache qu'avoir un cable ti pc c'est vraiment un precieux avantage (surtout au niveau des jeux).

Si ces modestes sreenshot peuvent te convaincre clown.gif





@+
titeufbig le 29/10/2006 à 12:16
toujours pas de version anglaise
Ratuss le 30/10/2006 à 08:49
Lol, bon puisque vous insistez promis je le fais aujourd'hui... minied.gif
Ratuss le 30/10/2006 à 16:44
Voila bigmouth.gif (vous avez vu j'ai pas menti clown.gif )

TOUT est la dedans :
http://www.new-uploader.com/?d=CC0066AC




Code
Pour ti 82 stat - 83 et 83+

Version 0.5 (600 octets)

:ClrDraw
:0=>Xmin
:94=>Xmax
:(-)62=>Ymin
:0=>Ymax
:AxesOff
:FnOff
:6=>A:8=>B:44=>C:77=>D:1=>E:2=>N:0=>O
:1=>dim(Liste6
:If .7349=fPart(Liste6(1:Liste6(1=>O
:ClrList Liste4
:ClrList Liste5
:99=>dim(Liste4
:99=>dim(Liste5
:For(ø,1,6,1.4
:Line(88,(-)iPart(ø),6,(-)iPart(ø)
:End
:Line(6,(-)57,88,(-)57
:Line(88,(-)56,88,(-)6
:Line(6,(-)6,6,(-)56
:Text(0,13," SCORE : 3
:Text(0,53," HIGH : ",iPart(O
:Lbl 5
:(-)8-5iPart(rand10=>I
:8+5iPart(rand16=>J
:If pxl-Test((-)I,J:Goto 5
:Line(J,I,J+2,I-2
:Line(J,I-2,J+2,I
:Goto 3
:Lbl 2
:6+50fPart((A+C)/50=>A
:8+80fPart((B+D)/80=>B
:If pxl-Test(A+2,B:Goto 4
:Text(A,B,"º
:Lbl 3
:round(1+NfPart(E/N),0=>E
:Text(Liste4(E),Liste5(E),"[4 espaces]
:A=>Liste4(E:B=>Liste5(E
:getKey=>K
:If K=0:Goto 2
:If D=72:Then
:If K=24:67=>D
:If K=26:77=>D
:If 1=abs(K-25:44=>C
:Goto 2:End
:If C[pas égal à]44:Goto 2
:If K=25:39=>C
:If K=34:49=>C
:If K=25 or K=34:72=>D
:Goto 2
:Lbl 4
:Text(A,B,"º
:Line(B+1,(-)A-3,B+2,(-)A-2
:If (-)I[pas égal à]A+2 or J[pas égal à]B or N=99:Goto Q
:N+1=>N
:Text(0,38,N+1
:Goto 5
:Lbl Q
:If N+1>O:N+1.7349=>Liste6(1
:Text(27,31,"GAME OVER
:Pause
:ClrHome
:Output(2,5,"SNAKE NN
:Output(3,3,"VERSION  0.5
:Output(5,5,"NOUFNOUF
:Output(6,5,"06/10/06



Version 1.0 (1200 octets)

:ClrDraw
:0=>Xmin
:94=>Xmax
:(-)62=>Ymin
:0=>Ymax
:AxesOff
:FnOff
:16=>A:18=>B:44=>C:77=>D:1=>E:2=>N:0=>O:.7349=>V
:7=>dim(Liste6
:1=>P
:Goto S
:Lbl R
:ClrHome:Disp "BLOQUE
:Pause
:Lbl S
:Menu("NIVEAU","",A,"",B,"",C,"",D,"",E,"",F,"",G
:Lbl E
:If 39>Liste6(4) or VøfPart(Liste6(4:Goto R
:5=>P:38=>B
:For(ø,23,68,5
:For(Z,13,16
:Line(ø,Z-ø,ø+3,Z-ø
:End
:End
:Goto A
:Lbl F
:If 39>Liste6(5) or VøfPart(Liste6(5:Goto R
:26=>A:6=>P
:For(ø,42,45
:Line(8,20-ø,86,20-ø
:Line(8,(-)ø,27,(-)ø
:Line(67,(-)ø,86,(-)ø
:Line(ø-14,(-)7,ø-14,(-)21
:Line(ø-14,(-)32,ø-14,(-)57
:Line(ø+21,(-)32,ø+21,(-)57
:Line(ø+21,(-)7,ø+21,(-)10
:End
:Goto A
:Lbl G
:If 39>Liste6(6) or VøfPart(Liste6(6:Goto R
:6=>A:7=>P
:For(ø,1,15
:13+5iPart(rand14=>I
:5iPart(rand8+3=>J
:For(Z,0,3
:Line(I,Z-J,I+3,Z-J
:End
:End
:Goto A
:Lbl C
:3=>P
:Lbl D
:If 39>Liste6(3-iPart(P/3)) ou VøfPart(Liste6(3-iPart(P/3:Goto R
:For(ø,7,10
:For(Z,0,45,45
:Line(8,(-)ø-Z,41,(-)ø-Z
:Line(53,(-)ø-Z,86,(-)ø-Z
:End
:For(Z,1,76,75
:Line(ø+Z,(-)11,ø+Z,(-)25
:Line(ø+Z,(-)37,ø+Z,(-)51
:End:End
:If P=3:Goto A
:3=>P
:Lbl B
:If 39>Liste6(P) or VøfPart(Liste6(P:Goto R
:For(ø,27,35
:Line(28,(-)ø,66,(-)ø
:End
:Line(32,(-)31,62,(-)31,0
:P+1=>P
:Lbl A
:If V=fPart(Liste6(P:Liste6(P=>O
:ClrList Liste4
:ClrList Liste5
:99=>dim(Liste4
:99=>dim(Liste5
:For(ø,1,6,1.4
:Line(88,(-)iPart(ø),6,(-)iPart(ø)
:End
:Line(6,(-)57,88,(-)57
:Line(88,(-)56,88,(-)6
:Line(6,(-)6,6,(-)56
:Text(0,13," SCORE : 3
:Text(0,53," HIGH : ",iPart(O
:Lbl 5
:(-)8-5iPart(rand10=>I
:8+5iPart(rand16=>J
:If pxl-Test((-)I,J:Goto 5
:Line(J,I,J+2,I-2
:Line(J,I-2,J+2,I
:Goto 3
:Lbl 2
:6+50fPart((A+C)/50=>A
:8+80fPart((B+D)/80=>B
:If pxl-Test(A+2,B:Goto 4
:Text(A,B,"º
:Lbl 3
:round(1+NfPart(E/N),0=>E
:Text(Liste4(E),Liste5(E),"[4 espaces]
:A=>Liste4(E:B=>Liste5(E
:getKey=>K
:If K=0:Goto 2
:If D=72:Then
:If K=24:67=>D
:If K=26:77=>D
:If 1=abs(K-25:44=>C
:Goto 2:End
:If C[pas égal à]44:Goto 2
:If K=25:39=>C
:If K=34:49=>C
:If K=25 or K=34:72=>D
:Goto 2
:Lbl 4
:Text(A,B,"º
:Line(B+1,(-)A-3,B+2,(-)A-2
:If (-)I[pas égal à]A+2 or J[pas égal à]B or N=99:Goto Q
:N+1=>N
:Text(0,38,N+1
:Goto 5
:Lbl Q
:If N+1>O:N+1+V=>Liste6(P
:Text(27,31,"GAME OVER
:Pause
:ClrHome
:Output(2,5,"SNAKE NN
:Output(3,3,"VERSION  1.0
:Output(5,5,"NOUFNOUF
:Output(6,5,"06/10/06


Code
Pour les 82 :

Version 0.5 (600 octets)

:ClrDraw
:0=>Xmin
:94=>Xmax
:(-)62=>Ymin
:0=>Ymax
:AxesOff
:FnOff
:6=>A:8=>B:44=>C:77=>D:1=>E:2=>N:0=>O
:1=>dim Liste6
:If .7349=fPart Liste6(1:Liste6(1=>O
:ClrList Liste4
:ClrList Liste5
:99=>dim Liste4
:99=>dim Liste5
:For(ø,1,6,1.4
:Line(88,(-)iPart ø,6,(-)iPart ø
:End
:Line(6,(-)57,88,(-)57
:Line(88,(-)56,88,(-)6
:Line(6,(-)6,6,(-)56
:Text(0,13," SCORE : 3
:Text(0,53," HIGH : ",iPart O
:Lbl 5
:(-)8-5iPart rand10=>I
:8+5iPart rand16=>J
:If pxl-Test((-)I,J:Goto 5
:Line(J,I,J+2,I-2
:Line(J,I-2,J+2,I
:Goto 3
:Lbl 2
:6+50fPart ((A+C)/50=>A
:8+80fPart ((B+D)/80=>B
:If pxl-Test(A+2,B:Goto 4
:Text(A,B,"º
:
:Lbl 3
:round(1+NfPart (E/N),0=>E
:Text(Liste4(E),Liste5(E),"[4 espaces]
:A=>Liste4(E:B=>Liste5(E
:getKey=>K
:If K=0:Goto 2
:If D=72:Then
:If K=24:67=>D
:If K=26:77=>D
:If 1=abs (K-25:44=>C
:Goto 2:End
:If C[pas égal à]44:Goto 2
:If K=25:39=>C
:If K=34:49=>C
:If K=25 or K=34:72=>D
:Goto 2
:Lbl 4
:Text(A,B,"º
:Line(B+1,(-)A-3,B+2,(-)A-2
:If (-)I[pas égal à]A+2 or J[pas égal à]B or N=99:Goto Q
:N+1=>N
:Text(0,38,N+1
:Goto 5
:Lbl Q
:If N+1>O:N+1.7349=>Liste61
:Text(27,31,"GAME OVER
:Pause
:ClrHome
:Output(2,5,"SNAKE NN
:Output(3,3,"VERSION  0.5
:Output(5,5,"NOUFNOUF
:Output(6,5,"06/10/06



Version 1.0 (1200 octets)

:ClrDraw
:0=>Xmin
:94=>Xmax
:(-)62=>Ymin
:0=>Ymax
:AxesOff
:FnOff
:16=>A:18=>B:44=>C:77=>D:1=>E:2=>N:0=>O:.7349=>V
:7=>dim Liste6
:1=>P
:Goto S
:Lbl R
:ClrHome:Disp "BLOQUE
:Pause
:Lbl S
:Menu("NIVEAU","",A,"",B,"",C,"",D,"",E,"",F,"",G
:Lbl E
:If 39>Liste6(4) or VøfPart Liste6(4:Goto R
:5=>P:38=>B
:For(ø,23,68,5
:For(Z,13,16
:Line(ø,Z-ø,ø+3,Z-ø
:End
:End
:Goto A
:Lbl F
:If 39>Liste6(5) or VøfPart Liste6(5:Goto R
:26=>A:6=>P
:For(ø,42,45
:Line(8,20-ø,86,20-ø
:Line(8,(-)ø,27,(-)ø
:Line(67,(-)ø,86,(-)ø
:Line(ø-14,(-)7,ø-14,(-)21
:Line(ø-14,(-)32,ø-14,(-)57
:Line(ø+21,(-)32,ø+21,(-)57
:Line(ø+21,(-)7,ø+21,(-)10
:End
:Goto A
:Lbl G
:If 39>Liste6(6) or VøfPart Liste6(6:Goto R
:6=>A:7=>P
:For(ø,1,15
:13+5iPart rand14=>I
:5iPart rand8+3=>J
:For(Z,0,3
:Line(I,Z-J,I+3,Z-J
:End
:End
:Goto A
:Lbl C
:3=>P
:Lbl D
:If 39>Liste6(3-iPart (P/3)) or VøfPart (Liste6(3-iPart (P/3:Goto R
:For(ø,7,10
:For(Z,0,45,45
:Line(8,(-)ø-Z,41,(-)ø-Z
:Line(53,(-)ø-Z,86,(-)ø-Z
:End
:For(Z,1,76,75
:Line(ø+Z,(-)11,ø+Z,(-)25
:Line(ø+Z,(-)37,ø+Z,(-)51
:End:End
:If P=3:Goto A
:3=>P
:Lbl B
:If 39>Liste6(P) or VøfPart Liste6(P:Goto R
:For(ø,27,35
:Line(28,(-)ø,66,(-)ø
:End
:Line(32,(-)31,62,(-)31,0
:P+1=>P
:Lbl A
:If V=fPart Liste6(P:Liste6(P=>O
:ClrList Liste4
:ClrList Liste5
:99=>dim Liste4
:99=>dim Liste5
:For(ø,1,6,1.4
:Line(88,(-)iPart ø,6,(-)iPart ø
:End
:Line(6,(-)57,88,(-)57
:Line(88,(-)56,88,(-)6
:Line(6,(-)6,6,(-)56
:Text(0,13," SCORE : 3
:Text(0,53," HIGH : ",iPart O
:Lbl 5
:(-)8-5iPart rand10=>I
:8+5iPart rand16=>J
:If pxl-Test((-)I,J:Goto 5
:Line(J,I,J+2,I-2
:Line(J,I-2,J+2,I
:Goto 3
:Lbl 2
:6+50fPart ((A+C)/50=>A
:8+80fPart ((B+D)/80=>B
:If pxl-Test(A+2,B:Goto 4
:Text(A,B,"º
:
:Lbl 3
:round(1+NfPart (E/N),0=>E
:Text(Liste4(E),Liste5(E),"[4 espaces]
:A=>Liste4(E:B=>Liste5(E
:getKey=>K
:If K=0:Goto 2
:If D=72:Then
:If K=24:67=>D
:If K=26:77=>D
:If 1=abs (K-25:44=>C
:Goto 2:End
:If C[pas égal à]44:Goto 2
:If K=25:39=>C
:If K=34:49=>C
:If K=25 or K=34:72=>D
:Goto 2
:Lbl 4
:Text(A,B,"º
:Line(B+1,(-)A-3,B+2,(-)A-2
:If (-)I[pas égal à]A+2 or J[pas égal à]B or N=99:Goto Q
:N+1=>N
:Text(0,38,N+1
:Goto 5
:Lbl Q
:If N+1>O:N+1+V=>Liste6(P
:Text(27,31,"GAME OVER
:Pause
:ClrHome
:Output(2,5,"SNAKE NN
:Output(3,3,"VERSION  1.0
:Output(5,5,"NOUFNOUF
:Output(6,5,"06/10/06
Wolves le 30/10/2006 à 19:37
Bon moi je vais essayé de faire un snake avec 100 niveau c'est un defi que on sait lancé au lycée alors si quelqu'un peu m'aider se serai sympa par contre question memoire je pense que sa va etre chaut
Ratuss le 31/10/2006 à 10:10
Citation
par contre question memoire je pense que sa va etre chaut


A priori non, faut juste avoir bcp d'imagination lol...
morstelder le 02/11/2006 à 17:31
Beua code mais le probleme c'est que le snake ne se supprime pas (il s'alongit mais se deplace pas)
Pour les 100 niveau avec de la memoire (sisi) fait le sur le graph , fait un dessin (stylo et ptchange) et met dans ton prog des rappelimg avec une variable qui prend le score en compte :
Code

niveau=>1
while 1
if score>100
then
niveau+1=>niveau
/*+++ tres gros if avec pour chaque valeur de niveau un rappel image*/

Donc bcp de niveau==bcp de ram godgrace.gif
Sangohan38 le 02/11/2006 à 19:35
Rien compris. godgrace.gif
Si tu veu pas qu'il s'efface, j'ai déja fait ce snake.

Sangohan38
Ratuss le 03/11/2006 à 11:36
1 image =700 octet
100 image = 70 ko


vaut mieux faire avec des ligne( si tu veux mon avis ...
Sangohan38 le 03/11/2006 à 14:27
De plus, la 82 ne peut avoir que 6 images.

Sangohan38
Ratuss le 03/11/2006 à 15:19
oui et la ti 82 stat n'en possede 10 en stock alors les 100 levels merci bien lol crazy.gif
Wolves le 03/11/2006 à 16:27
je n'en sais rien moi
Sangohan38 le 03/11/2006 à 16:32
Ba cherche, le brouillon est un bon ami...

Sangohan38
Ratuss le 05/11/2006 à 20:05
Tu fais avec des ligne( c'est le + simple logiquement...

@+
FulliZing le 09/11/2006 à 15:18
désolé mais pour le code snake, la calculette me dit "erreur:domaine" à la ligne

Code
EffDessin
0=>Xmin
94=>Xmax
(-)62=>Ymin
0=>Ymax
AxesNAff
FonctNAff
6=>A:8=>B:44=>C:77=>D:1=>E:2=>N:0=>O
1=>dim(Liste6
If .7349=partDéc(Liste6(1:Liste6(1=>O
EffListe Liste4
EffListe Liste5
99=>dim(Liste4
99=>dim(Liste5
For(ø,1,6,1.4
Ligne(88,(-)ent(ø),6,(-)ent(ø)
End
Ligne(6,(-)57,88,(-)57
Ligne(88,(-)56,88,(-)6
Ligne(6,(-)6,6,(-)56
Texte(0,13," SCORE : 3
Texte(0,53," HIGH : ",ent(O
Lbl 5
(-)8-5ent(NbrAléat10=>I
8+5ent(NbrAléat16=>J
If pxl-Test((-)I,J:Goto 5
Ligne(J,I,J+2,I-2
Ligne(J,I-2,J+2,I
Goto 3
Lbl 2
6+50partDéc((A+C)/50=>A
8+80partDéc((B+D)/80=>B
[couleur=#FF0000]If pxl-Test(A+2,B[là]:Goto 4 [b]<=== ICI [/b][/couleur]
Texte(A,B,"º
Lbl 3
arrondi(1+NpartDéc(E/N),0=>E
Texte(Liste4(E),Liste5(E),"
A=>Liste4(E:B=>Liste5(E
codeTouch(=>K
If K=0:Goto 2
If D=72:Then
If K=24:67=>D
If K=26:77=>D
If 1=abs(K-25:44=>C
Goto 2:End
If C[pas égal à]44:Goto 2
If K=25:39=>C
If K=34:49=>C
If K=25 ou K=34:72=>D
Goto 2
Lbl 4
Texte(A,B,"º
Ligne(B+1,(-)A-3,B+2,(-)A-2
If (-)I[pas égal à]A+2 ou J[pas égal à]B ou N=99:Goto Q
N+1=>N
Texte(0,38,N+1
Goto 5
Lbl Q
If N+1>O:N+1.7349=>Liste6(1
Texte(27,31,"GAME OVER
Pause
EffEcr
Output(2,5,"SNAKE NN
Output(3,3,"VERSION  1.0
Output(5,5,"NOUFNOUF
Output(6,5,"06/10/06
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.