Discussion :

[Gobelins]

J'ai crée un jeu en puissance4 en tcltk. Le jeu est structuré en tableau, pas de liste. La grille du jeu est un tableau de boutons. Le jeu fonctionne bien suivant les règles du jeu puissance4.
Néanmoins, Si on veut s'arreter au milieu de la partie (non finie) pour la sauvegarder et ensuite revenir pour la charger, la grille n'est ni sauvegardée ni chargéé.
Mon problème se situe dans les deux fonctions : sauvegarder et charger. Je ne sais pas comment résoudre ce problème. Je tourne vers vous pour que vous puissiez me rendre heureux et m'aider à résoudre ce problème. Merci de votre aide.

[Canvas]

Bonsoir,

Si j'ai bien compris, le problème est de sauvegarder un tableau et ensuite
de le charger dans le programme.

Voici un exemple testé à la console de Tcl-Tk pour mieux comprendre.
La commande parray permet d'afficher un tableau. Elle ne s'utilise
qu'en mode interactif.

Déclaration d'un tableau tab, initialisation et remplissage de celui-ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
% array set tab {}
% for {set i 1} {$i <= 3} {incr i} {
    for {set j 1} {$j <= 3} {incr j} {set tab($i,$j) N}}
% set tab(1,1) O
% set tab(1,2) O
% set tab(1,3) X
% set tab(2,1) X
% set tab(2,2) O
% parray tab
tab(1,1) = O
tab(1,2) = O
tab(1,3) = X
tab(2,1) = X
tab(2,2) = O
tab(2,3) = N
tab(3,1) = N
tab(3,2) = N
tab(3,3) = N

Sauvegarde du tableau dans le fichier sauve.txt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
% set fp [open sauve.txt w]
% puts $fp  [list array set tab [array get tab]]
% close $fp

Réinitialisation du tableau:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
% for {set i 1} {$i <= 3} {incr i} {
    for {set j 1} {$j <= 3} {incr j} {set tab($i,$j) N}}
parray tab
tab(1,1) = N
tab(1,2) = N
tab(1,3) = N
tab(2,1) = N
tab(2,2) = N
tab(2,3) = N
tab(3,1) = N
tab(3,2) = N
tab(3,3) = N

Chargement du tableau en mémoire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
% source sauve.txt
% parray tab
tab(1,1) = O
tab(1,2) = O
tab(1,3) = X
tab(2,1) = X
tab(2,2) = O
tab(2,3) = N
tab(3,1) = N
tab(3,2) = N
tab(3,3) = N

En espérant que cela aide.

----
Canvas

[Gobelins]

J'ai un tableau de 42 boutons. Il faut que je déclare les 42 cases sachant que que j'ai déclaré les cases à zéro où il n'existe pas de pions et les cases à 1 où les pions sont présents.

[Canvas]

Bonsoir,

L'objectif de l'exemple était uniquement de montrer comment:

- on sauvegarde le contenu d'un tableau dans un fichier
- on charge le contenu du tableau en mémoire

Le choix des valeurs contenues dans le tableau (X,O,N) est purement arbitraire.

Libre à toi de choisir la manière dont tu gère le contenu de tes tableaux.
C'est à dire si une case est remplie ou non et par quelle couleur de jeton.

Ce choix est indépendant du langage Tcl-Tk. C'est de la programmation générale.

Cordialement,

----
Canvas

[Gobelins]

Bonjour,

J'ai essayé d'écrire tab(1,1) = 1, dans mon programme de, mais une erreur s'affiche comme quoi tab(1,1) = 1 ne reconnait pas et surtout le contenu de tab(1,1), i.e 1

[Canvas]

Bonsoir,

Pour affecter une valeur dans un tableau, il faut écrire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
set tab(1,1) 1

Pour copier la valeur de tab(1,1) dans une autre variable n:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
set n $tab(1,1)

ps: bien lire les 11 règles qui régissent Tcl-Tk.

----
Canvas

[Gobelins]

Je t'envoie trois images indispensables en pièce jointe pour le fonctionnement du programme et du jeu car je ne peux pas les envoyer autrement.