Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
je reposte amelioration et autre pour race
Auteur Message
leton2111



Autorisation : Membre
Nb de messages : 9
Inscrit le : Jeu 07 Oct 2010, 19:14
Posté le : Lun 18 Oct 2010, 19:06   Citer 

ce jeu proviendrai de ce forum mais moi je l'ai eu par mon frère mer ci de votre compréhensions

voila



Code
:7üT
:ClrHome
:6üA:8üI:10üY
:ClrList L†
:Tüdim L†
:Ansüdim L…
:Fill(0,L…
:For(X,1,T
:6üL†(X
:Disp "/////] [/////
:End
:Output(1,8,"V
:For(X,0,ý^9
:getKeyüK
:If K=24:I-1üI
:If K=26:I+1üI
:A-1+int 3randüA
:If A=1:2üA
:If A=11:10üA
:AüL†(T
:Disp "
:Output(8,1,X
:Output(T,1,"////////////////
:Output(T,A,"] [
:Output(1,I,"V
:If rand<X/300
:Then
:A+int 4rand+1
:Output(T,Ans,"Á
:0.01Ans+L†(TüL†(T
:End
:int L†(1
:If I÷Ans or Iù5+Ans or I=100fPart L†(1
:Goto 0
:SortA(L…,L†
:End:Lbl 0
:Output(1,I,"X
:Output(8,8,"GAME OVER
:Pause :ClrHome
:ClrList L…,L†
:Output(1,1,"



voila j'ai trois defi:

j'essai 1:::: de pouvoir accelerer le jeu (la voiture qui va plus vite)

entre autre que le ,v, va plus vite vers le bas

2:::: un peu plus compliqué : faire en sorte que le terrain fasse ca
\\\\\\\vvvv\\\\\\\\\\\
\\\\\\vvvv\\\\\\\\\\\\
\\\\\vvvv\\\\\\\\\\\\\
\\\\vvvv\\\\\\\\\\\\\\
\\\vvvv\\\\\\\\\\\\\\\
\\vvvv\\\\\\\\\\\\\\\\
\vvvv\\\\\\\\\\\\\\\\\
vvvv\\\\\\\\\\\\\\\\\\
vvv\\\\\\\\\\\\\\\\\\v
vv\\\\\\\\\\\\\\\\\\vv
v\\\\\\\\\\\\\\\\\\vvv
\\\\\\\\\\\\\\\\\\vvvv
\\\\\\\\\\\\\\\\\vvvv\
\\\\\\\\\\\\\\\\vvvv\\

le terrain passe de gauche a droite et le v de même

d'habitude le terrain reste dans l’écran allant de gauche a droite de manière aléatoire avec une case d'ecart

ca passe d'un coté a l'autre !
comme ca

\\\vvvv\\\\\\\\\\\\\\\
\\vvvv\\\\\\\\\\\\\\\\
\vvvv\\\\\\\\\\\\\\\\\
\\vvvv\\\\\\\\\\\\\\\\
\\\vvvv\\\\\\\\\\\\\\\
\\\\vvvv\\\\\\\\\\\\\\
\\\\\vvvv\\\\\\\\\\\\\
\\\\\\vvvv\\\\\\\\\\\\
\\\\\\\vvvv\\\\\\\\\\\
\\\\\\vvvv\\\\\\\\\\\\
\\\\\vvvv\\\\\\\\\\\\\
\\\\vvvv\\\\\\\\\\\\\\
\\\\\vvvv\\\\\\\\\\\\\

3:::: et un dernier défi : faire un menu activant ou désactivant la fonction precedente (le gauche droite /ou/ droite gauche)


__________________

-----menu!!
1:activer-(g/d)
2:désactiver-(g/d)
__________________

 Adresse email Haut de page Bas de page 
 
leton2111
Invité
Posté le : Jeu 21 Oct 2010, 12:10   Citer 

personne ne sait ?

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 21 Oct 2010, 22:09   Citer 

Dans le sujet verrouillé par sangohan38, j'avais apporté un élément de réponse.
Hélas une partie du programme reste difficilement compréhensible.

EDIT : J'ai trouvé ! Il y avait une incohérence.
Il semble bien que le programme vienne du forum comme je l'ai dit dans un des nombreux sujets ou ce programme a été posté.
Dans celui que je pensais connaître, la voie de circulation est large de 4 cases. Dans celui que tu nous communiques quelqu'un a modifié l'affichage sans modifier la ligne d'avant goto0.

Je vais reporter la réponse de l'autre sujet et apporter un complément.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 22 Oct 2010, 0:18   Citer 

Le programme donne ceci.

Code
7üT
ClrHome
6üA:7üI:10üY
ClrList L†
Tüdim(L†
Ansüdim(L…
Fill(0,L…
For(X,1,T
6üL†(X
Disp "/////] [/////
End
Output(1,7,"V
For(X,0,ý^(9
getKeyüK
If K=24:I-1üI
If K=26:I+1üI
A-1+int(3randüA
If I=0:16üI
If I=17:1üI
If A=0:16üA
If A=17:1üA
AüL†(T
Disp "
Output(8,1,X
Output(T,1,"////////////////
Output(T,A,"]
Output(T,A+1-16(A+1>16)," "
Output(T,A+2-16(A+2>16),"[
Output(1,I,"V
L†(1
If Ans+1-I-16(Ans=16)
Goto 0
SortA(L…,L†
End:Lbl 0
Output(1,I,"X
Output(8,8,"GAME OVER
Pause :ClrHome
ClrList L…,L†
Output(1,1,"


Edit: J'ai apporté une correction.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
leton2111
Invité
Posté le : Sam 23 Oct 2010, 11:27   Citer 

ca repond a quelle question la 1 2 ou 3?

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
leton 2111
Invité
Posté le : Mer 27 Oct 2010, 19:21   Citer 

personne pour repondre ? meme pas comment l'accelerer

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 27 Oct 2010, 22:44   Citer 

Le programme original était déjà optimal.
Mon amélioration ajoûte seulement la possibilité de passer d'un coté à l'autre.
D'ailleurs, j'ai trouvé un bug. Je vais tenter de le corriger.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa