Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Basket ( 322 octets )

Page: 1, 2 >>

Basket ( 322 octets )

Auteur

Message

FulliZing

Autorisation : Membre
Nb de messages : 65
Inscrit le : Dim 05 Nov 2006, 13:01

Posté le : Ven 06 Avr 2007, 11:55

Comme le titre de ce sujets l'indique, je vous dévoile mon jeu de basket.
J'ai imité le mouvement d'une parabole.
Tu rentres une FORCE puis une HAUTEUR et tu vois ton ballon se déplacer.
Sois tu marques sois tu rates, on te demandera si tu veux recommencer, 1 pour oui et 0 pour non.
Le jeu a été testé donc ilfonctionne, si il y a une erreur, je l'ai faite dans le recopiage.
Prévisualisation :

Code

----------------------------|
|
| |
. -|---| |
. || |
. || |
|| |
----------------------------|

j'ai fais ce que j'ai pu pour la prévisualisation, dans le jeu c'est mieux dessiner

(sur le graph bien sûr)

Code :

Code

Lbl 0
Effecr
EffDessin
0->D:0->E
entAleat(-45,0->D
entAleat(-45,0->E
Ligne(44,0,44,-50)
Ligne(50,6,50,-50)
Ligne(50,6,30,6)
Ligne(44,0,30,0)
Ligne(30,15,30,-5)
Ligne(23,3,30,3)
Cercle(26,0,4)
Pt-On(D,E)
Pause
Input "FORCE?",F
Input "HAUTEUR?",A
Lbl 1
A-6->A
D+F/4->D
E+A/10->E
Pt-On(D,E)
For(Q,1,200)
End
If 22<=D et D<=30 et -3<=E et E<=4
Goto 2
If 50<=D ou E<=-50
Goto 3
Goto 1
Lbl 2
EffEcr
Ouptut(4,6,"PANIER!
Lbl 5
Pause
Input "RECOMMENCER?",R
If R=1:Goto 0
Stop
Lbl 3
Output(4.6."RATE!
Goto 5

Au bout de 5/10 essais, vous aurez à peu près compris les doses à mettre pour la FORCE et la HAUTEUR.

++

----------------------
Quand on cherche on trouve...

florian
Invité

Posté le : Jeu 25 Sep 2008, 18:27

il me met une erreur sur le = dans ce code

Code

If 22<=D et D<=30 et -3<=E et E<=4

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Ven 26 Sep 2008, 20:17

Il faut mettre le signe inférieur où égal.

Sangohan38

Antoine
Invité

Posté le : Ven 03 Oct 2008, 20:11

Le panier se retrouve en bas est ce normal?

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Ven 03 Oct 2008, 22:07

Salut,

c'est un bug du jeu.

(tu peux toujours essayer de modifier les valeurs de Xmax/Xmin Ymax/Ymin pour avoir un résultat convenable)

+

----------------------
--- LISTE DES JEUX POUR TI ---

Antoine
Invité

Posté le : Ven 03 Oct 2008, 22:10

Je ne sais pas quoi mettre comme valeur !

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Ven 03 Oct 2008, 22:22

Ben c'est à toi de tester.

Prends des valeurs grandes au début (pas trop grandes hein ?

), et en suite tu réduis un peu jusqu'à ce que ce soit bien cadré.

(ensuite il faudra que tu rentres quelques lignes dans le programme si tu veux pas tout recommencer à chaque fois quand t'utilises le graph)

+

----------------------
--- LISTE DES JEUX POUR TI ---

Antoine
Invité

Posté le : Sam 04 Oct 2008, 9:47

Pourrait tu m'aider a entrer les lignes?

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Sam 04 Oct 2008, 14:39

En gros il faut que tu ais un truc comme ca :

Code

Lbl 0
ClrHome
ClrDraw
AxesOff
ú

50ü

Xmin
70ü

Xmax
ú

50ü

Ymin
50ü

Ymax
randInt(ú

45,0ü

D
randInt(ú

45,0ü

E
Line(44,0,44,ú

50)
Line(50,6,50,ú

50)
Line(50,6,30,6)
Line(44,0,30,0)
Line(30,15,30,ú

5)
Line(23,3,30,3)
Circle(26,0,4)
Pt-On(D,E)
Pause
Input "FORCE?",F
Input "HAUTEUR?",A
Lbl 1
A-6ü

A
D+F/4ü

D
E+A/10ü

E
Pt-On(D,E)
For(Q,1,200)
End
If 22÷

D and D÷

30 and ú

3÷

E and E÷

4
Goto 2
If 50÷

D or E÷

50
Goto 3
Goto 1
Lbl 2
ClrHome
Output(4,6,"PANIER!
Lbl 5
Pause
Input "RECOMMENCER?",R
If R=1:Goto 0
Stop
Lbl 3
Output(4,6,"RATE!
Goto 5

a+

----------------------
--- LISTE DES JEUX POUR TI ---

gandalf
Invité

Posté le : Dim 01 Mar 2009, 15:06

Je suis sur une Ti 84 + et j'ai recopié sans erreur apparente le programme ( merci ratuss d'avoir r'ajouter AxesNaff ) mais le panier et la trajectoire du tir n'apparaissent pas ( la Ti n'affiche aucune erreur ).
Est ce qu'il faut un truc en plus sur la 84 + ou serai est ce plus une mauvaise interprétation des signes, de ma part ?

J'en profite pour dire que le site et le forum sont super.

gandalf
Invité

Posté le : Lun 02 Mar 2009, 23:01

C'était juste une erreur de copie de ma part ( j'avais mis le Lbl 2 avant EffEcr ).

scorpion

Autorisation : Membre
Nb de messages : 41
Inscrit le : Sam 20 Fév 2010, 17:50

Posté le : Dim 21 Fév 2010, 17:24

bon jeu

Altair
Invité

Posté le : Mar 21 Sep 2010, 19:09

ma calto affiche une erreur de syntaxe a la fléche sto de la 5ème ligne ainsi que la 6éme

merci d'avance

Rézus

Autorisation : Membre
Nb de messages : 853
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Mar 21 Sep 2010, 19:18

Comment as-tu tapé ta flèche et comment as-tu tapé Xmin et Xmax ?
Et quelle erreur est indiquée par la calculatrice ?

f/x=x²
Invité

Posté le : Mar 18 Jan 2011, 15:57

Salut, j'ai ajoutéune p'tite modif' à ton programme:
à la place du truc à la fin où il faut appuyer sur 1 ou 0 ce qui est assez chiant

, j'ai mis un menu! (bon maintenant ca prend un peu plus de place mais c'est toujours mieux un menu)
Remplace:

Code

Input "RECOMMENCER?",R
If R=1:Goto 0
Stop

Par:

Code

Menu("FINI!","RECOMMENCER",R,"QUITTER",Q
Lbl Q
Disp "AU REVOIR!"
Stop
Lbl R:Goto 0
Stop

Voili voilou, et de rien!

metallica

Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14

Posté le : Mer 19 Jan 2011, 14:15

Pourquoi avoir mis un Stop à la fin du programme ?
Je te conseil de l'enlever, il ne sert qu'à prendre plus de place car il ne sera jamais atteint à cause du "Goto" qui le précède.

----------------------

Tutoriel sur l'Axe Parser !

f/x=x²
Invité

Posté le : Ven 21 Jan 2011, 8:40

Oups, t'as raison

Ca donne donc:

Code

Lbl 0
ClrHome
ClrDraw
AxesOff
ú

50ü

Xmin
70ü

Xmax
ú

50ü

Ymin
50ü

Ymax
randInt(ú

45,0ü

D
randInt(ú

45,0ü

E
Line(44,0,44,ú

50)
Line(50,6,50,ú

50)
Line(50,6,30,6)
Line(44,0,30,0)
Line(30,15,30,ú

5)
Line(23,3,30,3)
Circle(26,0,4)
Pt-On(D,E)
Pause
Input "FORCE?",F
Input "HAUTEUR?",A
Lbl 1
A-6ü

A
D+F/4ü

D
E+A/10ü

E
Pt-On(D,E)
For(Q,1,200)
End
If 22÷

D and D÷

30 and ú

3÷

E and E÷

4
Goto 2
If 50÷

D or E÷

50
Goto 3
Goto 1
Lbl 2
ClrHome
Output(4,6,"PANIER!
Lbl 5
Pause
Menu("FINI!","RECOMMENCER",R,"QUITTER",Q
Lbl Q
Disp "AU REVOIR!"
Stop
Lbl R:Goto 0
Lbl 3
Output(4,6,"RATE!
Goto 5

Merci metallica

metallica

Autorisation : Membre
Nb de messages : 108
Inscrit le : Lun 28 Jui 2010, 11:14

Posté le : Sam 22 Jan 2011, 9:00

De rien

----------------------

Tutoriel sur l'Axe Parser !

bapt29
Invité

Posté le : Sam 24 Sep 2011, 22:20

Ma calculatrice me dit qu'il y a une erreur sur ) dans :Ligne(44,0,44,-50)
Pouvez vous me dire pourquoi ?

linkakro

Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Dim 25 Sep 2011, 0:31

Indique le type d'erreur que la calculatrice signale !!!
si erreur argumment : probablement un problème de virgules.

----------------------
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

Page: 1, 2 >>

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Basket ( 322 octets )

Flux RSS