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
(2) Sudoku
Auteur Message
Belvar



Autorisation : Membre
Nb de messages : 57
Inscrit le : Lun 09 Fév 2009, 15:46
Posté le : Lun 09 Fév 2009, 16:25   Citer 

Bon, la liste étant classée en inverse de l'ordre alphabétique, c'est le Sudoku qui vient en 2ème (ce qui est pas logique, je sais).

Non, ce n'est pas un générateur de grille de sudoku, c'est juste un programme qui permet de jouer une une grille de sudoku qui aura été entrée dans la calculatrice

Donc on se déplace dans la grille avec les flèches directionnelles et on appuie sur entrée pour mettre un chffre, là le curseur change et on peut entrer un ciffre entre 1 et 9 ou effacer le chiffre avec "annul".
On ne peut pas changer les chiffres mis au départ sur la grille et on peut sauvegarder une grille ou quitter le jeu avec le bouton "mode"

Il n'y a pour l'instant qu'une seule grille de faite (j'en avait fait une 2ème mais j'ai remarquée que je l'avais mal recopiée XD).

/!\ Programme gourmand ! Le programme Sudoku fait 1 186 octets et le programme de de Grille (avec 1 grille seulement fait... 647 octets vu que j'ai pas trouvé d'autres moyens plus court de rentrer une grille dans la calculatrice)

Donc voilà les codes :

SUDOKU :ClrHome
Output(2,3,"SUDOKU
Output(4,3,"PAR BELVAR
Output(6,3,"PRESS ENTER
Pause
Lbl 66:Menu("SUDOKU","NOUVELLE GRILLE",21,"CONTINUER",22,"AIDE",23,"QUITTER",24
Lbl 24:Stop
Lbl 22:Menu("CONTINUER","PARTIE 1",31,"PARTIE 2",32,"PARTIE 3",33,"RETOUR",66
Lbl 31:RecallPic Pic5:[E]->[A]:Goto 77
Lbl 32:RecallPic Pic6:[F]->[A]:Goto 77
Lbl 33:RecallPic Pic7:[G]->[A]:Goto 77
Lbl 23:Output(1,2,"ENTER : PLACER UN CHIFFRE ANNUL : EFFACER MODE : MENU
Pause :Goto 66
Lbl 21
ClrDraw
0->Xmin:9->Xmax
–9->Ymin:0->Ymax
1->X:3->Y:1->S:1->T:0->U:2->V
For((teta),0,9
Horizontal –(teta)
Vertical (teta)
End
Vertical 2.9
Vertical 5.9
Horizontal –2.9
Horizontal –5.8
1->Y
prgmGRILLE
Lbl 77
Text(Y,X,"!
Lbl 11
0->K
getKey->K
If K=24:Goto G
If K=25:Goto H
If K=26:Goto D
If K=34:Goto B
If K=22:Goto M
If K=105:Goto 99
Goto 11
Lbl 99
If [A](T,S)=1:Goto 11
Goto E
Lbl G:S-1->S
Goto X
Lbl H:T-1->T
Goto Y
Lbl D:S+1->S
Goto X
Lbl B:T+1->T
Goto Y
Lbl X
Text(Y,X,"
If S=0:9->S
If S=10:1->S
If S=1:1->X
If S=2:11->X
If S=3:22->X
If S=4:32->X
If S=5:43->X
If S=6:53->X
If S=7:64->X
If S=8:74->X
If S=9:85->X
Text(Y,X,"!
Goto 11
Lbl Y
Text(Y,X,"
If T=0:9->T
If T=10:1->T
If T=1:1->Y
If T=2:8->Y
If T=3:14->Y
If T=4:22->Y
If T=5:28->Y
If T=6:34->Y
If T=7:42->Y
If T=8:49->Y
If T=9:56->Y
Text(Y,X,"!
Goto 11
Lbl E
0->K
0->N
Lbl 16
Text(Y,X,":
getKey->K
If K(different de)0:Goto 44
Lbl 44
If K=92:1->N
If K=93:2->N
If K=94:3->N
If K=82:4->N
If K=83:5->N
If K=84:6->N
If K=72:7->N
If K=73:8->N
If K=74:9->N
If K=45:Goto 0
If K=105:Goto 77
If N=0:Goto 16
Text(Y,X+2,N
Goto 77
Lbl 0:Text(Y,X," "
Goto 77
Lbl M
Menu("SAUVEGARDER","PARTIE 1",41,"PARTIE 2",42,"PARTIE 3",43,"RETOUR",1,"QUITTER LE JEU",Q
Lbl 41:StorePic Pic5:[A]->[E]
Goto 11
Lbl 42:StorePic Pic6:[A]->[F]
Goto 11
Lbl 43:StorePic Pic7:[A]->[G]
Goto 11
Lbl Q:ClrHome
Output(1,1,"
[/code]

GRILLE (a nommer absolument GRILLE):
[code]{9,9}→dim([A]
Fill(0,[A]
Menu("GRILLE","GRILLE 1",1
Lbl 1
Text(1,3,"9
Text(8,3,"4
Text(22,3,"3
Text(28,3,"1
Text(8,13,"5
Text(14,13,"1
Text(49,13,"2
Text(56,13,"8
Text(8,24,"6
Text(22,24,"8
Text(42,24,"4
Text(8,34,"1
Text(14,34,"7
Text(34,34,"5
Text(49,34,"9
Text(14,45,"3
Text(42,45,"1
Text(8,55,"9
Text(22,55,"1
Text(42,55,"6
Text(49,55,"8
Text(14,66,"4
Text(34,66,"8
Text(49,66,"6
Text(1,76,"8
Text(8,76,"2
Text(42,76,"3
Text(49,76,"7
Text(28,87,"2
Text(34,87,"3
Text(49,87,"1
Text(56,87,"9
1->[A](1,1
1->[A](2,1
1->[A](4,1
1->[A](5,1
1->[A](2,2
1->[A](3,2
1->[A](8,2
1->[A](9,2
1->[A](2,3
1->[A](4,3
1->[A](7,3
1->[A](2,4
1->[A](3,4
1->[A](6,4
1->[A](8,4
1->[A](3,5
1->[A](7,5
1->[A](2,6
1->[A](4,6
1->[A](7,6
1->[A](8,6
1->[A](3,7
1->[A](6,7
1->[A](8,7
1->[A](1,8
1->[A](2,8
1->[A](7,8
1->[A](8,8
1->[A](5,9
1->[A](6,9
1->[A](8,9
1->[A](9,9
Goto 45
Lbl 45
[/code]

Et les 2 fichiers en .83p (j'ai un cable de TI 83)

http://www.megaupload.com/?d=0HTPFIOP

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  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