FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Dessin 2D: largeur de trait
par papydall Hier à 23:31

» Projet de planétarium virtuel.
par Jean Claude Hier à 21:59

» PanExpress : l'éditeur Panoramic avec création d'objet
par Jean Claude Hier à 20:32

» Animation: Feux de signalisation
par Minibug Hier à 20:28

» Quantité de mémoire utilisée par un exe
par Jack Mar 19 Juin 2018 - 16:39

» Problème avec 'file_load'.
par Pedro Alvarez Lun 18 Juin 2018 - 8:12

» Version instantanée V 0.9.28i20 du 13/06/2018
par jjn4 Sam 16 Juin 2018 - 14:25

» string$(0,chr$(32)) sans erreur
par silverman Ven 15 Juin 2018 - 19:56

» Version instantanée V 0.9.28i19 du 13/06/2018
par Minibug Ven 15 Juin 2018 - 19:14

» Mes souhaits d'amélioration de Panoramic.
par Pedro Alvarez Jeu 14 Juin 2018 - 20:17

» [RÉSOLU] Message d'erreur impossible à indentifier
par Minibug Mer 13 Juin 2018 - 20:52

» Cadre pour image
par Jean Claude Mar 12 Juin 2018 - 16:31

» Créateur d'objets Panoramic
par Minibug Mar 12 Juin 2018 - 14:02

» Planétarium gratuit.
par Jean Claude Sam 9 Juin 2018 - 18:50

» Comment afficher une image sans fond.
par JL35 Sam 9 Juin 2018 - 14:16

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2018
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 Jeu Takuzu (ou Binero)

Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5952
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Jeu Takuzu (ou Binero)   Dim 1 Mar 2015 - 3:26

Bon Takuzu à tous!

J’ai mis sur mon Webdav un nouveau jeu qui répond au doux nom de   Binero (ou Takuzu).
C’est dans Binero.zip.

Objectif du jeu  : Remplir une grille avec les chiffres 0 et 1 en respectant les trois règles suivantes:
1. Pas plus de deux 0 ou deux 1 consécutifs
2. Chaque ligne et chaque colonne contiennent autant de 0 que de 1
3. Deux lignes ou deux colonnes ne peuvent être identiques.

Le zip contient :
Takuzu.bas
Takuzu.exe
NbGrille.txt  fichier texte qui contient uniquement le nombre 8 (nombre de grilles du jeu dans le zip)
8 fichiers  de grilles : G1.txt ….G8.txt
8 fichiers solutions : S1.txt …. S8.txt

Si vous voulez essayer ce jeu avant d’aller le chercher sur mon webdav, le code suivant permet de satisfaire votre curiosité : il contient une grille de jeu et sa solution dans des lignes DATA.


Code:

rem ============================================================================
rem          Jeu du Takuzu (ou Binero)
rem ============================================================================
rem Objectif : Remplir une grille avec les chiffres 0 et 1
rem en respectant les trois règles suivantes:
rem 1. Pas plus de deux 0 ou deux 1 consécutifs
rem 2. Chaque ligne et chaque colonne contiennent autant de 0 que de 1
rem 3. Deux lignes ou deux colonnes ne peuvent être identiques.
rem ============================================================================
Init()
Binero()
 Init_Grille()
end
rem ============================================================================
SUB Init()
    label clic
    dim n : n = 10
    dim g(n*n),s(n*n) : ' Dimension de la grille (forcement paire)
    dim grille$(n*n),solution$(n*n)
    dim ligne,colonne,p,w,c$,nc,reste,random
    w = 40 : ' dimension d'une case
    reste = n*n : ' nombre de coups à jouer
    height 0,600 : width 0,700
    2d_pen_color 0,0,255 : 2d_pen_width 2
    font_bold 0 : font_size 0,14

    alpha 150 : top 150,20 : left 150,150 :  font_bold 150 : font_size 150,18
    font_color 150,0,0,255
    button 200 : top 200,100 : left 200,550 : caption 200, "0" : on_click 200,clic
    button 300 : top 300,150 : left 300,550 : caption 300, "blanc": on_click 300,clic
    button 400 : top 400,200 : left 400,550 : caption 400, "1" : on_click 400,clic
    alpha  450 : top 450,300 : left 450,550
    button 470 : top 470,250 : left 470,550 : caption 470,"Info" : on_click 470,clic
    button 480 : top 480,350 : left 480,550 : width 480,100 : caption 480,"Nouveau" : on_click 480,clic
    button 500 : top 500,400 : left 500,550 : caption 500, "Quitter" : on_click 500,clic

END_SUB
rem ============================================================================
SUB Binero()
    for ligne = 1 to n
        for colonne = 1 to n
            p = colonne + n *(ligne-1) : picture p : on_click p,clic
            width p,w : height p,w : top p ,50+(w+2)*ligne : left p, 50+(w+2)*colonne
            2d_rectangle 0,0,w,w
        next colonne
    next ligne
END_SUB
rem ============================================================================
SUB Init_Grille()
    dim_local p,NbGrille$,l$,f$
    reste = n*n
    if file_exists("NbGrille.txt") = 0 then Init_From_Data() : exit_sub

    file_open_read 999, NbGrille.txt
    file_readln 999,NbGrille$ : file_close 999
    random = int(rnd(val(NbGrille$)) +1)
    if file_exists("G"+str$(random)+".txt") = 0
       message "Le fichier 'G"+str$(random)+".txt' est introuvable !!!" + chr$(13) + "Programme interrompu."
       terminate
    end_if
    caption 150, "Jeu du Takuzu (ou Binero) : Grille N° " + str$(random)
    file_open_read 999,"G"+str$(random)+".txt"
    for ligne = 1 to n
        file_readln 999, l$
        for colonne = 1 to n
             p = colonne + n *(ligne-1) : print_target_is p : font_bold p
             font_size p,14 : font_color p,255,0,0 : print_locate 15,8
            if mid$(l$,colonne,1) <> "b"
               print mid$(l$,colonne,1) : g(p) = 1 : reste = reste - 1
               grille$(p) = mid$(l$,colonne,1)
            end_if
        next colonne
    next ligne
    file_close 999
    if file_exists("S"+str$(random)+".txt") = 0
       message "Le fichier 'S"+str$(random)+".txt' est introuvable !!!" + chr$(13) + "Programme interrompu."
       terminate
    end_if
    file_open_read 999,"S"+str$(random)+".txt"
    for ligne = 1 to n
        file_readln 999,l$
        for colonne = 1 to n
            p = colonne + n *(ligne-1)
            solution$(p) = mid$(l$,colonne,1)
        next colonne
    next ligne
    file_close 999
    caption 450,"Restant : " + str$(reste)
END_SUB
rem ============================================================================
SUB Init_From_Data()

    dim_local p,l$

    hide 480
    caption 150, "Jeu du Takuzu (ou Binero)"
' Lecture de la grille
    for ligne = 1 to n
        read l$
        for colonne = 1 to n
             p = colonne + n *(ligne-1) : print_target_is p : font_bold p
             font_size p,14 : font_color p,255,0,0 : print_locate 15,8
            if mid$(l$,colonne,1) <> "b"
               print mid$(l$,colonne,1) : g(p) = 1 : reste = reste - 1
               grille$(p) = mid$(l$,colonne,1)
            end_if
        next colonne
    next ligne
' Lecture de la solution
    for ligne = 1 to n
        read l$
        for colonne = 1 to n
            p = colonne + n *(ligne-1)
            solution$(p) = mid$(l$,colonne,1)
        next colonne
    next ligne

    caption 450,"Restant : " + str$(reste)
END_SUB
rem ============================================================================
Clic:

   nc = number_click
   if nc > 0 and nc <= n*n
      if g(nc) = 1 then hint nc,"Case non modifiable!" : return
      if c$ = "" then hint nc,"Choisir 0 ou 1" :return : else : Mettre(c$)
   end_if

   select number_click
      case 200 : c$ = "0"
      case 300 : c$ = "   "
      case 400 : c$ = "1"
      case 470 : Info()
      case 480 : Nouvelle_Grille()
      case 500 : quitter()
   end_select

return
rem ============================================================================
SUB  Nouvelle_Grille()
     print_target_is 0
     for p = 1 to n*n : delete p : g(p) = 0 : next p
     Binero()
     Init_Grille()

