Forum

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

Un veritable casse brique en basic

pitilolo le 26/10/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 le 23/03/2012 à 20:05
bonjour le programme m'indique une erreur a if C>=61
que puis je faire pour réparer l'erreur
tapenad le 23/03/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?
lolo69 le 23/03/2012 à 20:11
bonjour je n'arrive pas a deplacer la barre comment arranger se probleme
merci d'avance
loulou96 le 23/03/2012 à 20:12
merci de la reponce j'avai pas compri
tapenad le 23/03/2012 à 20:13
verifie au niveau de If theta= machin et de la ligne avec le codetouche
loulou96 le 23/03/2012 à 20:16
non je lai bien recopier
lolo69 le 23/03/2012 à 20:23
jai bien verifier je l'ai bien recopier
Aegitru le 13/05/2012 à 22:26
c'est quoi "effdessin" sur ti 82 stats.fr svp?
tapenad le 14/05/2012 à 17:37
seconde prgm et tu le vois
tomboul le 20/05/2012 à 02: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 ....
help^^ le 06/06/2012 à 18:24
crazy.gif 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 le 06/06/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.
Persalteas le 06/06/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://web.archive.org/web/202[...]rg//TIBasic.htm

(page un peu longue a charger)
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.