Exercice Delphi
Solitaire
Enoncé
Il s'agit du jeu solitaire sur une planche de 44 pions. En sautant avec un pion au-dessus d'un pion voisin, on peut enlever celui au-dessus duquel on a sauté. Le but est de garder à la fin un minumum de pions, le mieux est de n'en garder qu'un seul. Un libellé indique le nombre de pions restants.Deux solutions :
- Pour sauter il faut glisser avec la souris un pion vers une position libre. Le pion qui saute devient bleu pendant le mouvement.
- Pour sauter il faut cliquer d'abord sur le pion avec lequel on veut sauter, puis sur l'emplacement vers où on veut sauter. Cette solutione est un peu plus dificile.
Eléments
- MouseDown, MouseUp
- dessiner sur une image, demander la couleur d'un pixel...
Aide
- dimension de la planche: 360px, chaque pion a la largeur de 30px
- définir une procédure set_pion(img:TImage;i,j:integer;couleur:LongInt) pour placer un pion d'une couleur spécifique (ex: set_pion(img,5,5,clRed) )
Screenshot
Ces screenshots montre le jeu au début est lors du 2e saut.