END_SUB
rem ============================================================================
SUB Mettre(ch$)
    if g(nc) = 1 then hint nc,"Non modifiable" :exit_sub

    if ch$ = "   "
       if g(nc) = 2
          reste = reste + 1 : g(nc) = 0
       else
          reste = reste - 1
       end_if
    else
       if g(nc) = 0 then reste = reste - 1
    end_if

    print_target_is nc : print_locate 15,8 : font_bold nc : font_size nc,14
    font_color nc,0,0,255 : print ch$
    if ch$ <> "   " then g(nc) = 2 : grille$(nc) = ch$

    caption 450,"Restant : " + str$(reste)
    if reste = 0 then verif_grille()
END_SUB
rem ============================================================================
SUB Verif_Grille()
     for p = 1 to n*n
         if grille$(p) <> solution$(p)
            message "erreur" : exit_sub
         end_if
     next p
     message "bravo"
END_SUB
rem ============================================================================
SUB Info()
    dim_local t$,nl$
    nl$ = chr$(13)
    t$ = "Le Binero (Takuzu) est un cousin éloigné du Sudoku." + nl$
    t$ = t$ + "Objectif : Remplir une grille avec les chiffres 0 et 1." + nl$
    t$ = t$ + "Les contraintes sont les suivantes :" +nl$
    t$ = t$ + "Il ne peut y avoir plus de deux 0 ou deux 1 consécutifs." + nl$
    t$ = t$ + "Il y a le même nombre de 0 et de 1 sur chaque ligne et chaque colonne."+nl$
    t$ = t$ + "Les lignes ou colonnes identiques sont interdites."+nl$+nl$
    t$ = t$ + "Pour jouer :" +nl$
    t$ = t$ + "Cliquer sur les boutons à droite pour choisir 0 ou 1"+nl$
    t$ = t$ + "Puis, cliquer dans la case où vous voulez jouer." + nl$
    t$ = t$ + "Pour annuler un coup, choisir le bouton blanc puis cliquer dans la case à annuler"+nl$+nl$
    t$ = t$ + "****************************** B O N   D I V E R T I S S E M E N E T *********************"

    message t$
END_SUB
rem ============================================================================
SUB Quitter()
    if message_confirmation_yes_no("Vous voulez vraiment Quitter ?") = 1 then terminate
END_SUB
rem ============================================================================
' Binero 1
data "0b11bbbbb1"
data "bb1bbbb0b0"
data "b0bb1b1b1b"
data "b1bbbbbbbb"
data "1b0bb1bbbb"
data "b0bb0bbb11"
data "bbb1bbbbb1"
data "0bb1b1b0bb"
data "bb0bbbbbbb"
data "11bbbb11b0"
rem ============================================================================
' solution 1
data "0011010101"
data "0110011010"
data "1001101010"
data "0110100101"
data "1001011010"
data "1010010011"
data "0101100101"
data "0011011010"
data "1100100101"
data "1100101100"
rem ============================================================================


