Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Amateurs de rubick's cube et de casse tête,pour vous.

Page: 1, 2, 3, 4 >>

Amateurs de rubick's cube et de casse tête,pour vous.

Auteur

Message

Rézus

Autorisation : Membre
Nb de messages : 853
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Jeu 03 Déc 2009, 18:51

Ce programme reprend le principe du rubick's cube,sauf que c'est un carré qu'il faut reconstituer dans l'ordre de l'alphabet avec le A toujours en haut à gauche.
Vous avez le choix entre des carrés de 3 longueurs différentes.

Contrôles:
[2nd]:changer de côté
[f(x )]:Activer le chrono et le compteur de coups
[entrer]:arrêter la partie,si vous êtes en mode chrono,vos performances s'afficheront

Si la flèche est sous le carré:
Gauche:déplacer la flèche vers la gauche
Droite:déplacer à droite
Haut:déplacer la colonne sous laquelle se trouve la flèche vers le haut
Bas:déplacer la colonne vers le bas.

Si la flèche est à gauche du carré:
Haut:monter
Bas:descendre
Gauche:déplacer la ligne vers la gauche.
Droite:déplacer la ligne vers la droite.

Un petit lien:http://www.mediafire.com/?kmozwmvf1z5

Et les 1766 octets de code:

Code

