Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse Page: 1, , ,      >>
Amateurs de rubick's cube et de casse tête,pour vous.
Auteur Message
Rézus
Avatar

Autorisation : Membre
Nb de messages : 861
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Jeu 03 Déc 2009, 18:51   Citer 

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



 Adresse email Haut de page Bas de page 
 
sypotu
Avatar

Autorisation : Membre
Nb de messages : 660
Inscrit le : Dim 13 Sep 2009, 8:27
Posté le : Jeu 03 Déc 2009, 22:03   Citer 

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

----------------------
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
Chat du site_________________Hebergeur pour vos .83p
 Adresse email Haut de page Bas de page 
 
Rézus
Avatar

Autorisation : Membre
Nb de messages : 861
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Jeu 10 Déc 2009, 20:54   Citer 

Ok merci.

 Adresse email Haut de page Bas de page 
 
sypotu
Avatar

Autorisation : Membre
Nb de messages : 660
Inscrit le : Dim 13 Sep 2009, 8:27
Posté le : Ven 11 Déc 2009, 16:00   Citer 

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

En tout cas le jeu est super !!! bigmouth.gif trés fluide ! original ! et ça fait bien réfléchir !!! loupe.gif

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 happy.gif

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

----------------------
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
Chat du site_________________Hebergeur pour vos .83p
 Adresse email Haut de page Bas de page 
 
Rézus
Avatar

Autorisation : Membre
Nb de messages : 861
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Ven 11 Déc 2009, 19:36   Citer 

Merci bigmouth.gif
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).

 Adresse email Haut de page Bas de page 
 
dysto
Avatar

Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58
Posté le : Ven 11 Déc 2009, 19:53   Citer 

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

 Adresse email Haut de page Bas de page 
 
Rézus
Avatar

Autorisation : Membre
Nb de messages : 861
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Sam 12 Déc 2009, 21:31   Citer 

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 ?

 Adresse email Haut de page Bas de page 
 
dysto
Avatar

Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58
Posté le : Sam 12 Déc 2009, 22:24   Citer 

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

 Adresse email Haut de page Bas de page 
 
Rézus
Avatar

Autorisation : Membre
Nb de messages : 861
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Dim 13 Déc 2009, 13:29   Citer 

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 bigmouth.gif

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 ?

 Adresse email Haut de page Bas de page 
 
Yami Shadow
Invité
Posté le : Mer 20 Jan 2010, 20:19   Citer 

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

  Haut de page Bas de page 
 
darkmory
Avatar

Autorisation : Membre
Nb de messages : 131
Inscrit le : Jeu 07 Jan 2010, 22:13
Posté le : Mer 20 Jan 2010, 20:35   Citer 

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
 Adresse email Haut de page Bas de page 
 
Yami Shadow
Invité
Posté le : Mer 20 Jan 2010, 20:40   Citer 

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

  Haut de page Bas de page 
 
darkmory
Avatar

Autorisation : Membre
Nb de messages : 131
Inscrit le : Jeu 07 Jan 2010, 22:13
Posté le : Mer 20 Jan 2010, 21:22   Citer 

oui glasses.gif

----------------------
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
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Tagpower



Autorisation : Membre
Nb de messages : 3
Inscrit le : Mer 13 Jan 2010, 16:11
Posté le : Mer 20 Jan 2010, 22:03   Citer 

Salut, on dirait que je suis pas le seul hordien sur le site bigmouth.gif
Mon pseudo c'est Tagpower, je suis en coa avec un pote de mon lycée happy.gif

 Adresse email Haut de page Bas de page 
 
Yami Shadow
Invité
Posté le : Jeu 21 Jan 2010, 9:34   Citer 

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 ?

  Haut de page Bas de page 
 
sypotu
Avatar

Autorisation : Membre
Nb de messages : 660
Inscrit le : Dim 13 Sep 2009, 8:27
Posté le : Jeu 21 Jan 2010, 9:46   Citer 

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
Chat du site_________________Hebergeur pour vos .83p
 Adresse email Haut de page Bas de page 
 
Rézus
Avatar

Autorisation : Membre
Nb de messages : 861
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Jeu 21 Jan 2010, 19:17   Citer 

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.

 Adresse email Haut de page Bas de page 
 
Yami Shadow
Invité
Posté le : Sam 23 Jan 2010, 14:31   Citer 

Merci pour vos reponce

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

  Haut de page Bas de page 
 
sypotu
Avatar

Autorisation : Membre
Nb de messages : 660
Inscrit le : Dim 13 Sep 2009, 8:27
Posté le : Sam 23 Jan 2010, 15:38   Citer 

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
Chat du site_________________Hebergeur pour vos .83p
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
-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 


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

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse Page: 1, , ,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa