Forum

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

Basket ( 322 octets ) - Page 1 / 2

FulliZing le 06/04/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 happy.gif (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.

++
florian le 25/09/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 le 26/09/2008 à 20:17
Il faut mettre le signe inférieur où égal.

Sangohan38
Antoine le 03/10/2008 à 20:11
Le panier se retrouve en bas est ce normal?
Ratuss le 03/10/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)

+
Antoine le 03/10/2008 à 22:10
Je ne sais pas quoi mettre comme valeur !
Ratuss le 03/10/2008 à 22:22
Ben c'est à toi de tester.

Prends des valeurs grandes au début (pas trop grandes hein ? minied.gif ), 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)

+
Antoine le 04/10/2008 à 09:47
Pourrait tu m'aider a entrer les lignes?
Ratuss le 04/10/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+
gandalf le 01/03/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 le 02/03/2009 à 23:01
C'était juste une erreur de copie de ma part ( j'avais mis le Lbl 2 avant EffEcr ).
scorpion le 21/02/2010 à 17:24
bon jeu
minied.gif
Altair le 21/09/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 le 21/09/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² le 18/01/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 angry.gif , 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! happy.gif
metallica le 19/01/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.
f/x=x² le 21/01/2011 à 08:40
Oups, t'as raison minied.gif
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 glasses.gif
metallica le 22/01/2011 à 09:00
De rien winkle.gif
bapt29 le 24/09/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 le 25/09/2011 à 00:31
Indique le type d'erreur que la calculatrice signale !!!
si erreur argumment : probablement un problème de virgules.
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.