| 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 : 3293
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 : 1522
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 : 1522
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 : 1522
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
ú![](../images/char/<img src="./images/smileys/cupsmiley.gif" border="0" alt="cupsmiley.gif" title="cupsmiley.gif" />.png) 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 ).
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
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 : 835
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.
----------------------
 |
| |
|
| |
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 
----------------------
|
| |
|
| |
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 : 3738
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 |
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Dim 25 Sep 2011, 0:48
|
|
|
Ton erreur je pense que c'est soit une erreur de domaine et je te conseil de relire le début du programme voir si tu n'as pas fait une erreur soit une erreur de syntaxe car tu as utilisé le - du calcul au lieu du moins de la négativité (touche (- )).
Sangohan38
|
| |
|
| |
bapt29
Invité
|
Posté le : Dim 25 Sep 2011, 9:10
|
|
|
Merci c'était bien un problème de virgule
|
| |
|
| |
EDG
Invité
|
Posté le : Jeu 24 Sep 2015, 14:36
|
|
|
Bonjour, je cherche comment mettre pt-on mais je ne trouve pas
EDG
|
| |
|
| |
Mingerton
Autorisation : Membre
Nb de messages : 504
Inscrit le : Ven 07 Déc 2012, 20:09
|
Posté le : Jeu 24 Sep 2015, 16:55
|
|
|
Evite les doublons. Je t'ai répondu sur l'autre sujet sinon.
----------------------
Mes articles
Mes programmes en ligne (je termine peu de projets)
Guide traduction Algo-Basic, par Linkakro
Catalogue des fonctions 82/83/84 FR/EN |
| |
|
| |
