本程序算法资料来自下面网站.
----https://www.cnblogs.com/buptzym/archive/2012/06/20/2556052.html----
先定义一个数组 用于存储整个棋盘的数据.
u16 ChessBoard[15][15];//棋盘数据.
一.己方下棋 基础函数.
1.在屏幕上显示出来一个15*15的棋盘.
void DrawTable(void)//画出15x15的棋盘.
{
int i;
for(i=0;i<15;i++)
{
LCD_DrawLine(8,16+i*16,232,16+i*16);
LCD_DrawLine(8+i*16,16,8+i*16,240);
}
}
2.//两个数之差的绝对值
//x1,x2：需取差值的两个数
//返回值：|x1-x2|
u16 my_abs(u16 x1,u16 x2)
{
if(x1>x2)return x1-x2;
else return x2-x1;
}
3.//x,y是横纵坐标，Data是数组
//返回0：无子，1 ：黑子，2：白子
u8 ReadData(u8 x,u8 y)
{
int temp;
temp=ChessBoard[x][y];
return temp;
}
4.//x,y是横纵坐标，Data是数组
//dat 0：无子，1 ：黑子，2：白子
void WriteData(u8 x,u8 y,u8 dat)
{
ChessBoard[x][y]=dat;
}
5.//画出棋子,黑色或者白色.
void DrawChess(int x,int y,u16 color)
{
POINT_COLOR=color; //画笔色....
LCD_Draw_ALLCircle(8+x*16,16+y*16,8);
}
二.己方下棋应用函数
1.根据触摸的位置在屏幕上落子.
将棋子限制在棋盘的交叉格上.
void TouchChess(u8 dat)//触摸屏落子,
{
int x,y;
int chess_x,chess_y;
for(x=0;x<15;x++)
{
if(my_abs(8+x*16,tp_dev.x[0])<8)//附近范围<8
{
chess_x=x;
}
}
for(y=0;y<15;y++)
{
if(my_abs(16+y*16,tp_dev.y[0])<8)
{
chess_y=y;
}
}
if(ReadData(chess_x,chess_y) == 0)//空白区域才能落子.
WriteData(chess_x,chess_y,dat);
}
三.单片机下棋.(单片机需要知道每个格子的各个方向上的权值,哪里权值大就下哪里.简而言之就是哪个位置容易"成子"就下那里,如果是对方容易"成子"就下在哪里"堵他".
1.单片机下棋基础函数.
u16 GlobalData[8][15][15];
//黑棋 四个方向上的数据放在 GlobalData[0][15][15]----GlobalData[3][15][15]
//白棋 四个方向上的数据放在 GlobalData[4][15][15]----GlobalData[7][15][15]
u8 Max_x,Max_y;//最有利位置的坐标.
//读取白方或黑方的各个位置的权值.
u8 ReadGlobalData(u8 x,u8 y,u8 i)
{
u8 temp;
temp=GlobalData[i][x][y];
return temp;
}
//写入白方或黑方的各个位置的权值.
void WriteGlobalData(u8 temp,u8 x,u8 y,u8 dat)
{
GlobalData[temp][x][y] = dat;
}
//置零白方或黑方的各个位置的权值.
void RestGlobalData(void)
{
u8 i,j,k;
for(i=0;i<8;i++)
{
for(j=0;j<15;j++)
{
for(k=0;k<15;k++)
{
WriteGlobalData(i,j,k,0);
}
}
}
}
四.单片机下棋应用函数.
1.//得到白方或黑方各个位置上,四个方向上的权值.
void Optimal(u8 color)//全局zuiyou棋子分析.color 1--黑棋 2--白棋
{
int i,d;
int x,y;
u8 temp;
switch(color)
{
case (1): temp=0; break;
case (2):temp=4; break;
}
for(x=0;x<15;x++)
{
for(y=0;y<15;y++)
{
if(ReadData(x,y) == 0)
{
d=0;
for(i=1;i<5;i++)//x方向.
{
if(ReadData(x-i,y) != color || (x-i) == 0)
break;
else
d++;
}
for(i=1;i<5;i++)
{
if(ReadData(x+i,y) != color || (x+i) == 14)
break;
else
d++;
}
WriteGlobalData(temp,x,y,d);
d=0;
for(i=1;i<5;i++)//y方向.
{
if(ReadData(x,y-i) != color || (y-i) == 0)
break;
else
d++;
}
for(i=1;i<5;i++)
{
if(ReadData(x,y+i) != color || (y+i) ==14)
break;
else
d++;
}
WriteGlobalData(temp+1,x,y,d);
d=0;
for(i=1;i<5;i++)//
{
if(ReadData(x-i,y-i) != color || (x-i) == 0 || (y-i) == 0)// "\"方向
break;
else
d++;
}
for(i=1;i<5;i++)
{
if(ReadData(x+i,y+i) != color || (x+i) == 14 || (y+i) == 14)//
break;
else
d++;
}
WriteGlobalData(temp+2,x,y,d);
d=0;
for(i=1;i<5;i++)//
{
if(ReadData(x-i,y+i) != color || (x-i) == 0 || (y+i) == 14)// "/"方向
break;
else
d++;
}
for(i=1;i<5;i++)
{
if(ReadData(x+i,y-i) != color || (x+i) == 14 || (y-i) == 0)//
break;
else
d++;
}
WriteGlobalData(temp+3,x,y,d);
}
}
}
}
2.//选择白方或者黑方的最有利的位置落子.
//黑棋 四个方向上的数据放在 GlobalData[0][15][15]----GlobalData[3][15][15]
//白棋 四个方向上的数据放在 GlobalData[4][15][15]----GlobalData[7][15][15]
void Situationu(void)
{
int x,y;
u8 i;
u16 Mark;
u16 TotalMark,MaxMark=0;
u16 MarkTransform[5]={0,100,400,2000,10000};
Optimal(1);//heizi.
for(x=0;x<15;x++)
{
for(y=0;y<15;y++)
{
TotalMark=0;
for(i=0;i<4;i++)//四个方向
{
Mark = ReadGlobalData(x,y,i);
TotalMark += MarkTransform[Mark];
}
if(TotalMark > MaxMark)
{
Max_x=x;
Max_y=y;
MaxMark = TotalMark;
}
}
}
Optimal(2);//baizi.
for(x=0;x<15;x++)
{
for(y=0;y<15;y++)
{
TotalMark=0;
for(i=0;i<4;i++)
{
Mark = ReadGlobalData(x,y,i+4);
TotalMark += MarkTransform[Mark];
}
if(TotalMark > MaxMark)
{
Max_x=x;
Max_y=y;
MaxMark = TotalMark;
}
}
}
}
3.//选择有利位置落子.
void SetChess(void)
{
Situationu();
WriteData(Max_x,Max_y,2);
}
单片机下棋之后要置零权值数组.
RestGlobalData();//置位权值数组.
五.判断结果(判断黑棋或者白棋是否达到胜利条件,在某个棋子的各个方向上是否有任意一方向上有四个相同棋子)
u8 ResultCheck(u8 color)// 返回值：0：都未成功，1 白方胜利， 2黑方胜利
{
int x,y;
// 判断横向
for(y=0;y<15;y++)
{
for(x=0;x<11;x++)
{
if(color == ReadData(x,y) &&
color == ReadData(x+1,y) &&
color == ReadData(x+2,y) &&
color == ReadData(x+3,y) &&
color == ReadData(x+4,y) )
return color;
}
}
// 判断纵向
for(y=0;y<11;y++)
{
for(x=0;x<15;x++)
{
if(color == ReadData(x,y) &&
color == ReadData(x,y+1) &&
color == ReadData(x,y+2) &&
color == ReadData(x,y+3) &&
color == ReadData(x,y+4) )
return color;
}
}
// 判断"\"方向
for(y=0;y<11;y++)
{
for(x=0;x<11;x++)
{
if(color == ReadData(x,y) &&
color == ReadData(x+1,y+1) &&
color == ReadData(x+2,y+2) &&
color == ReadData(x+3,y+3) &&
color == ReadData(x+4,y+4) )
return color;
}
}
// 判断"/"方向
for(y=0;y<11;y++)
{
for(x=4;x<15;x++)
{
if(color == ReadData(x,y) &&
color == ReadData(x-1,y+1) &&
color == ReadData(x-2,y+2) &&
color == ReadData(x-3,y+3) &&
color == ReadData(x-4,y+4) )
return color;
}
}
// 不满足胜利条件
return 0;
}
(1)这个程序没有添加任何的交互界面,只有能够运行的函数.
如果想添加胜利交互界面可以根据ResultCheck()的返回值,弹出相应界面.
并清零棋盘数组ChessBoard[15][15]重新开始.
(2)显而易见的这个程序只是机械式的向权值最大处落子,如果赢了一局之后按原先的步骤再次落子你依然会赢,并且单片机所走的步骤也不有任何的改变.所以请把它当做一个小小的游戏.
(3)希望对你有所帮助.一起学习~
因个人能力有限,难免有疏漏之处.
望通知已便改正.