:SauveBDG 0
:EffVar Chaine1
:EffVar [A]
:EffDessin:CoordRect:QuadOff:AxesOff
:0->Xmin:94->Xmax:0->Ymax:-62->Ymin
:"ABCDEFGHIJKLMNOPQRSTUVWXY"->Chaine1
:Lbl A
:EffEcr
:EffDessin
:Menu("-----RUBICK-----","3*3",1,"4*4",2,"5*5",3,"QUITTER",Q
:Lbl 1
:3->A:2->F:4->G
:Goto B
:Lbl 2
:4->A:1->F:4->G
:Goto B
:Lbl 3
:5->A:1->F:3->G
:Lbl B
:Output(1,1,"RUBICK:PAR REZUS
:Output(2,1,"----------------
:Output(5,4,"CHARGEMENT
:Output(6,1,"----------------
:Output(8,1,"----------------
:For(C,1,16
:Output(7,C,"=
:End
:{A,A}->dim([A]
:Output(7,1,"OOOOOOOOOOOOOOOO
:1->¤
:For(C,0,A-1
:For(Z,1,A
:¤->[A](C+1,Z
:-(-31.5+7A/2-7C)->E
:If A=4
:-(-31+7A/2-7C)->E
:42.5-7A/2+7Z->D
:If A=4
:42-7A/2+7Z->D
:sous-Chaine(Chaine1,¤,1->Chaine2
:Texte(E,D,sous-Chaine(Chaine1,¤,1
:¤+1->¤
:End
:End
:D-7Z+14->D
:0->I:0->J:0->¤:0->P:0->T:0->Z
:Lbl C
:If ¤=2
:T+Z->T
:If ¤=1
:2->¤
:Texte(-J,I,"
:D->X:-E-7->Y
:Lbl C¤
:For(C,0,9E99
:X->I:Y->J
:codeTouch->K
:X-7(K=24)+7(K=26->X
:X+7A(X<D)-7A(X>D+7A-7->X
:Texte(-J,I," 3 espaces
:Texte(-Y,X,"^
:If K=25
:Goto C1
:If K=34
:Goto C2
:If K=21
:Goto D
:If K=11
:1->¤
:If K=105
:Goto E
:If ¤=1
:Goto C
:End
:Lbl C1
:If ¤=2
:T+Z->T
:If ¤=2
:P+1->P
:[A](1,partEnt(X/7-G->N
:For(Z,2,A
:[A](Z,partEnt(X/7-G->[A](Z-1,partEnt(X/7-G
:Texte(-Y+7Z-7A-14,X,sous-Chaine(Chaine1,[A](Z,partEnt(X/7-G)),1
:End
:N->[A](A,partEnt(X/7-G
:Texte(-Y-7,X,sous-Chaine(Chaine1,[A](A,partEnt(X/7-G)),1
:Goto C¤
:Lbl C2
:If ¤=2
:T+Z->T
:If ¤=2
:P+1->P
:[A](A,partEnt(X/7-G->N
:For(Z,A-1,1,-1
:[A](Z,partEnt(X/7-G->[A](Z+1,partEnt(X/7-G
:Texte(-Y-7A+7Z,X,sous-Chaine(Chaine1,[A](Z,partEnt(X/7-G)),1
:End
:N->[A](1,partEnt(X/7-G
:Texte(-Y-7A,X,sous-Chaine(Chaine1,[A](1,partEnt(X/7-G)),1
:Goto C¤
:Lbl D
:If ¤=2
:T+Z->T
:If ¤=1
:2->¤
:Texte(-J,I,"
:-E+7A-7->Y:D-7->X
:Lbl D¤
:For(C,0,9E99
:X->I:Y->J
:codeTouch->K
:Y-7(K=34)+7(K=25->Y
:Y-7A(Y>-E+7A-7)+7A(Y<-E->Y
:Texte(-J,I," 3 espaces
:Texte(-Y,X,">
:If K=24
:Goto D1
:If K=26
:Goto D2
:If K=21
:Goto C
:If K=11
:1->¤
:If K=105
:Goto E
:If ¤=1
:Goto D
:End
:Lbl D1
:If ¤=2
:T+Z->T
:If ¤=2
:P+1->P
:[A](partEnt(-Y/7)-F,1->N
:For(Z,2,A
:[A](partEnt(-Y/7)-F,Z->[A](partEnt(-Y/7)-F,Z-1
:Texte(-Y,X+7Z-7,sous-Chaine(Chaine1,[A](partEnt(-Y/7)-F,Z-1),1
:End
:N->[A](partEnt(-Y/7)-F,A
:Texte(-Y,X+7A,sous-Chaine(Chaine1,[A](partEnt(-Y/7)-F,A),1
:Goto D¤
:Lbl D2
:If ¤=2
:T+Z->T
:If ¤=2
:P+1->P
:[A](partEnt(-Y/7)-F,A->N
:For(Z,A-1,1,-1
:[A](partEnt(-Y/7)-F,Z->[A](partEnt(-Y/7)-F,Z+1
:Texte(-Y,X+7Z+7,sous-Chaine(Chaine1,[A](partEnt(-Y/7)-F,Z),1
:End
:N->[A](partEnt(-Y/7)-F,1
:Texte(-Y,X+7,sous-Chaine(Chaine1,[A](partEnt(-Y/7)-F,1),1
:Goto D¤
:Lbl E
:If ¤ø2
:Goto A
:EffEcr
:Output(1,1,"RUBICK:PAR REZUS
:Output(2,1,"----------------
:Output(3,5,"RESULATS
:Output(4,1,"----------------
:Output(5,6,"TEMPS:
:Output(6,1,T
:Output(7,6,"COUPS:
:Output(8,1,P
:Pause
:Goto A
:Lbl Q
:EffDessin
:EffEcr
:RappelBDG 0
:EffVar [A]
:EffVar BDG0
:EffVar Chaine1
:Output(1,1,"

sypotu

Autorisation : Membre
Nb de messages : 655
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Jeu 03 Déc 2009, 22:03

je le teste dés que j'ai un moment

----------------------
Ti-83+.fr
Passe en 1ère S

Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p

Rézus

Autorisation : Membre
Nb de messages : 853
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Jeu 10 Déc 2009, 20:54

Ok merci.

sypotu

Autorisation : Membre
Nb de messages : 655
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Ven 11 Déc 2009, 16:00

J'ai testé la version du lien et je n'est pas eun de pb !

En tout cas le jeu est super !!!

trés fluide ! original ! et ça fait bien réfléchir !!!

Juste tu devrais faire un truc qui de renvoit direct au résultat quand tu as finit, que le carré apparaisent déja mélangé serait pas mal aussi mais bon c'est plus dur

En tout cas c'est super je le recommande à tous ceux qui aiment réfléchir et mêmes aux autres

Rézus

Autorisation : Membre
Nb de messages : 853
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Ven 11 Déc 2009, 19:36

Merci

j'y réfléchirais peut-être,mais c'est pas sur.Ce qu'il me faut c'est un bon grô programme a faire pendant les vacances parce que là je programmes plus trop.
J'ai pensé a une adaptation de Hordes (un jeu de motion twin.pour ceux qui connaissent pas,vous tapez Hordes dans google et c'est dans les premiers résultats).

dysto

Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58

Posté le : Ven 11 Déc 2009, 19:53

Oooh tu joue à hordes ??? C'est quoi ton pseudo ???

Rézus

Autorisation : Membre
Nb de messages : 853
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Sam 12 Déc 2009, 21:31

Tataanikk =D
Enfin ça fait presque un an que j'ai pas joué,avec le 56K il me faut 5 minutes pour charger les pages donc ça me prends trop de temps.
Et toi,c'est quoi ton pseudo ?

dysto

Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58

Posté le : Sam 12 Déc 2009, 22:24

dysto bien sur ! ^^
Je suis un des admins d'une méta de 38 personnes ^^ !
On s'amuse comme des foufous !

Rézus

Autorisation : Membre
Nb de messages : 853
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Dim 13 Déc 2009, 13:29

Tu m'étonnes.Si t'as un traell dans ta méta,dis lui bonjours de ma part et si ya des drogues qui disparaissent souvent cherche pas c'est lui

Bon à part ça j'hésite entre faire hordes ou un jeu de survie:
-a bord d'un bateau
-ou a bord d'un sous-marin ou d'un vaisseau spatial,ce qui est plus dure...

Vous préférez quoi ?

Yami Shadow
Invité

Posté le : Mer 20 Jan 2010, 20:19

Salut

je cherche le signe ¤ mais je le trouve pas sur ma Stats.fr

pourriez vous me dire comment avoir ce signe ?

merci d'avance

darkmory

Autorisation : Membre
Nb de messages : 131
Inscrit le : Jeu 07 Jan 2010, 22:13

Posté le : Mer 20 Jan 2010, 20:35

il s'agit de thêta

----------------------
chuck norris peut jouer au tout dernier prince of persia sur une calto
chuck norris peut ecrire tres vite et tres bien avec une psp
Cours de programmation via le fofo ici

Yami Shadow
Invité

Posté le : Mer 20 Jan 2010, 20:40

Tetra, c'est bien le zero barré ? sur le chiffre 3 ?

darkmory

Autorisation : Membre
Nb de messages : 131
Inscrit le : Jeu 07 Jan 2010, 22:13

Posté le : Mer 20 Jan 2010, 21:22

oui

----------------------
chuck norris peut jouer au tout dernier prince of persia sur une calto
chuck norris peut ecrire tres vite et tres bien avec une psp
Cours de programmation via le fofo ici

Tagpower

Autorisation : Membre
Nb de messages : 3
Inscrit le : Mer 13 Jan 2010, 16:11

Posté le : Mer 20 Jan 2010, 22:03

Salut, on dirait que je suis pas le seul hordien sur le site

Mon pseudo c'est Tagpower, je suis en coa avec un pote de mon lycée

Yami Shadow
Invité

Posté le : Jeu 21 Jan 2010, 9:34

j'ai 2 question :

For(C,0,9û99

On trouve ou le ù ? ( car j'ai essayer avec le U et le petit u , mais le programme m'indique une erreur )

:If ¤ø2

On met 2 fois le signe thêta ?

sypotu

Autorisation : Membre
Nb de messages : 655
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Jeu 21 Jan 2010, 9:46

le û c'est un petit E que tu trouveras en faisant [2nde] puis [ , ]. Il veut dire ×10^

là c'est If [theta][différent de]2

----------------------
Ti-83+.fr
Passe en 1ère S

Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p

Rézus

Autorisation : Membre
Nb de messages : 853
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Jeu 21 Jan 2010, 19:17

Ah,ce û m'avait échappé.Je l'ai corrigé.Si vous en voyez d'autres,dites-le svp.
Et moi chui chef d'une coa aussi.On est 4 copains du lycée,mais yen a plus qu'un qui joue.

Yami Shadow
Invité

Posté le : Sam 23 Jan 2010, 14:31

Merci pour vos reponce

mais sur ma calculette, les carré sont deja dans l'ordre au demarrage du jeux ....

sypotu

Autorisation : Membre
Nb de messages : 655
Inscrit le : Dim 13 Sep 2009, 8:27

Posté le : Sam 23 Jan 2010, 15:38

c'est normal, à toi de les mélanger puis de les reconstituer !

----------------------
Ti-83+.fr
Passe en 1ère S

Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p

-Coco-

Autorisation : Membre
Nb de messages : 149
Inscrit le : Sam 28 Nov 2009, 16:09

Posté le : Lun 01 Fév 2010, 20:28

Citer : Rézus

Code

:SauveBDG 0
:EffVar Chaine1
:EffVar [A]
:EffDessin:CoordRect:QuadOff:AxesOff
:0->Xmin:94->Xmax:0->Ymax:-62->Ymin
:"ABCDEFGHIJKLMNOPQRSTUVWXY"->Chaine1
:Lbl A
:EffEcr
:EffDessin
:Menu("-----RUBICK-----","3*3",1,"4*4",2,"5*5",3,"QUITTER",Q
:Lbl 1
:3->A:2->F:4->G
:Goto B
:Lbl 2
:4->A:1->F:4->G
:Goto B
:Lbl 3
:5->A:1->F:3->G
:Lbl B
:Output(1,1,"RUBICK:PAR REZUS
:Output(2,1,"----------------
:Output(5,4,"CHARGEMENT
:Output(6,1,"----------------
:Output(8,1,"----------------
:For(C,1,16
:Output(7,C,"=
:End
:{A,A}->dim([A]
:Output(7,1,"OOOOOOOOOOOOOOOO
:1->¤
:For(C,0,A-1
:For(Z,1,A
:¤->[A](C+1,Z
:-(-31.5+7A/2-7C)->E
:If A=4
:-(-31+7A/2-7C)->E
:42.5-7A/2+7Z->D
:If A=4
:42-7A/2+7Z->D
:sous-Chaine(Chaine1,¤,1->Chaine2
ici => :Texte(E,D,sous-Chaine(Chaine1,¤,1 <== ici
:¤+1->¤
:End
:End
:D-7Z+14->D
:0->I:0->J:0->¤:0->P:0->T:0->Z
:Lbl C
:If ¤=2
:T+Z->T
:If ¤=1
:2->¤
:Texte(-J,I,"
:D->X:-E-7->Y
:Lbl C¤
:For(C,0,9E99
:X->I:Y->J
:codeTouch->K
:X-7(K=24)+7(K=26->X
:X+7A(X<D)-7A(X>D+7A-7->X
:Texte(-J,I," 3 espaces
:Texte(-Y,X,"^
:If K=25
:Goto C1
:If K=34
:Goto C2
:If K=21
:Goto D
:If K=11
:1->¤
:If K=105
:Goto E
:If ¤=1
:Goto C
:End
:Lbl C1
:If ¤=2
:T+Z->T
:If ¤=2
:P+1->P
:[A](1,partEnt(X/7-G->N
:For(Z,2,A
:[A](Z,partEnt(X/7-G->[A](Z-1,partEnt(X/7-G
:Texte(-Y+7Z-7A-14,X,sous-Chaine(Chaine1,[A](Z,partEnt(X/7-G)),1
:End
:N->[A](A,partEnt(X/7-G
:Texte(-Y-7,X,sous-Chaine(Chaine1,[A](A,partEnt(X/7-G)),1
:Goto C¤
:Lbl C2
:If ¤=2
:T+Z->T
:If ¤=2
:P+1->P
:[A](A,partEnt(X/7-G->N
:For(Z,A-1,1,-1
:[A](Z,partEnt(X/7-G->[A](Z+1,partEnt(X/7-G
:Texte(-Y-7A+7Z,X,sous-Chaine(Chaine1,[A](Z,partEnt(X/7-G)),1
:End
:N->[A](1,partEnt(X/7-G
:Texte(-Y-7A,X,sous-Chaine(Chaine1,[A](1,partEnt(X/7-G)),1
:Goto C¤
:Lbl D
:If ¤=2
:T+Z->T
:If ¤=1
:2->¤
:Texte(-J,I,"
:-E+7A-7->Y:D-7->X
:Lbl D¤
:For(C,0,9E99
:X->I:Y->J
:codeTouch->K
:Y-7(K=34)+7(K=25->Y
:Y-7A(Y>-E+7A-7)+7A(Y<-E->Y
:Texte(-J,I," 3 espaces
:Texte(-Y,X,">
:If K=24
:Goto D1
:If K=26
:Goto D2
:If K=21
:Goto C
:If K=11
:1->¤
:If K=105
:Goto E
:If ¤=1
:Goto D
:End
:Lbl D1
:If ¤=2
:T+Z->T
:If ¤=2
:P+1->P
:[A](partEnt(-Y/7)-F,1->N
:For(Z,2,A
:[A](partEnt(-Y/7)-F,Z->[A](partEnt(-Y/7)-F,Z-1
:Texte(-Y,X+7Z-7,sous-Chaine(Chaine1,[A](partEnt(-Y/7)-F,Z-1),1
:End
:N->[A](partEnt(-Y/7)-F,A
:Texte(-Y,X+7A,sous-Chaine(Chaine1,[A](partEnt(-Y/7)-F,A),1
:Goto D¤
:Lbl D2
:If ¤=2
:T+Z->T
:If ¤=2
:P+1->P
:[A](partEnt(-Y/7)-F,A->N
:For(Z,A-1,1,-1
:[A](partEnt(-Y/7)-F,Z->[A](partEnt(-Y/7)-F,Z+1
:Texte(-Y,X+7Z+7,sous-Chaine(Chaine1,[A](partEnt(-Y/7)-F,Z),1
:End
:N->[A](partEnt(-Y/7)-F,1
:Texte(-Y,X+7,sous-Chaine(Chaine1,[A](partEnt(-Y/7)-F,1),1
:Goto D¤
:Lbl E
:If ¤ø2
:Goto A
:EffEcr
:Output(1,1,"RUBICK:PAR REZUS
:Output(2,1,"----------------
:Output(3,5,"RESULATS
:Output(4,1,"----------------
:Output(5,6,"TEMPS:
:Output(6,1,T
:Output(7,6,"COUPS:
:Output(8,1,P
:Pause
:Goto A
:Lbl Q
:EffDessin
:EffEcr
:RappelBDG 0
:EffVar [A]
:EffVar BDG0
:EffVar Chaine1
:Output(1,1,"

Gargle Ouargle! Trop dégouté!! j'ai passé quasi 1h30 a tout recopier sur ma calto et j'ai une Err. Domaine à la ligne : (voir code)
J'ai tenté de revoir je vois vraiment pas ce qui cloche!!
Et quand je regarde E et D je remarque que ce sont des nombres négatifs tels que E = -28 et D = -10

Page: 1, 2, 3, 4 >>

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Amateurs de rubick's cube et de casse tête,pour vous.

Flux RSS