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,      >>
Squaro
Auteur Message
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Sam 21 Avr 2007, 13:32   Citer 

J'ai découvert il n'y as pas longtemps un jeux nommé Squaro.
Ce jeux est simple à programmer.
Voici les rêgles du squaro:http://www.squaro.fr/regles.php?PHPSESSID=99438c56d014aae24090190bd6afdcc7


Code
ClrDraw
ClrHome
For(A,23,73,10
Line(A,7,A,57
End
For(A,7,57,10
Line(23,A,73,A
End
For(B,7,57,10
For(A,23,73,10
Pt-On(A-1,B
Pt-On(A+1,B
Pt-On(A,B-1
Pt-On(A,B+1
Pt-On(A-1,B-1
Pt-On(A-1,B+1
Pt-On(A+1,B-1
Pt-On(A+1,B+1
Pt-Off(A,B
End
End
ClrList L1,L3
36->dim(L3
25->dim(L1
For(A,1,36
int(rand4->B
If B=3:1->L3(A
If B=1:0->L3(A
If B=2:1->L3(A
End
0->B
For(A,1,29
If A=6 or A=12 or A=18 or A=24:A+1->A
B+1->B
L3(A)+L3(A+1)+L3(A+6)+L3(A+7)->L1(B
End
36->dim(L5
L3->L5
ClrList L3
0->A
For(B,8,48,10
For(C,28,68,10
A+1->A
Text(B,C,L1(A
End
End
36->dim(L3
1->A
57->[THETA]
23->Z
10->T
Lbl A
Line(Z,61,Z,60
Line(19,[THETA],20,[THETA]
Line(Z,3,Z,4
Line(76,[THETA],77,[THETA]
Pt-Off(Z-T,61
Pt-Off(Z-T,60
Pt-Off(Z+T,61
Pt-Off(Z+T,60
Pt-Off(19,[THETA]-T
Pt-Off(20,[THETA]-T
Pt-Off(19,[THETA]+T
Pt-Off(20,[THETA]+T
Pt-Off(Z-T,3
Pt-Off(Z-T,4
Pt-Off(Z+T,3
Pt-Off(Z+T,4
Pt-Off(77,[THETA]-T
Pt-Off(76,[THETA]-T
Pt-Off(77,[THETA]+T
Pt-Off(76,[THETA]+T
getKey->K
If K=24 and Z[DIFFERENT DE]23:A-1->A
If K=24 and Z[DIFFERENT DE]23:Z-T->Z
If K=26 and Z[DIFFERENT DE]73:A+1->A
If K=26 and Z[DIFFERENT DE]73:Z+T->Z
If K=25 and A-6>0:A-6->A
If K=25 and [THETA][DIFFERENT DE]57:[THETA]+T->[THETA]
If K=34 and A+6÷36:A+6->A
If K=34 and [THETA][DIFFERENT DE]7:[THETA]-T->[THETA]
If K=105:Pt-Change(Z,[THETA]
If pxl-Test(62-[THETA],Z)=1:1->L3(A
If pxl-Test(62-[THETA],Z)=0:0->L3(A
If K=21:Goto C
If K=45:Goto B
0->B
Goto A
Lbl B
StorePic 3
ClrDraw
Goto 0
Lbl C
StorePic 3
For(G,1,36
If L3(G)[DIFFERENT DE]L5(G):Goto D
If G=36:Goto E
End
Goto E
Lbl D
ClrDraw
Text(25,18,"TON JEU CONTIENT
Text(37,26,"DES ERREURS.
Pause
ClrDraw
RecallPic 3
Goto A
Lbl E
ClrDraw
Text(29,13,"TA GRILLE EST JUSTE.
Pause
ClrDraw
Output(1,1,"   
Stop




Sangohan38

PS: Je compte améliorer l'interface.

----------------------
 Adresse email Haut de page Bas de page 
 
PMdej
Avatar

Autorisation : Membre
Nb de messages : 144
Inscrit le : Mer 07 Mar 2007, 19:10
Posté le : Sam 21 Avr 2007, 15:14   Citer 

personellement je trouve que ça a l'air pas mal !!!!!
godgrace.gif

----------------------
BIENVENUE DANS LE MONDE DE LA PROGRAMMATION
 Adresse email Haut de page Bas de page 
 
PMdej
Avatar

Autorisation : Membre
Nb de messages : 144
Inscrit le : Mer 07 Mar 2007, 19:10
Posté le : Sam 21 Avr 2007, 16:27   Citer 

Je l'ai recopié et il marche pas !!!!!!!! frozen.gif frozen.gif cupsmiley.gif ahh.gif ahh.gif cry.gif

godgrace.gif

----------------------
BIENVENUE DANS LE MONDE DE LA PROGRAMMATION
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Sam 21 Avr 2007, 19:22   Citer 

A oui, j'ai oublier de préciser qu'il faut faire:


Code
0->Xmin
94->Xmax
0->Ymin
62->Ymax
AxesOff
GridOff



Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
PMdej
Avatar

Autorisation : Membre
Nb de messages : 144
Inscrit le : Mer 07 Mar 2007, 19:10
Posté le : Sam 21 Avr 2007, 22:12   Citer 

ok je vais essayer je te donne la réponse dans 5 mn
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
godgrace.gif

----------------------
BIENVENUE DANS LE MONDE DE LA PROGRAMMATION
 Adresse email Haut de page Bas de page 
 
PMdej
Avatar

Autorisation : Membre
Nb de messages : 144
Inscrit le : Mer 07 Mar 2007, 19:10
Posté le : Sam 21 Avr 2007, 22:15   Citer 

ca met un quart d'heure avant de finir !!!!
je sais meme pas si ca se finit !!!!!!
godgrace.gif

----------------------
BIENVENUE DANS LE MONDE DE LA PROGRAMMATION
 Adresse email Haut de page Bas de page 
 
PMdej
Avatar

Autorisation : Membre
Nb de messages : 144
Inscrit le : Mer 07 Mar 2007, 19:10
Posté le : Sam 21 Avr 2007, 22:18   Citer 

bon il marche toujours pas !!!!!!!!
godgrace.gif
donc ça marche pas !!!!!
godgrace.gif

----------------------
BIENVENUE DANS LE MONDE DE LA PROGRAMMATION
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 22 Avr 2007, 11:06   Citer 

J'y ai jouer pendant pas mal de temps cette semaine donc je peut t'assurer que ça marche.
En quoi ça marche pas pour toi?

Sangohan38

PS: Tu peut éditer tes messages sinon, je vais être obligé de les supprimer/éditer à ta place.

----------------------
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Dim 22 Avr 2007, 17:47   Citer 

En fait il s'agit d'une sorte de démineur. cupsmiley.gif
Le jeu mache très bien sauf qu'il y a une erreur de label quand on appuie sur CLEAR. D'ailleurs à quoi sert d'appuyer sur cette touche ?

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 22 Avr 2007, 18:24   Citer 

Euh je sais plus.
Mais la c'est le jeux pas l'interface qui va avec et que je vais faire cette semaine.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Dim 22 Avr 2007, 21:27   Citer 

c'est prenant comme jeu !!!

 Adresse email Haut de page Bas de page 
 
PMdej
Avatar

Autorisation : Membre
Nb de messages : 144
Inscrit le : Mer 07 Mar 2007, 19:10
Posté le : Lun 23 Avr 2007, 21:48   Citer 

la bare tout a droite ne s'affiche pas !!!!!!!
godgrace.gif

----------------------
BIENVENUE DANS LE MONDE DE LA PROGRAMMATION
 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Mar 24 Avr 2007, 9:17   Citer 

Tu l'as mal tapé, moi il marche très bien.

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mar 24 Avr 2007, 12:58   Citer 

Voici une version améliorée de celui de Sangohan38, avec une grille de 7x5.
Il y a une erreur de label lorsqu'on appuie sur CLEAR , mais c'est normal.

Vibra


Code
0->Xmin
94->Xmax
0->Ymin
62->Ymax
AxesOff
GridOff
FnOff
ClrDraw
ClrHome
For(A,13,83,10
Line(A,7,A,57
End
For(A,7,57,10
Line(13,A,83,A
End
For(B,7,57,10
For(A,13,83,10
Pt-On(A-1,B
Pt-On(A+1,B
Pt-On(A,B-1
Pt-On(A,B+1
Pt-On(A-1,B-1
Pt-On(A-1,B+1
Pt-On(A+1,B-1
Pt-On(A+1,B+1
Pt-Off(A,B
End
End
ClrList L4,L5
36->dim(L5
25->dim(L4
For(A,1,48
int(rand1,99->L5(A)
End
0->B
For(A,1,39
If A=8 or A=16 or A=24 or A=32:A+1->A
B+1->B
L5(A)+L5(A+1)+L5(A+8)+L5(A+9)->L4(B
End
0->A
For(B,7,47,10
For(C,17,77,10
A+1->A
Text(B,C,L4(A
End
End
ClearList L4
48->dim(L4
1->A
57->[THETA]
13->Z
10->T
Lbl A
Line(Z,61,Z,60
Line(9,[THETA],10,[THETA]
Line(Z,3,Z,4
Line(86,[THETA],87,[THETA]
Line(Z-T,61,Z-T,60,0
Line(Z+T,61,Z+T,60,0
Line(9,[THETA]-T, 10,[THETA]-T,0
Line(9,[THETA]+T, 10,[THETA]+T
Line(Z-T,3, Z-T,4,0
Line(Z+T,3,Z+T,4,0
Line(87,[THETA]-T, 86,[THETA]-T,0
Line(87,[THETA]+T, 86,[THETA]+T,0
getKey->K
If K=24 and Z[DIFFERENT DE]13
Then
A-1->A
Z-T->Z
End
If K=26 and Z[DIFFERENT DE]83
Then
A+1->A
Z+T->Z
End
If K=25 and [THETA][DIFFERENT DE]57
Then
A-8->A
End
[THETA]+T->[THETA]
If K=34 and [THETA][DIFFERENT DE]7
Then
A+8->A
[THETA]-T->[THETA]
End
If K=105:Pt-Change(Z,[THETA]
If pxl-Test(62-[THETA],Z)=1:1->L4(A
If pxl-Test(62-[THETA],Z)=0:0->L4(A
If K=21:Goto C
If K=45:Goto B
0->B
Goto A
Lbl B
StorePic 3
ClrDraw
Goto 0
Lbl C
StorePic 3
For(G,1,48
If L3(G)[DIFFERENT DE]L5(G):Goto D
If G=48:Goto E
End
Goto E
Lbl D
ClrDraw
Text(25,18,"TON JEU CONTIENT
Text(37,26,"DES ERREURS.
Pause
ClrDraw
RecallPic 3
Goto A
Lbl E
ClrDraw
Text(29,13,"TA GRILLE EST JUSTE.
Pause
ClrDraw
Output(1,1,"   
Stop
 



----------------------
 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Mar 24 Avr 2007, 16:28   Citer 

Et mais c'est mon programme ça !! crazy.gif crazy.gif crazy.gif crazy.gif crazy.gif frozen.gif

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 25 Avr 2007, 13:50   Citer 

Je sais que c'est ton prog.
Mais je l'ai mis ici car en réalité, tu n'as que modifié légèrement mon prog.
De plus, j'ai mis ta signature en espèrant que les gens comprendrons.
Je vais donc la modifiée.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Mer 25 Avr 2007, 16:00   Citer 

Ok, désolé, j'avais pas vu.

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
PMdej
Avatar

Autorisation : Membre
Nb de messages : 144
Inscrit le : Mer 07 Mar 2007, 19:10
Posté le : Mer 25 Avr 2007, 21:53   Citer 

mais comment on fait pour faire vérifier la grille (du premier code)
???
godgrace.gif

----------------------
BIENVENUE DANS LE MONDE DE LA PROGRAMMATION
 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Jeu 26 Avr 2007, 11:51   Citer 

Pour faire vérifier la grille, t'appuies sur [2nd].

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
PMdej
Avatar

Autorisation : Membre
Nb de messages : 144
Inscrit le : Mer 07 Mar 2007, 19:10
Posté le : Jeu 26 Avr 2007, 21:35   Citer 

ok merci beaucoup je vais essayer !!!!!
godgrace.gif

----------------------
BIENVENUE DANS LE MONDE DE LA PROGRAMMATION
 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