Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> fléchettes

fléchettes

Auteur

Message

Persalteas

Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Lun 28 Jui 2010, 9:30

voilà un prog de fléchettes pondu par moi ce WE, en seulement 650 octets.
à la 3e ligne remplacez le [Ex] par le symbole qui se trouve en [var][5][>][enter].

Code

:Full
:ClrHome
:" [Ex]----->"->Str1
:Output(3,1,"****************"
:Output(4,1,"***FLECHETTES***"
:Output(5,1,"****************"
:For(Y,1,8)
:If Y=3:6->Y
:For(K,1,7
:Output(Y,K,Str1
:69!
:End
:End
:Pause
:-4->A:-6.5->B
:0->S:1->T
:1->C:1.1->D
:ClrDraw
:-5->Ymin
:5->Ymax
:7.5->Xmax
:-7.5->Xmin
:For(K,1,5
:Circle(0,0,K
:End
:Line(6,3,7.5,3
:Line(6,1,7.5,1
:Line(6,1,6,5
:
:Lbl 1
:Text(3,87,S
:Text(15,87,T
:
:Repeat getKey=105
:Line(-7.5,A-C,-6,A-C,0
:Line(B-D,-5,B-D,-4,0
:Line(-7.5,A,-6,A
:Line(B,-5,B,-4
:If abs(A)>=5:-C->C
:If abs(B)>=7.5:-D->D
:A+C->A
:B+D->B
:End
:T+1->T
:A-C->A
:B-D->B
:Line(-7.5,A,-6,A,0
:Line(B,-5,B,-4,0
:Pt-On(B,A,3
:iPart([racine carée]A²+B²)->K
:S+(5-K)->S
:A+C->A
:B+D->B
:If T=/=16:Goto 1
:Text(3,87,S
:Horizontal -1
:For(K,-.8,1,0.1
:Line(Xmin,K,Xmax,K,0
:End
:Horizontal 1
:Text(28,20,"<--SCORE: ",S," -->"
:Pause
:ClrDraw
:ClrHome
:DelVar ADelVar BDelVar CDelVar DDelVar SDelVar KDelVar TDelVar XDelVar YDelVar Str1
:Output(1,1,"

voilà voilà, testez le bien.

ILUS

Autorisation : Membre
Nb de messages : 30
Inscrit le : Mer 09 Déc 2009, 13:45

Posté le : Lun 28 Jui 2010, 9:40

Salut,
Ton jeu a leur sympa, je le recopie des que possible !!!!
A la fin tu peux me dir a quoi sere "DelVar" !!!

Persalteas

Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Lun 28 Jui 2010, 9:43

ça efface les variables qu'on a utilisé dans le prog, et donc ça bousille moins de mémoire une fois que le prog est fini.

sauf, bien sur, si tu arrêtes le prog avec [On].

ILUS

Autorisation : Membre
Nb de messages : 30
Inscrit le : Mer 09 Déc 2009, 13:45

Posté le : Lun 28 Jui 2010, 9:58

OK merci Je le serai pour la prochaine fois!!
J'ai une ti-82 stats.fr doncune francaise peut tu me dire quel est la commande "Full" en francais ?!!!

linkakro

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

Posté le : Lun 28 Jui 2010, 10:04

Dans le menu Mode. C'est la commande "Plein". C'est par opposition aux commande "G-T" (séparation verticale de l'écran en graphe/table) et "Horiz" (séparation horizontale graphe/écran-de-base)
Note que j'ai donné les noms en français.

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

ILUS

Autorisation : Membre
Nb de messages : 30
Inscrit le : Mer 09 Déc 2009, 13:45

Posté le : Lun 28 Jui 2010, 10:59

Ok merci !!!
Ymin
Ymax
Xmin
Xmax
Je ne sais pas se que ce mais je supose que sais pour les contoure de l'image pour ne pa que les poissons sorte de l'ecran !!!
Ege résond ?

Persalteas

Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Lun 28 Jui 2010, 11:01

c'est effectivement, ça, c'est ce que tu changes quand tu vas dans le menu [fenêtre].

pour les utiliser dans un prog, fais [var][1] et sélectionne.

ILUS

Autorisation : Membre
Nb de messages : 30
Inscrit le : Mer 09 Déc 2009, 13:45

Posté le : Lun 28 Jui 2010, 11:23

OK cool avant je ne savais pas comment il fallait faire alors je metter des condition! lol! If Y=A and X=B alors .....

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> fléchettes

Page générée en 6 requêtes

Flux RSS