un veritable casse brique en basic |
Auteur |
Message |
pitilolo
Autorisation : Membre
Nb de messages : 23
Inscrit le : Dim 25 Oct 2009, 10:31
|
Posté le : Lun 26 Oct 2009, 11:31
|
|
|
voila c'est encore moi
je vient d'ameliorer le pong et j'en ai fait un casse-brique
(il n'y a qu'une brique ,qui s'affiche aléatoirement quand on la detruit, materialisée par quatre points)
on deplace la raquette avec les quatres fleches
on met le jeu en pause avec la touche [entrer]
et on quitte le jeux avec [annul]
taille : 684 0ctets
fait avec le graph
je le trouve assez rapide pour un jeux en basic
dites moi ce que vous en pensez
Code | Lbl 3
0->U
0->V
0->W
0->J
0->T
Effecr
Disp ""," CASSE-BRIQUE
Disp ""
Disp "CHOIX DU NIVEAU
Disp "COMPRIS ENTRE","1 ET 5
Input Z
Effdessin
0->Xmin
0->Ymin
94->Xmax
62->Ymax
Ligne(0,62,94,62
Ligne(94,0,94,62
0->A
While A!=93
1+A->A
Pt-Off(A,0
End
41->A
Z+1->C
Z+1->B
Pt-On(B,C
0->F
Z->D
Z->E
Pt-On(A,F
Pt-On(A+12,F
0->S
Lbl 5
Pt-Off(U,V
Pt-Off(U,W
Pt-Off(J,V
Pt-Off(J,W
ent(NbrAléat*85+1)->U
ent(NbrAléat*53+1)->V
U+7->J
V+7->W
S+Z->S
Pt-On(U,V
Pt-On(U,W
Pt-On(J,V
Pt-On(J,W
Lbl 1
0->[le o barré = théta] il faut taper [alpha] + [3]
codeTouche->[théta]
if [théta]!= 0 != veut dir est différent de , c le = barré
Then
if [théta]=25
Then
Pt-Off(A,F
Pt-Off(A+12,F
F+Z->F
Pt-On(A,F
Pt-On(A+12,F
End
if [théta]=34
Then
Pt-Off(A,F
Pt-Off(A+12,F
F-Z->F
Pt-On(A,F
Pt-On(A+12,F
End
if [théta]=24
Then
Pt-Off(A,F
Pt-Off(A+12,F
A-6->A
Pt-On(A,F
Pt-On(A+12,F
End
if [théta]=25
Then
Pt-Off(A,F
Pt-Off(A+12,F
A+6->A
Pt-On(A,F
Pt-On(A+12,F
End
if [théta]=105
Pause
if [théta]=45
Stop
End
Pt-Off(P,Q
B->P
c->Q
B+D->B
C+E->C
Pt-On(B,C
if C>=61 >= signifie est superieur ou egal à
-Z->E c'est le moin de la negativité situé sous le 3 [(-)]
if B>=93
-Z->D
if C=F+1 et B>=A et B<=A+12
Z->E
if B<=1
Z->D
if B>=U et C>=V et B<=J et C<=W
Goto 5
if C<0
Goto 2
Goto 1
Lbl 2
EffEcr
Output (3,4,"TON SCORE:
Output (5,2,S
Pause
EffEcr
Goto 3 |
|
|
|
|
loulou96
Invité
|
Posté le : Ven 23 Mar 2012, 20:05
|
|
|
bonjour le programme m'indique une erreur a if C>=61
que puis je faire pour réparer l'erreur
|
|
|
|
tapenad
Autorisation : Membre
Nb de messages : 225
Inscrit le : Jeu 17 Nov 2011, 13:20
|
Posté le : Ven 23 Mar 2012, 20:10
|
|
|
tu as bien mis If C SUPERIEUR OU EGALE à 61 et non pas > puis = ?
sinon es tu sur que C a une valeur?
---------------------- L’erreur est humaine, mais pour provoquer une vraie catastrophe, il faut un ordinateur.
je suis premier!!!
je m'aime. |
|
|
|
lolo69
Invité
|
Posté le : Ven 23 Mar 2012, 20:11
|
|
|
bonjour je n'arrive pas a deplacer la barre comment arranger se probleme
merci d'avance
|
|
|
|
loulou96
Invité
|
Posté le : Ven 23 Mar 2012, 20:12
|
|
|
merci de la reponce j'avai pas compri
|
|
|
|
tapenad
Autorisation : Membre
Nb de messages : 225
Inscrit le : Jeu 17 Nov 2011, 13:20
|
Posté le : Ven 23 Mar 2012, 20:13
|
|
|
verifie au niveau de If theta= machin et de la ligne avec le codetouche
---------------------- L’erreur est humaine, mais pour provoquer une vraie catastrophe, il faut un ordinateur.
je suis premier!!!
je m'aime. |
|
|
|
loulou96
Invité
|
Posté le : Ven 23 Mar 2012, 20:16
|
|
|
non je lai bien recopier
|
|
|
|
lolo69
Invité
|
Posté le : Ven 23 Mar 2012, 20:23
|
|
|
jai bien verifier je l'ai bien recopier
|
|
|
|
Aegitru
Invité
|
Posté le : Dim 13 Mai 2012, 22:26
|
|
|
c'est quoi "effdessin" sur ti 82 stats.fr svp?
|
|
|
|
tapenad
Autorisation : Membre
Nb de messages : 225
Inscrit le : Jeu 17 Nov 2011, 13:20
|
Posté le : Lun 14 Mai 2012, 17:37
|
|
|
seconde prgm et tu le vois
---------------------- L’erreur est humaine, mais pour provoquer une vraie catastrophe, il faut un ordinateur.
je suis premier!!!
je m'aime. |
|
|
|
tomboul
Autorisation : Membre
Nb de messages : 10
Inscrit le : Dim 20 Mai 2012, 1:59
|
Posté le : Dim 20 Mai 2012, 2:03
|
|
|
bravo, pour ce type de machine c'est du basique de chez "basique"
et c'est très rapide, car on n'affiche que des points. J'ai des petites remarques :
- Il y a une erreur sur le test de [téta] pour la flèche droite à 26, elle est testée deux fois à 25.
- Il y a aussi une alternative à l'effacement de la ligne du bas avec l'instruction :
:axexNAff (n'affiche pas les axes en mode graphique)
- Il manque la paroi verticale gauche :ligne(0,0,0,62)
- Pour tracer des lignes horizontales ou verticalse sur tout l'écran tu as les instructions :
:horizontale y
:verticale x
J'ai modifié le prg pour afficher un petit pavé pour le mur et une petite ligne pour la raquette, du coup c'est un peu plus lent ....
|
|
|
|
Google_AdSense
|
Publicité
|
|
|
|
|
help^^
Invité
|
Posté le : Mer 06 Jui 2012, 18:24
|
|
|
bonjour excuser moi mais je ne comprend pas le fonctionnement des codes que faut il faire pour avoir ces programmes dans ma calculette
merci d'avance
|
|
|
|
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mer 06 Jui 2012, 18:36
|
|
|
-allumer ta ti
-appuyer sur la touche prgm, puis gauche puis entrer
-saisir un nom de nouveau programme puis valider
-écrire le code en te servant des caractères de ton clavier ainsi qu'en appuyant une fois de plus sur la touche prgm ou d'autres touches de menus
-pour quitter l'édition du programme, appuyer sur 2nde puis suppr
-pour éditer de nouveau un programme, appuyer sur prgm puis droite puis choisir parmi la liste
-pour jouer, appuyer sur prgm puis choisir parmi la liste.
---------------------- 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 |
|
|
|
Persalteas
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Mer 06 Jui 2012, 20:26
|
|
|
Si tu ne sais pas où trouver une commande dans les menus de la TI, consulte cette page pour connaitre les combinaisons de touches pour les trouver:
http://tiemulation.kegtux.org/TIBasic.htm
(page un peu longue a charger)
|
|
|
|