Dernière édition par papydall le Lun 2 Mar 2015 - 14:42, édité 1 fois (Raison : Correction d'un bug)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Francis-mr



Nombre de messages : 167
Age : 66
Localisation : Corrèze
Date d'inscription : 26/11/2012

MessageSujet: Re: Jeu Takuzu (ou Binero)   Dim 1 Mar 2015 - 9:19

Bonjour,
Excellent jeu Papydall  cheers
Mais serait-il possible de ne pas être obligé de re-sélectionner à chaque fois, si on ne change de chiffre ?
Merci d'avance.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://cfmr.e-monsite.com
papydall

avatar

Nombre de messages : 5952
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Jeu Takuzu (ou Binero)   Dim 1 Mar 2015 - 14:02

Salut Francis-mr.
Je suis content que mon petit jeu te plaise !
Francis-Mr a écrit:
Mais serait-il possible de ne pas être obligé de re-sélectionner à chaque fois, si on ne change de chiffre ?

C’est parfaitement possible et même très facile :
Il suffit de mettre en REM la ligne 163 : c$ = ""  de la SUB Mettre(ch$)

C’est plus facile à jouer comme ça.
Merci pour la remarque.
Bon Binero (ou si tu parles Japonais, Bon  Takazu) à toi. Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Francis-mr



Nombre de messages : 167
Age : 66
Localisation : Corrèze
Date d'inscription : 26/11/2012

MessageSujet: Re: Jeu Takuzu (ou Binero)   Dim 1 Mar 2015 - 14:50

Merci Papydall,
C'est tellement plus facile comme cela pour le fainéant que je suis !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://cfmr.e-monsite.com
papydall

avatar

Nombre de messages : 5952
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Jeu Takuzu (ou Binero)   Dim 1 Mar 2015 - 15:15

En vérité, j’ai mis cette ligne pendant le développement du programme, et puis la suite est connue : l’oubli de la virer + l’envie de poster le code avant de le tester suffisamment et, heureusement, il y a presque toujours quelqu’un qui découvre de telle minibug (toute allusion à quiconque est purement fortuite Laughing !)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Jeu Takuzu (ou Binero)   Dim 1 Mar 2015 - 17:15

Le jeu est bien fait mais honnêtement, je n'accroche pas mais il en faut pour tous les goûts et ça fait un casse tête de plus.
Rien a reprocher à la réalisation par elle même.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5952
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Jeu Takuzu (ou Binero)   Dim 1 Mar 2015 - 23:51

Merci Jicehel.
Ton  avis est respectable.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 5487
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Jeu Takuzu (ou Binero)   Lun 2 Mar 2015 - 7:58

Je suis un peu comme Jicehel, c'est pas trop accrocheur comme jeu.
De plus, dès qu'on a trouvé une certaine méthode cela devient très facile.

Néanmoins, je prends pour voir si ma femme (et les petit enfants, quand ils auront l'age) accrochent.

Le fait de shunter la ligne 163, rend le jeu plus facile à jouer.
Mais il y a un mais: quand on modifie une case déjà remplie le compteurs de tours diminue de 1, ce qui conduit à un nombre négatif à la fin.
Il faudrait que le compteur ne bouge pas dans le cas d'une modification.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Jeu Takuzu (ou Binero)   Lun 2 Mar 2015 - 8:00

Tu as raison, je ne l'ai pas dit hier car j'avais un doute sur le fait que ce soit volontaire ou non mais en te lisant ce matin, c'est évidemment un cas non prévu et une erreur.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5952
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Jeu Takuzu (ou Binero)   Lun 2 Mar 2015 - 14:56

@Jean Claude et Jicehel

Merci pour me signaler le bug.
C’est corrigé sur le webdav et ici.
NB : Vous dites que c’est très facile comme jeu ?
Certaines grilles sur mon webdav ne sont pas si faciles que ça : certes elles ne sont pas insolubles, mais ça demande assez de réflexion !
Mais bon, je ne suis plus ici Laughing



Code:

rem ============================================================================
rem          Jeu du Takuzu (ou Binero)
rem ============================================================================
rem Objectif : Remplir une grille avec les chiffres 0 et 1
rem en respectant les trois règles suivantes:
rem 1. Pas plus de deux 0 ou deux 1 consécutifs
rem 2. Chaque ligne et chaque colonne contiennent autant de 0 que de 1
rem 3. Deux lignes ou deux colonnes ne peuvent être identiques.
rem ============================================================================
Init()
Binero()
 Init_Grille()
end
rem ============================================================================
SUB Init()
    label clic
    dim n : n = 10
    dim g(n*n),s(n*n) : ' Dimension de la grille (forcement paire)
    dim grille$(n*n),solution$(n*n)
    dim ligne,colonne,p,w,c$,nc,reste,random
    w = 40 : ' dimension d'une case
    reste = n*n : ' nombre de coups à jouer
    height 0,600 : width 0,700
    2d_pen_color 0,0,255 : 2d_pen_width 2
    font_bold 0 : font_size 0,14

    alpha 150 : top 150,20 : left 150,150 :  font_bold 150 : font_size 150,18
    font_color 150,0,0,255
    button 200 : top 200,100 : left 200,550 : caption 200, "0" : on_click 200,clic
    button 300 : top 300,150 : left 300,550 : caption 300, "blanc": on_click 300,clic
    button 400 : top 400,200 : left 400,550 : caption 400, "1" : on_click 400,clic
    alpha  450 : top 450,300 : left 450,550
    button 470 : top 470,250 : left 470,550 : caption 470,"Info" : on_click 470,clic
    button 480 : top 480,350 : left 480,550 : width 480,100 : caption 480,"Nouveau" : on_click 480,clic
    button 500 : top 500,400 : left 500,550 : caption 500, "Quitter" : on_click 500,clic

END_SUB
rem ============================================================================
SUB Binero()
    for ligne = 1 to n
        for colonne = 1 to n
            p = colonne + n *(ligne-1) : picture p : on_click p,clic
            width p,w : height p,w : top p ,50+(w+2)*ligne : left p, 50+(w+2)*colonne
            2d_rectangle 0,0,w,w
        next colonne
    next ligne
END_SUB
rem ============================================================================
SUB Init_Grille()
    dim_local p,NbGrille$,l$,f$
    reste = n*n
    if file_exists("NbGrille.txt") = 0 then Init_From_Data() : exit_sub

    file_open_read 999, NbGrille.txt
    file_readln 999,NbGrille$ : file_close 999
    random = int(rnd(val(NbGrille$)) +1)
    if file_exists("G"+str$(random)+".txt") = 0
       message "Le fichier 'G"+str$(random)+".txt' est introuvable !!!" + chr$(13) + "Programme interrompu."
       terminate
    end_if
    caption 150, "Jeu du Takuzu (ou Binero) : Grille N° " + str$(random)
    file_open_read 999,"G"+str$(random)+".txt"
    for ligne = 1 to n
        file_readln 999, l$
        for colonne = 1 to n
             p = colonne + n *(ligne-1) : print_target_is p : font_bold p
             font_size p,14 : font_color p,255,0,0 : print_locate 15,8
            if mid$(l$,colonne,1) <> "b"
               print mid$(l$,colonne,1) : g(p) = 1 : reste = reste - 1
               grille$(p) = mid$(l$,colonne,1)
            end_if
        next colonne
    next ligne
    file_close 999
    if file_exists("S"+str$(random)+".txt") = 0
       message "Le fichier 'S"+str$(random)+".txt' est introuvable !!!" + chr$(13) + "Programme interrompu."
       terminate
    end_if
    file_open_read 999,"S"+str$(random)+".txt"
    for ligne = 1 to n
        file_readln 999,l$
        for colonne = 1 to n
            p = colonne + n *(ligne-1)
            solution$(p) = mid$(l$,colonne,1)
        next colonne
    next ligne
    file_close 999
    caption 450,"Restant : " + str$(reste)
END_SUB
rem ============================================================================
SUB Init_From_Data()

    dim_local p,l$

    hide 480
    caption 150, "Jeu du Takuzu (ou Binero)"
' Lecture de la grille
    for ligne = 1 to n
        read l$
        for colonne = 1 to n
             p = colonne + n *(ligne-1) : print_target_is p : font_bold p
             font_size p,14 : font_color p,255,0,0 : print_locate 15,8
            if mid$(l$,colonne,1) <> "b"
               print mid$(l$,colonne,1) : g(p) = 1 : reste = reste - 1
               grille$(p) = mid$(l$,colonne,1)
            end_if
        next colonne
    next ligne
' Lecture de la solution
    for ligne = 1 to n
        read l$
        for colonne = 1 to n
            p = colonne + n *(ligne-1)
            solution$(p) = mid$(l$,colonne,1)
        next colonne
    next ligne

    caption 450,"Restant : " + str$(reste)
END_SUB
rem ============================================================================
Clic:

   nc = number_click
   if nc > 0 and nc <= n*n
      if g(nc) = 1 then hint nc,"Case non modifiable!" : return
      if c$ = "" then hint nc,"Choisir 0 ou 1" :return : else : Mettre(c$)
   end_if

   select number_click
      case 200 : c$ = "0"
      case 300 : c$ = "   "
      case 400 : c$ = "1"
      case 470 : Info()
      case 480 : Nouvelle_Grille()
      case 500 : quitter()
   end_select

return
rem ============================================================================
SUB  Nouvelle_Grille()
     print_target_is 0
     for p = 1 to n*n : delete p : g(p) = 0 : next p
     Binero()
     Init_Grille()

END_SUB
rem ============================================================================
SUB Mettre(ch$)
    if g(nc) = 1 then hint nc,"Non modifiable" :exit_sub

    if ch$ = "   "
       if g(nc) = 2
          reste = reste + 1 : g(nc) = 0
       else
          reste = reste - 1
       end_if
    else
       if g(nc) = 0 then reste = reste - 1
    end_if

    print_target_is nc : print_locate 15,8 : font_bold nc : font_size nc,14
    font_color nc,0,0,255 : print ch$
    if ch$ <> "   " then g(nc) = 2 : grille$(nc) = ch$

    caption 450,"Restant : " + str$(reste)
    if reste = 0 then verif_grille()
END_SUB
rem ============================================================================
SUB Verif_Grille()
     for p = 1 to n*n
         if grille$(p) <> solution$(p)
            message "erreur" : exit_sub
         end_if
     next p
     message "bravo"
END_SUB
rem ============================================================================
SUB Info()
    dim_local t$,nl$
    nl$ = chr$(13)
    t$ = "Le Binero (Takuzu) est un cousin éloigné du Sudoku." + nl$
    t$ = t$ + "Objectif : Remplir une grille avec les chiffres 0 et 1." + nl$
    t$ = t$ + "Les contraintes sont les suivantes :" +nl$
    t$ = t$ + "Il ne peut y avoir plus de deux 0 ou deux 1 consécutifs." + nl$
    t$ = t$ + "Il y a le même nombre de 0 et de 1 sur chaque ligne et chaque colonne."+nl$
    t$ = t$ + "Les lignes ou colonnes identiques sont interdites."+nl$+nl$
    t$ = t$ + "Pour jouer :" +nl$
    t$ = t$ + "Cliquer sur les boutons à droite pour choisir 0 ou 1"+nl$
    t$ = t$ + "Puis, cliquer dans la case où vous voulez jouer." + nl$
    t$ = t$ + "Pour annuler un coup, choisir le bouton blanc puis cliquer dans la case à annuler"+nl$+nl$
    t$ = t$ + "****************************** B O N   D I V E R T I S S E M E N E T *********************"

    message t$
END_SUB
rem ============================================================================
SUB Quitter()
    if message_confirmation_yes_no("Vous voulez vraiment Quitter ?") = 1 then terminate
END_SUB
rem ============================================================================
' Binero 1
data "0b11bbbbb1"
data "bb1bbbb0b0"
data "b0bb1b1b1b"
data "b1bbbbbbbb"
data "1b0bb1bbbb"
data "b0bb0bbb11"
data "bbb1bbbbb1"
data "0bb1b1b0bb"
data "bb0bbbbbbb"
data "11bbbb11b0"
rem ============================================================================
' solution 1
data "0011010101"
data "0110011010"
data "1001101010"
data "0110100101"
data "1001011010"
data "1010010011"
data "0101100101"
data "0011011010"
data "1100100101"
data "1100101100"
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Jeu Takuzu (ou Binero)   Lun 2 Mar 2015 - 17:00

Perso, je n'ai pas dit que c'était facile, j'ai juste dit que je n'accrochais pas ^^ mais bon, je ne vais pas insister sur ce point. Il y aura sans doute des gens qui vont aimer ce nouveau casse-tête. Peut être que si ceux d'avant avait été moins bien, j'aurais plus apprécié celui ci... ^^
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5487
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Jeu Takuzu (ou Binero)   Lun 2 Mar 2015 - 18:52

Je retire le mot facile, en effet, hier je n'ai pas suffisamment lu les règles.
Citation :
Objectif du jeu  : Remplir une grille avec les chiffres 0 et 1 en respectant les trois règles suivantes:
1. Pas plus de deux 0 ou deux 1 consécutifs
2. Chaque ligne et chaque colonne contiennent autant de 0 que de 1
3. Deux lignes ou deux colonnes ne peuvent être identiques.


Le point 1(tout seul) c'est super facile, oui mais en respectant les 2 autres points, heu.. là çà ce complique sévère. Ça devient donc intéressant.

Maintenant le comptage est nickel.
A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5952
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Jeu Takuzu (ou Binero)   Lun 2 Mar 2015 - 22:18

L’un des points forts de ce Forum, c’est l’échange d’infos pour corriger vos inévitables (!) erreurs de codage.
Merci à tous.

On codera (je coderai) d’autres jeux moins faciles à résoudre et plus accrocheurs.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Jeu Takuzu (ou Binero)   

Revenir en haut Aller en bas
 
Jeu Takuzu (ou Binero)
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Jeu Takuzu (ou Binero)

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les jeux faits avec Panoramic-
Sauter vers: