Jeu d'Echecs

La nouvelle version de KGF.dll de ce jour contient une version de l'objet ChessBoard avec le roque soumis aux 4 conditions que tu as indiquées.

Pour tester, c'est simple: utilise la possibilité de charger des configurations personnelles. Dans le source du programme de démo, tu mets d'abord 8 lignes de 8 étoiles, puis places les pièces significatives à la place voulue. Puis tu utilises le bouton "Peupler l'échiquer avec un exemple" et ta configuration s'affiche. Les blancs ont la main, et les tours et rois, si présents, sont marqués comme n'ayant "jamais bougé".

Bravo Klaus !

Petit ou grand, noir ou blanc, le roque fonctionne !
Mes premiers essais sont concluants, y compris les conditions 3 et 4.



Je ferai d'autres tests après dîner.

Il subsiste le décalage des coordonnées en abscisse qui produit un plantage dans une bande critique en colonne H.

Bonne continuation !

Citation :

Il subsiste le décalage des coordonnées en abscisse qui produit un plantage dans une bande critique en colonne H.

Oui, ce problème technique subsiste. Je suis en train de m'en occuper. Je voulais d'abord régler les aspects fonctionnels, et je suis satifait de noter que tout va bien. Merci !

Ca y est - ce "petit problème technique" est résolu également. Plus de violations de mémoire...

Bonjour Klaus !

Citation :

Ca y est - ce "petit problème technique" est résolu également. Plus de violations de mémoire...

Super ! Mais il faudrait "pousser" encore d'un petit pixel.
Il ne reste plus qu'une une zone verticale d'un pixel de large qui plante le programme. C'est la ligne du cadre qui ferme la colonne H.

Spoiler:

Après ceci, souhaites-tu continuer avec la détection des situations d'échec, pat et mat ?
Quoi qu'il en soit, tu as fait un travail excellent en un temps record. Bravo !
De mon coté, je n'ai pas avancé d'un iota !

Le problème du clic dans la bordure de droite est résolu. Il y avait d'ailleurs le même problème lors d'un clic dans la bordure gauche... c'est corrigé.

Détecter PAT et MAT ? Ca, c'est une autre paire de manches !

Mais je vais ajouter la détexction de la mise en échec du roi adverse, que ce soit une mise en danger directe par une pièce qui vient d'être jouée ou par une pièce dont le champ d'action vient d'être libéré par la pièce qui vient d'être jouée.

EDIT

Ca y est - la détection de la mise en échec est active !

Les cases peuvent maintenant avoir une taille de 48x48 ou de 72x72 pixels ! Voici le programme démo adapté:

Code:

' test_jeu_echecs.bas

label peupler, dimension

dim res%, w%, h%, hc%, x1%, y1%, row1%, col1%, x2%, y2%, row2%, col2%, CB%, siz%

alpha 1 : top 1,10 : left 1,10 : caption 1,"Taille des cases:"
combo 2 : top 2,10 : left 2,100 : item_add 2,"48x48" : item_add 2,"72x72" : item_select 2,2 : on_click 2,dimension
siz% = 72

w% = 1 + 8*(siz%+1)
h% = w%
width 0,w%+50
height 0,h%+200
button 101 : top 101,50+h%+10 : left 101,10 : width 101,w% : caption 101,"Peupler l'échiquer avec un exemple"
  on_click 101,peupler
edit 102 : top 102,top(101)+30 : left 102,10 : width 102,w%
memo 103 : hide 103 : bar_both 103

dll_on "KGF.dll"

CB% = dll_call6("CreateChessBoard",handle(0),siz%,10,50,hex("8080FF"),hex("FFF0F0"))
res% = dll_call2("SetChessBoardTrace",CB%,handle(102))

end

dimension:
  if item_index(2) = 1 then siz% = 48
  if item_index(2) = 2 then siz% = 72
  CB% = dll_call1("DeleteChessBoard",CB%)
  CB% = dll_call6("CreateChessBoard",handle(0),siz%,10,50,hex("8080FF"),hex("FFF0F0"))
  res% = dll_call2("SetChessBoardTrace",CB%,handle(102))
  return
 
peupler:
  clear 103
  item_add 103,"*****k**"
  item_add 103,"**b*****"
  item_add 103,"******r*"
  item_add 103,"********"
  item_add 103,"********"
  item_add 103,"**Q*****"
  item_add 103,"*****K**"
  item_add 103,"********"
 res% = dll_call3("PopulateChessBoard",CB%,handle(103),1)
  if res%<0 then message "Echec du peublement"
  return

Mieux que ça:
Lorsqu'un roi est en situation d'échec, on ne peut jouer que de pièces de cette couleur qui annulent la situation d'échec. Aucun autre mouvement n'est permis.

Bonsoir Klaus !

J'ai téléchargé la dernière version de KGF et j'ai toujours le plantage lors du clic sur le bord des cases extérieures.

Ceci aussi bien en 48x48 qu'en 72x72.

Version KGF : 9.47 du 21/01/2021
Quant au fichier lui-même, il est daté du 22/01/2021 à 17h35.

J'ai pris les grands moyens, mais maintenant, je n'ai plus de violations...

C'est parfait !

Ouf ! Merci beaucoup, Marc !

Encore un petit "cadeau":
on peut maintenant changer la dimension des icônes dynamiquement, en cours de partie, sans perdre la situation du plateau ! Il faut recharger la DLL, bien sûr, et utiliser cette version du programme de démo:

Code:

' test_jeu_echecs.bas

label peupler, dimension

dim res%, w%, h%, hc%, x1%, y1%, row1%, col1%, x2%, y2%, row2%, col2%, CB%, siz%

alpha 1 : top 1,10 : left 1,10 : caption 1,"Taille des cases:"
combo 2 : top 2,10 : left 2,100 : item_add 2,"48x48" : item_add 2,"72x72" : item_select 2,1 : on_click 2,dimension
if item_index(2) = 1 then siz% = 48
if item_index(2) = 2 then siz% = 72

w% = 1 + 8*(siz%+1)
h% = w%
width 0,w%+50
height 0,h%+200
button 101 : top 101,50+h%+10 : left 101,10 : width 101,w% : caption 101,"Peupler l'échiquer avec un exemple"
  on_click 101,peupler
edit 102 : top 102,top(101)+30 : left 102,10 : width 102,w%
memo 103 : hide 103 : bar_both 103

dll_on "KGF.dll"

CB% = dll_call6("CreateChessBoard",handle(0),siz%,10,50,hex("8080FF"),hex("FFF0F0"))
res% = dll_call2("SetChessBoardTrace",CB%,handle(102))

end

dimension:
  if item_index(2) = 1 then siz% = 48
  if item_index(2) = 2 then siz% = 72
  w% = 1 + 8*(siz%+1)
  h% = w%
  width 0,w%+50
  height 0,h%+200
  top 101,50+h%+10
  top 102,top(101)+30
  res% = dll_call2("ResizeChessBoard",CB%,siz%)
  return
 
peupler:
  clear 103
  item_add 103,"*****k**"
  item_add 103,"**b*****"
  item_add 103,"******r*"
  item_add 103,"********"
  item_add 103,"********"
  item_add 103,"**Q*****"
  item_add 103,"*****K**"
  item_add 103,"********"
 res% = dll_call3("PopulateChessBoard",CB%,handle(103),1)
  if res%<0 then message "Echec du peublement"
  return

Et toujours plus loin:
On a maintenant un bouton "Annuler" qui permet le retour en arrière, coup par coup, jusqu'au début. Il faut recharger KGF.dll, bien sûr.
Voici le programme de démo pour cela:

Code:

' test_jeu_echecs.bas

label peupler, dimension, annuler

dim res%, w%, h%, hc%, x1%, y1%, row1%, col1%, x2%, y2%, row2%, col2%, CB%, siz%

alpha 1 : top 1,10 : left 1,10 : caption 1,"Taille des cases:"
combo 2 : top 2,10 : left 2,100 : item_add 2,"48x48" : item_add 2,"72x72" : item_select 2,1 : on_click 2,dimension
if item_index(2) = 1 then siz% = 48
if item_index(2) = 2 then siz% = 72

w% = 1 + 8*(siz%+1)
h% = w%
width 0,w%+50
height 0,h%+200
button 101 : top 101,50+h%+10 : left 101,10 : width 101,w% : caption 101,"Peupler l'échiquer avec un exemple"
  on_click 101,peupler
edit 102 : top 102,top(101)+30 : left 102,10 : width 102,w%
memo 103 : hide 103 : bar_both 103
button 104 : top 104,top(102)+30 : left 104,10 : width 104,w% : caption 104,"Annuler le dernier coup"
  on_click 104,annuler

dll_on "KGF.dll"

CB% = dll_call6("CreateChessBoard",handle(0),siz%,10,50,hex("8080FF"),hex("FFF0F0"))
res% = dll_call2("SetChessBoardTrace",CB%,handle(102))

end

dimension:
  if item_index(2) = 1 then siz% = 48
  if item_index(2) = 2 then siz% = 72
  w% = 1 + 8*(siz%+1)
  h% = w%
  width 0,w%+50
  height 0,h%+200
  top 101,50+h%+10
  top 102,top(101)+30
  top 104,top(102)+30
  res% = dll_call2("ResizeChessBoard",CB%,siz%)
  return
 
annuler:
  res% = dll_call1("UndoChessBoard",CB%)
  return
 
peupler:
  clear 103
  item_add 103,"*****k**"
  item_add 103,"**b*****"
  item_add 103,"******r*"
  item_add 103,"********"
  item_add 103,"********"
  item_add 103,"**Q*****"
  item_add 103,"*****K**"
  item_add 103,"********"
 res% = dll_call3("PopulateChessBoard",CB%,handle(103),1)
  if res%<0 then message "Echec du peublement"
  return

Klaus a écrit:

...un bouton "Annuler" qui permet le retour en arrière, coup par coup, jusqu'au début.

C'est excellent et parfaitement efficace !  

Merci Klaus !

J'ai ajouté une novelle fonctionnalité à mon programme de jeu d'échecs !

On peut toujours le jouer comme avant: un seul plateau, on joue à tour de rôle les blancs et les noirs.

On peut maintenant le lancer deux fois. On obtient deux plateaux de jeux, mais ils sont synchronisés ! Un coup joué sur un plateau est reproduit automatiquement sur l'autre, et inversement. Idem pour les annulatiions: l'annulation sur un plateau entraîne la mêle action sur l'autre.

Ceci est une approche pour jouer à deux, chacun sur un plateau. D'ailleurs, dès la synchronisation, le titre des fenêtres change: l'une portera le nom de "Klaus', l'autre sera marquée "Adversaire". Le nom de "Klaus" est codé das le programme Panoramic, donc modifiable par vos soins.

J'envisage de bloquer une couleur sur chaque plateau, je premier coup blanc sur un des plateaux déterminant que l'autre plateau sera dédié au joueur "noir", et je bloquerai les coups pour les couleurs opposées en fonction de cela, sur les deux plateaux. En même temps, un petit dialogue permettra de saisir le nom de chacun des joueurs, au moment de la synchronisation (lancement du second plateau).

J'ai pris cela comme une situation d'exercite pour établir une communication entre programmes. Il y aura une fonction permttant de définir un "canal" de communication bidirectionnelle. Lorsque le secon programme crée lemême canal, l se synchronisera autimatiquement avec le premier et formera un couple unique. Chaque programme  pourra créer autant de canaux que nécessaire et être ainsi en lien avec plusieurs programmes.

Mais trève de prospective. Voici la verion adaptée du programme de démo:

Code:

' test_jeu_echecs.bas

label peupler, dimension, annuler

dim res%, w%, h%, hc%, x1%, y1%, row1%, col1%, x2%, y2%, row2%, col2%, CB%, siz%, player$

caption 0,"KGF Chess"
top 0,50 : left 0,234
alpha 1 : top 1,10 : left 1,10 : caption 1,"Taille des cases:"
combo 2 : top 2,10 : left 2,100 : width 2,60 : item_add 2,"48x48" : item_add 2,"72x72" : item_select 2,1 : on_click 2,dimension
if item_index(2) = 1 then siz% = 48
if item_index(2) = 2 then siz% = 72

w% = 1 + 8*(siz%+1)
h% = w%
width 0,w%+50
height 0,h%+200
button 101 : top 101,50+h%+10 : left 101,10 : width 101,w% : caption 101,"Peupler l'échiquer avec un exemple"
  on_click 101,peupler
edit 102 : top 102,top(101)+30 : left 102,10 : width 102,w%
memo 103 : hide 103 : bar_both 103
button 104 : top 104,top(102)+30 : left 104,10 : width 104,w% : caption 104,"Annuler le dernier coup"
  on_click 104,annuler

dll_on "KGF.dll"

CB% = dll_call6("CreateChessBoard",handle(0),siz%,10,50,hex("8080FF"),hex("FFF0F0"))
res% = dll_call2("SetChessBoardTrace",CB%,handle(102))
player$ = "Klaus"
res% = dll_call6("SetChessBoardReceiver",CB%,handle(0),180,3,1,adr(player$))

end
 
dimension:
  if item_index(2) = 1 then siz% = 48
  if item_index(2) = 2 then siz% = 72
  w% = 1 + 8*(siz%+1)
  h% = w%
  width 0,w%+50
  height 0,h%+200
  top 101,50+h%+10
  top 102,top(101)+30
  top 104,top(102)+30
  res% = dll_call2("ResizeChessBoard",CB%,siz%)
  return
  
annuler:
  res% = dll_call1("UndoChessBoard",CB%)
  return
  
peupler:
  clear 103
  item_add 103,"*****k**"
  item_add 103,"**b*****"
  item_add 103,"******r*"
  item_add 103,"********"
  item_add 103,"********"
  item_add 103,"**Q*****"
  item_add 103,"*****K**"
  item_add 103,"********"
 res% = dll_call3("PopulateChessBoard",CB%,handle(103),1)
  if res%<0 then message "Echec du peublement"
  return

Il faut générer l'exécutable à partir de ce source et le lancer deux fois. Ou lancer ce code par l'éditeur Panoramic, et lancer ensuite l'exécutable généré. On ne peut pas lancer deux fois le même programme par l'éditeur, et je déconseille fortement de lancer deux éditeurs...

Voici ce que ça donne:


On peut changer la taille des icônes séparément, dans chaque plateau de jeu.

J'ai retrouvé ce lien dans mes archives :

https://www.codeproject.com/Articles/36112/Chess-Program-in-C

Peut-être pourrait-il vous intéresser ?

Bonsoir à tous !

Merci et bravo Klaus !  

J'ai testé les deux plateaux de jeu, c'est parfait !
La synchronisation est parfaite sans plantage.

Je n'ai pas suivi les consignes, j'ai lancé deux fois le source dans l'éditeur EliP. Pas de problème, ça fonctionne très bien !

EliP permet d'exécuter jusqu'à 5 fois le source en cours de développement, ce qui permet d'effectuer une comparaison avant/après modification dudit source.
Dans notre cas ici, EliP, via le makeExe.exe, crée deux .exe identiques puisque le source n'a pas été modifié entre temps.
Le canal de communication bilatéral s'établit et fonctionne parfaitement. Encore Bravo Klaus !

Spoiler:

@Jean_Debord

Merci du partage !

J'ai testé le jeu et c'est impressionnant !
Il est doté d'une IA impitoyable !
Bon il est vrai que je ne suis pas un joueur d'échecs. Il faudrait qu'un connaisseur donne son avis.

En tout cas, cela m'a permis de visualiser l'ergonomie du jeu.
Encore merci Jean !

Merci pour le retour, Marc ! Je suis content que l'aspect technique soit approuvé.

Je mets ce mini-jeu un peu en sommeil et je développe plus en détail la partie "communication", mais sans lien direct avec les échecs. Par contre, on pourra communiquer parmi plusieurs programmes Panoramic différents, en utilisant ce que j'appelle des "canaux" identifiés par un nom. Ils sont bidirectionnels, et un programme pourra en créer autant qu'il veut. Cela permet de créer par exemple une organisation client-serveur.

J'ai amélioré la version multi-joueurs.

Au départ, les deux plateux sont en configuration initiale, de façon identique.
La première pièce jouée sur un des plateaux "affecte" cette couleur à ce plateau.
L'autre plateau sera automatiquement affectée de la couleur adverse.
Ces affectations resteront en vigueur durant toute la partie.
Sur chacun des plateaux, on ne peut bouger que les pièces de la couleur affectée.
Ceci reste vrai même à traveurs plusieurs annulations.
Si tous les coups ont été annulés de sorte à revenir à la configuration initiale, les couleurs affectées redeviennent "neutres" et un pourra bouger une pièce de n'importe quelle couleur sur n'importe lequel des plateaux.
Et le cycle recommence.

Seule la DLL est à recharger. Le programme Panoramic reste inchangé.

Bonsoir Klaus !

J'ai testé les différents cas possibles, c'est parfait !

Bonjour,
Ou trouver la dernière version complète du source ?
D'avance merci.

Bonjour Mimic !

Le jeu d’échecs a été développé par Klaus en interne dans kgf.dll.

Voici le code-source de Klaus :

Code:

' test_jeu_echecs.bas

label peupler, dimension, annuler

dim res%, w%, h%, hc%, x1%, y1%, row1%, col1%, x2%, y2%, row2%, col2%, CB%, siz%, player$

caption 0,"KGF Chess"
top 0,50 : left 0,234
alpha 1 : top 1,10 : left 1,10 : caption 1,"Taille des cases:"
combo 2 : top 2,10 : left 2,100 : width 2,60 : item_add 2,"48x48" : item_add 2,"72x72" : item_select 2,1 : on_click 2,dimension
if item_index(2) = 1 then siz% = 48
if item_index(2) = 2 then siz% = 72

w% = 1 + 8*(siz%+1)
h% = w%
width 0,w%+50
height 0,h%+200
button 101 : top 101,50+h%+10 : left 101,10 : width 101,w% : caption 101,"Peupler l'échiquer avec un exemple"
  on_click 101,peupler
edit 102 : top 102,top(101)+30 : left 102,10 : width 102,w%
memo 103 : hide 103 : bar_both 103
button 104 : top 104,top(102)+30 : left 104,10 : width 104,w% : caption 104,"Annuler le dernier coup"
  on_click 104,annuler

dll_on "KGF.dll"

CB% = dll_call6("CreateChessBoard",handle(0),siz%,10,50,hex("8080FF"),hex("FFF0F0"))
res% = dll_call2("SetChessBoardTrace",CB%,handle(102))
player$ = "Klaus"
res% = dll_call6("SetChessBoardReceiver",CB%,handle(0),180,3,1,adr(player$))

end
 
dimension:
  if item_index(2) = 1 then siz% = 48
  if item_index(2) = 2 then siz% = 72
  w% = 1 + 8*(siz%+1)
  h% = w%
  width 0,w%+50
  height 0,h%+200
  top 101,50+h%+10
  top 102,top(101)+30
  top 104,top(102)+30
  res% = dll_call2("ResizeChessBoard",CB%,siz%)
  return
  
annuler:
  res% = dll_call1("UndoChessBoard",CB%)
  return
  
peupler:
  clear 103
  item_add 103,"*****k**"
  item_add 103,"**b*****"
  item_add 103,"******r*"
  item_add 103,"********"
  item_add 103,"********"
  item_add 103,"**Q*****"
  item_add 103,"*****K**"
  item_add 103,"********"
 res% = dll_call3("PopulateChessBoard",CB%,handle(103),1)
  if res%<0 then message "Echec du peublement"
  return

Et voici le lien pour télécharger kgf.dll : http://klauspanoramic.infinityfreeapp.com/KGF.zip

Bonne journée !

J'ai réussi à tester le jeu, mais si j'ai bien compris, il n'est pas codé en Panoramic, et donc impossible de voir le code source ?

@mimic:
Le jeu est en effet codé en Delphi. Suite à la dernière mise à jour de Windows, ma licence Delphi a encore une fois "disparu". Je suis en train de tout réinstaller. Dès que ce sera fait, je posterai ici le source compet concernant ce jeu.

Bien, mais je ne connais pas ce langage…

De mon coté, je tente de développer une version minimaliste, avec les règles officielles, cette fois-ci ; le noyau (déplacements et petite « I.A ») seul, sans l'aspect graphique.