Un solveur de Sudoku

Programmation d'applications complexes
Répondre
scaraber
Messages : 362
Inscription : ven. 15/juil./2005 17:32

Message par scaraber »

Salut
deja je te dit bravo ...
je trouve ce log vraiment sympa.
voici une fonction suplementaire pour le programme, je n'est pa spus la tester pour manque de moyen je n'est pas uen impriment avec moi en vacances c deja beau davoir internet et un Pc...

Voici comment faire

tout en haut il fauut ajouter dans les enumeration

Code : Tout sélectionner

  #Button_Print
apres il faut modifier la place des bouton

Code : Tout sélectionner

      ; les boutons 
      ButtonGadget(#Button_OK, 30, 393, 110, 30, "Trouver une solution") 
      ButtonGadget(#Button_Clear, 140, 393, 110, 30, "Effacer la grille") 
      ButtonGadget(#Button_Print, 250, 393, 110, 30, "Imprimer la solution")

ajouter l'action du bouton

Code : Tout sélectionner

    If GadgetID = #Button_Print
     Imprimer()
    EndIf
et enfin la procedure

Code : Tout sélectionner

Procedure Imprimer()
  
  OpenWindow(3,0,0,640,480,#PB_Window_SystemMenu ,"sudoku")
  OpenWindowedScreen(WindowID(3),0,0,640,480,0,0,0)
  CreateGadgetList(WindowID(3))
  ButtonGadget(500,400,300,200,30,"imprimer")
  ClearScreen(255,255,255)
  StartDrawing(ScreenOutput())
  For l=1 To 9
    Debug l
    For m=1 To 9
      Debug m
      FrontColor(0,0,0)
      DrawingMode(1)
      Locate(10+(m*20),10+(l*20))
      DrawText(GetGadgetText((9*(l-1)+m-1)))  
      LineXY(l*20+5,28,l*20+5,208)
      LineXY(l*20+5+20,28,l*20+5+20,208)
      LineXY(25,l*20+8,205,l*20+8)
      LineXY(25,l*20+8+20,205,l*20+8+20)
    Next
  Next
  LoadFont(1,"arial",15,#PB_Font_Underline |#PB_Font_Bold)
  UseFont(1)
  FrontColor(0,0,0)
  DrawingMode(1)
  Locate(240,60)
  DrawText("Sudoku Killer | © Guillaume HUSSON")   
  
  LineXY(24,28,24,208)
  LineXY(26,28,26,208)
  LineXY(84,28,84,208)
  LineXY(86,28,86,208)
  LineXY(144,28,144,208)
  LineXY(146,28,146,208)
  LineXY(204,28,204,208)
  LineXY(206,28,206,208) 
  
  LineXY(25,27,205,27)
  LineXY(25,29,205,29)
  LineXY(25,87,205,87)
  LineXY(25,89,205,89)
  LineXY(25,147,205,147)
  LineXY(25,149,205,149)
  LineXY(25,207,205,207)
  LineXY(25,209,205,209)    
  StopDrawing()
  FlipBuffers()

  Repeat
    If WindowEvent()=#PB_Event_Gadget
      Select EventGadgetID()
        Case 500
         
          ClearScreen(255,255,255)
          StartDrawing(PrinterOutput())
          For l=1 To 9
            Debug l
            For m=1 To 9
              Debug m
              FrontColor(0,0,0)
              DrawingMode(1)
              Locate(10+(m*20),10+(l*20))
              DrawText(GetGadgetText((9*(l-1)+m-1)))  
              LineXY(l*20+5,28,l*20+5,208)
              LineXY(l*20+5+20,28,l*20+5+20,208)
              LineXY(25,l*20+8,205,l*20+8)
              LineXY(25,l*20+8+20,205,l*20+8+20)
            Next
          Next
          LoadFont(1,"arial",15,#PB_Font_Underline |#PB_Font_Bold)
          UseFont(1)
          FrontColor(0,0,0)
          DrawingMode(1)
          Locate(240,60)
          DrawText("Sudoku Killer | © Guillaume HUSSON")   
          
          LineXY(24,28,24,208)
          LineXY(26,28,26,208)
          LineXY(84,28,84,208)
          LineXY(86,28,86,208)
          LineXY(144,28,144,208)
          LineXY(146,28,146,208)
          LineXY(204,28,204,208)
          LineXY(206,28,206,208) 
          
          LineXY(25,27,205,27)
          LineXY(25,29,205,29)
          LineXY(25,87,205,87)
          LineXY(25,89,205,89)
          LineXY(25,147,205,147)
          LineXY(25,149,205,149)
          LineXY(25,207,205,207)
          LineXY(25,209,205,209)    
          StopDrawing()
          r=PrintRequester()
          If r=0
            MessageRequester("Erreur","L'imprimente n'a pas été trouver",0)
            CloseWindow(3)
          Else
            StartPrinting("Sudoku")
          EndIf
      EndSelect
    EndIf
    
  Until WindowEvent()=#PB_Event_CloseWindow
EndProcedure
Haut
ATHOW
Messages : 226
Inscription : mer. 29/déc./2004 16:54

Message par ATHOW »

@ rob6523 : Merci pour ta version PB4, je ne m'en sentais pas le courage...

@scaraber : C'est une bonne idée d'ajouter la possibilité d'imprimer, je n'y avais pas pensé... (je ne peux pas vraiment tester, je n'ai pas d'imprimante)

En fait, j'ai plein de projets (certains en Pure, d'autre en Java ou C++ pour l'école...) qui me prennent pas mal de temps (et j'ai aussi une vie, à côté, parfois :) ), et donc je ne pense pas vous pondre un logiciel Sudoku de la mort, avec génération des grilles, solveur étapes par étapes, etc...

Ce code est totalement libre, vous pouvez vous en servir si vous voulez faire une appli sur le sudoku, mais moi je ne pense pas y retoucher...

En tous cas, je vous remercie tous pour vos encouragements, et j'espère que mon King of the Hill 2 aura autant d'éloges (plus ?) que ce solveur de sudoku ! (On verra dans quelques semaines...)
Haut
comtois
Messages : 5186
Inscription : mer. 21/janv./2004 17:48
Contact :
Contacter comtois

Message par comtois »

ATHOW a écrit :j'espère que mon King of the Hill 2 aura autant d'éloges (plus ?) que ce solveur de sudoku ! (On verra dans quelques semaines...)
Tiens , j'aurais loupé le King of the Hill 1 ? il est où ?
http://purebasic.developpez.com/
Je ne réponds à aucune question technique en PV, utilisez le forum, il est fait pour ça, et la réponse peut profiter à tous.
Haut
ATHOW
Messages : 226
Inscription : mer. 29/déc./2004 16:54

Message par ATHOW »

comtois a écrit :
Tiens , j'aurais loupé le King of the Hill 1 ? il est où ?
Disons que le jeu a grandement changé depuis les beta... Les graphismes sont plus fins, le principe n'est pas exactement le même... Donc sur mon PC le jeu s'appelle KOTH V2...

Mais, comme je n'ai jamais "sorti" le 1 (qui s'est arrété à la beta 4), je pense que KOTH v2 s'appellera tout simplement KOTH...

C'est un peu compliqué tout ça :) (serais-je bordélique ?)
Haut
Frenchy Pilou
Messages : 2194
Inscription : jeu. 27/janv./2005 19:07

Message par Frenchy Pilou »

J'ai trouvé un bug dans le solveur de Sudoku! (désolé :?
Enfin je le cherchais pas mais en entrant cette combinaison
le programme me dit qu'il y a une solution mais il ne m'affiche que la grille "entrée" et donc pas la solution :?: :?: :?:
C'est grave docteur? :) que je rentre les 0 ou pas !

000 483 100
147 090 835
382 571 946

000 000 000
000 800 300
720 009 081

490 000 000
200 040 700
071 050 204
Est beau ce qui plaît sans concept :)
Speedy Galerie
Haut
ATHOW
Messages : 226
Inscription : mer. 29/déc./2004 16:54

Message par ATHOW »

Si je me souviens bien, je n'ai pas prévu le cas où il n'y a pas de solution... donc, le programme ayant terminé sa routine, il affiche le même message que d'hab ("Solution trouvée en..."), et comme il a rien trouvé, il affiche rien.

Bon, maintenant, si tu me dis que tu es certain que cette grille a une solution, c'est qu'il y a un bug, effectivement.

ps : il ne faut pas mettre les 0 !
Haut
Frenchy Pilou
Messages : 2194
Inscription : jeu. 27/janv./2005 19:07

Message par Frenchy Pilou »

Je ne n'ai pas encore trouvé si il y a une solution!
Mais quand il n'y en a pas ton programme le dit !!!
Ici il dit qu'il y en a une donc... :)
Dernière modification par Frenchy Pilou le mer. 04/avr./2007 0:10, modifié 1 fois.
Est beau ce qui plaît sans concept :)
Speedy Galerie
Haut
Frenchy Pilou
Messages : 2194
Inscription : jeu. 27/janv./2005 19:07

Message par Frenchy Pilou »

C'est une grille invalide! J'ai cherché avec un autre prog ! :)
Il n' y a donc qu'à changer les messages, car là il m'a fait claquer des neurones pour rien :lol:
Est beau ce qui plaît sans concept :)
Speedy Galerie
Haut
Frenchy Pilou
Messages : 2194
Inscription : jeu. 27/janv./2005 19:07

Message par Frenchy Pilou »

Ton programme marche même si on rentre des "0" :)
Est beau ce qui plaît sans concept :)
Speedy Galerie
Haut
ATHOW
Messages : 226
Inscription : mer. 29/déc./2004 16:54

Message par ATHOW »

Frenchy Pilou a écrit :Ton programme marche même si on rentre des "0" :)
Très bon, je code des trucs sans même le savoir :P !
Haut
Frenchy Pilou
Messages : 2194
Inscription : jeu. 27/janv./2005 19:07

Message par Frenchy Pilou »

Même si on remplit toutes les cases avec des "0"! :D
Très bon, je code des trucs sans même le savoir
C'est çà la classe ! :)

Sauf que pour l'exemple cité au-dessus, il y a quand même un petit couac :roll:
Est beau ce qui plaît sans concept :)
Speedy Galerie
Haut
Répondre

Revenir à « Applications »