可供两人对弈的中国象棋程序

// Sample 10-4: 中国象棋程序#include <afxwin.h>// 棋盘类class CPlate{int m_ndx; // 棋盘格宽int m_ndy; // 棋盘格高int m_nLeft; // 棋盘位置int m_nTop;int m_nRight;int m_nBottom;public:CPlate();void ShowPlate(CDC *pDC);void DrawConer(CDC *pDC, int row, int col, int type);CPoint GetPosition(int col, int row);};// 棋盘类的成员函数// 构造函数: 初始化CPlate::CPlate(){m_ndx = 50;m_ndy = 45;m_nLeft = 198;m_nTop = 30;m_nRight = m_nLeft+m_ndx*8;m_nBottom = m_nTop+m_ndy*9;}// 显示棋盘void CPlate::ShowPlate(CDC *pDC){// 画棋盘方格CPen penRed2(PS_SOLID,2,RGB(255,0,0));CPen *pOldPen = pDC->SelectObject(&penRed2);for(int i=0; i<10; i++){pDC->MoveTo(m_nLeft, m_nTop+i*m_ndy);pDC->LineTo(m_nRight, m_nTop+i*m_ndy);}for(i=0; i<9; i++){if(i==0 || i==8){pDC->MoveTo(m_nLeft+i*m_ndx, m_nTop);pDC->LineTo(m_nLeft+i*m_ndx, m_nBottom);}else{pDC->MoveTo(m_nLeft+i*m_ndx, m_nTop);pDC->LineTo(m_nLeft+i*m_ndx, m_nTop+4*m_ndy);pDC->MoveTo(m_nLeft+i*m_ndx, m_nTop+5*m_ndy);pDC->LineTo(m_nLeft+i*m_ndx, m_nBottom);}}// 画棋盘斜线pDC->SelectObject(pOldPen);CPen penRed1(PS_SOLID,1,RGB(255,0,0));pOldPen = pDC->SelectObject(&penRed1);pDC->MoveTo(m_nLeft+3*m_ndx, m_nTop);pDC->LineTo(m_nLeft+5*m_ndx, m_nTop+2*m_ndy);pDC->MoveTo(m_nLeft+3*m_ndx, m_nTop+2*m_ndy);pDC->LineTo(m_nLeft+5*m_ndx, m_nTop);pDC->MoveTo(m_nLeft+3*m_ndx, m_nBottom);pDC->LineTo(m_nLeft+5*m_ndx, m_nBottom-2*m_ndy);pDC->MoveTo(m_nLeft+3*m_ndx, m_nBottom-2*m_ndy);pDC->LineTo(m_nLeft+5*m_ndx, m_nBottom);pDC->SelectObject(pOldPen);// 画兵, 炮位标记DrawConer(pDC, 2, 1, 0);DrawConer(pDC, 2, 7, 0);DrawConer(pDC, 3, 0, 1);DrawConer(pDC, 3, 2, 0);DrawConer(pDC, 3, 4, 0);DrawConer(pDC, 3, 6, 0);DrawConer(pDC, 3, 8, 2);DrawConer(pDC, 7, 1, 0);DrawConer(pDC, 7, 7, 0);DrawConer(pDC, 6, 0, 1);DrawConer(pDC, 6, 2, 0);DrawConer(pDC, 6, 4, 0);DrawConer(pDC, 6, 6, 0);DrawConer(pDC, 6, 8, 2);}// 绘制兵, 炮位标志void CPlate::DrawConer(CDC *pDC, int row, int col, int type) {CPen penRed1(PS_SOLID,1,RGB(255,0,0));CPen *pOldPen = pDC->SelectObject(&penRed1);if(type == 0 || type == 1){pDC->MoveTo(m_nLeft+col*m_ndx+ 3, m_nTop+row*m_ndy-10);pDC->LineTo(m_nLeft+col*m_ndx+ 3, m_nTop+row*m_ndy-3);pDC->LineTo(m_nLeft+col*m_ndx+10, m_nTop+row*m_ndy-3);pDC->MoveTo(m_nLeft+col*m_ndx+ 3, m_nTop+row*m_ndy+10);pDC->LineTo(m_nLeft+col*m_ndx+ 3, m_nTop+row*m_ndy+3);pDC->LineTo(m_nLeft+col*m_ndx+10, m_nTop+row*m_ndy+3);}if(type == 0 || type == 2){pDC->MoveTo(m_nLeft+col*m_ndx- 3, m_nTop+row*m_ndy-10);pDC->LineTo(m_nLeft+col*m_ndx- 3, m_nTop+row*m_ndy-3);pDC->LineTo(m_nLeft+col*m_ndx-10, m_nTop+row*m_ndy-3);pDC->MoveTo(m_nLeft+col*m_ndx- 3, m_nTop+row*m_ndy+10);pDC->LineTo(m_nLeft+col*m_ndx- 3, m_nTop+row*m_ndy+3);pDC->LineTo(m_nLeft+col*m_ndx-10, m_nTop+row*m_ndy+3);}pDC->SelectObject(pOldPen);}// 取棋盘上各交叉点的坐标CPoint CPlate::GetPosition(int col, int row){CPoint point;point.x = m_nLeft+col*m_ndx;point.y = m_nTop+row*m_ndy;return point;// 棋子类// 定义棋子名称#define BING 1#define PAO 2#define JU 3#define MA 4#define XIANG 5#define SHI 6#define JIANG 7class CStone{BOOL m_bRed; // 是否红方BOOL m_bSelected; // 是否被选择int m_nCol; // 路int m_nRow; // 行CRect m_rectStone; // 棋子包含矩形BOOL m_bShow; // 是否显示CString m_sName; // 棋子名称int m_nR; // 棋子半径int m_nType; // 棋子类型public:CStone (){}CStone (BOOL red, int col, int row, LPCSTR name, int type, CPlate &plate);void ShowStone(CDC *pDC);void MoveTo(int col, int row, CPlate &plate);CRect GetRect(){return m_rectStone;}int GetType(){return m_nType;}BOOL BeKilled(int col, int row){return m_bShow && m_nCol==col && m_nRow == row;}BOOL M ouseOnStone(CPoint point){return m_rectStone.PtInRect(point) && m_bShow;}void K illIt(){m_bShow = FALSE;}void S electStone(){m_bSelected = !m_bSelected;}};// 棋子类的成员函数// 棋子类的构造函数：初始化棋子CStone::CStone(BOOL red, int col, int row, LPCSTR name, int type, CPlate &plate)m_bShow = TRUE;m_bSelected = FALSE;m_bRed = red;m_nCol = col;m_nRow = row;m_sName = name;m_nType = type;m_nR = 23;CPoint pos = plate.GetPosition(col, row);m_rectStone = CRect(pos.x-m_nR, pos.y-m_nR, pos.x+m_nR, pos.y+m_nR); }// 显示棋子void CStone::ShowStone(CDC *pDC){if(m_bShow) // 只有未被吃掉的棋子才显示{// 准备画棋子的画笔和画刷CPen *pOldPen, penNormal(PS_SOLID, 3, RGB(120, 120, 120));CBrush *pOldBrush, brushNormal, brushSelected;brushNormal.CreateSolidBrush(RGB(255, 255, 0));brushSelected.CreateSolidBrush(RGB(127, 127, 0));pOldPen = pDC->SelectObject(&penNormal);// 被选中的棋子颜色不同if(m_bSelected)pOldBrush = pDC->SelectObject(&brushSelected);elsepOldBrush = pDC->SelectObject(&brushNormal);// 显示棋子CRect r(m_rectStone);r.left ++;r.top ++;r.right --;r.bottom--;pDC->Ellipse(r);pDC->SelectObject(pOldPen);pDC->SelectObject(pOldBrush);// 准备显示棋子名称的字体CFont *pOldFont, fontStone;fontStone.CreateFont(40, 0, 0, 0, 400, FALSE, FALSE,0, OEM_CHARSET, OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,DEFAULT_PITCH, "楷体");pOldFont = pDC->SelectObject(&fontStone);int tx = m_rectStone.left+6;int ty = m_rectStone.top+6;pDC->SetBkMode(TRANSPARENT);// 棋子背景均为黄色，字分红、黑两色pDC->SetTextColor(RGB(m_bRed?255:0, 0, 0));pDC->TextOut(tx, ty, m_sName);pDC->SelectObject(pOldFont);}}// 将棋子放到指定位置void CStone::MoveTo(int col, int row, CPlate &plate){m_bSelected = FALSE;m_nCol = col;m_nRow = row;CPoint pos = plate.GetPosition(col, row);m_rectStone = CRect(pos.x-m_nR, pos.y-m_nR, pos.x+m_nR, pos.y+m_nR); }// 框架窗口类class CMyWnd: public CFrameWnd{CPlate m_Plate; // 棋盘CStone m_StoneList[32]; // 棋子数组BOOL m_bRedTurn; // 轮红方下BOOL m_bSelectOne; // 已选择一棋子int m_nWhichStone; // 被选择棋子的编号CRect m_rectInfo; // 信息显示位置public:CMyWnd(){InitGame();}void InitGame();void ShowInfo(CDC *pDC);BOOL KillSelfStone(int col, int row, BOOL red);int KillEnemy(int col, int row, BOOL red);void MoveStone(CPoint point);void SelectStone(CPoint point);void Go(CPoint);BOOL MoveTo(int, int);protected:afx_msg void OnPaint();afx_msg void OnLButtonDown(UINT nFlags, CPoint point);DECLARE_MESSAGE_MAP()};// 消息映射BEGIN_MESSAGE_MAP(CMyWnd,CFrameWnd)ON_WM_PAINT()ON_WM_LBUTTONDOWN()END_MESSAGE_MAP()// 框架窗口类的成员函数// 初始化棋局void CMyWnd::InitGame(){m_bRedTurn = TRUE;m_bSelectOne = FALSE;m_rectInfo = CRect(315, 480, 515, 550);m_StoneList[ 0] = CStone(TRUE, 0, 0, "车", 3, m_Plate);m_StoneList[ 1] = CStone(TRUE, 1, 0, "马", 4, m_Plate);m_StoneList[ 2] = CStone(TRUE, 2, 0, "象", 5, m_Plate);m_StoneList[ 3] = CStone(TRUE, 3, 0, "士", 6, m_Plate);m_StoneList[ 4] = CStone(TRUE, 4, 0, "将", 7, m_Plate);m_StoneList[ 5] = CStone(TRUE, 5, 0, "士", 6, m_Plate);m_StoneList[ 6] = CStone(TRUE, 6, 0, "象", 5, m_Plate);m_StoneList[ 7] = CStone(TRUE, 7, 0, "马", 4, m_Plate);m_StoneList[ 8] = CStone(TRUE, 8, 0, "车", 3, m_Plate);m_StoneList[ 9] = CStone(TRUE, 1, 2, "炮", 2, m_Plate);m_StoneList[10] = CStone(TRUE, 7, 2, "炮", 2, m_Plate);m_StoneList[11] = CStone(TRUE, 0, 3, "兵", 1, m_Plate);m_StoneList[12] = CStone(TRUE, 2, 3, "兵", 1, m_Plate);m_StoneList[13] = CStone(TRUE, 4, 3, "兵", 1, m_Plate);m_StoneList[14] = CStone(TRUE, 6, 3, "兵", 1, m_Plate);m_StoneList[15] = CStone(TRUE, 8, 3, "兵", 1, m_Plate);m_StoneList[16] = CStone(FALSE, 0, 9, "车", 3, m_Plate);m_StoneList[17] = CStone(FALSE, 1, 9, "马", 4, m_Plate);m_StoneList[18] = CStone(FALSE, 2, 9, "相", 5, m_Plate);m_StoneList[19] = CStone(FALSE, 3, 9, "仕", 6, m_Plate);m_StoneList[20] = CStone(FALSE, 4, 9, "帅", 7, m_Plate);m_StoneList[21] = CStone(FALSE, 5, 9, "仕", 6, m_Plate);m_StoneList[22] = CStone(FALSE, 6, 9, "相", 5, m_Plate);m_StoneList[23] = CStone(FALSE, 7, 9, "马", 4, m_Plate);m_StoneList[24] = CStone(FALSE, 8, 9, "车", 3, m_Plate);m_StoneList[25] = CStone(FALSE, 1, 7, "炮", 2, m_Plate);m_StoneList[26] = CStone(FALSE, 7, 7, "炮", 2, m_Plate);m_StoneList[27] = CStone(FALSE, 0, 6, "卒", 1, m_Plate);m_StoneList[28] = CStone(FALSE, 2, 6, "卒", 1, m_Plate);m_StoneList[29] = CStone(FALSE, 4, 6, "卒", 1, m_Plate);m_StoneList[30] = CStone(FALSE, 6, 6, "卒", 1, m_Plate);m_StoneList[31] = CStone(FALSE, 8, 6, "卒", 1, m_Plate); }// 处理 WM_ONPAINT 消息, 绘制窗口客户区 (绘制棋盘, 棋子等) void CMyWnd::OnPaint(){CPaintDC dc(this);m_Plate.ShowPlate(&dc); // 显示棋盘for(int i=0; i<32; i++) // 显示所有棋子m_StoneList[i].ShowStone(&dc);ShowInfo(&dc); // 显示轮谁行棋}// 处理 WM_ONLBUTTONDOWN 消息, 移动棋子void CMyWnd::OnLButtonDown(UINT nFlags, CPoint point){if(m_bSelectOne) // 已选择了要移动的棋子MoveStone(point);else // 尚未选择要移动的棋子SelectStone(point);}// 移动棋子void CMyWnd::MoveStone(CPoint point){// 如果选择原来的棋子, 作废原来的选择if(m_StoneList[m_nWhichStone].MouseOnStone(point)){m_StoneList[m_nWhichStone].SelectStone();m_bSelectOne = FALSE;InvalidateRect(m_StoneList[m_nWhichStone].GetRect(), FALSE);}else // 在棋盘其他位置行棋Go(point);}// 走棋或吃棋void CMyWnd::Go(CPoint point){for(int col=0; col<9; col++) // 检查鼠标是否指向某个棋盘交叉点for(int row=0; row<10; row++){CPoint p = m_Plate.GetPosition(col, row);CRect r(p.x-23, p.y-23, p.x+23, p.y+23);if(r.PtInRect(point)) // 鼠标指向该交叉点{if(KillSelfStone(col, row, m_bRedTurn))MessageBox("您竟然想吃自己人?!");elsem_bRedTurn = MoveTo(col, row);}}}// 移到指定位置或吃子BOOL CMyWnd::MoveTo(int col, int row){// 更新窗口客户区原来的棋子位置InvalidateRect(m_StoneList[m_nWhichStone].GetRect());// 棋子移向新位置m_StoneList[m_nWhichStone].MoveTo(col, row, m_Plate);// 更新窗口客户区新的棋子位置InvalidateRect(m_StoneList[m_nWhichStone].GetRect());// 还原选择棋子标志m_bSelectOne = FALSE;// 检查是否吃了对方的棋子int i = KillEnemy(col, row, m_bRedTurn);if(i>=0) // 确实吃了对方棋子{m_StoneList[i].KillIt();if(m_StoneList[i].GetType() == JIANG){if(m_bRedTurn)MessageBox(m_bRedTurn?"红方胜!":"黑方胜!");InitGame();Invalidate();return TRUE;}}// 更新窗口客户区提示信息位置InvalidateRect(m_rectInfo);return !m_bRedTurn;}// 选择棋子void CMyWnd::SelectStone(CPoint point){int nwhich = m_bRedTurn?0:16;// 逐个查看己方棋子是否被选中for(int i=nwhich; i<nwhich+16; i++)if(m_StoneList[i].MouseOnStone(point)){m_StoneList[i].SelectStone();// 更新窗口客户区被选中棋子的位置(该棋子要变色)InvalidateRect(m_StoneList[i].GetRect(), FALSE);m_nWhichStone = i;m_bSelectOne = TRUE;break;}}// 显示轮谁行棋void CMyWnd::ShowInfo(CDC *pDC){CFont *pOldFont, fontInfo;fontInfo.CreateFont(50, 0, 0, 0, 400, FALSE, FALSE,0, OEM_CHARSET, OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,DEFAULT_PITCH, "楷体");pOldFont = pDC->SelectObject(&fontInfo);pDC->SetTextColor(RGB(m_bRedTurn?255:0, 0, 0));pDC->TextOut(m_rectInfo.left, m_rectInfo.top,m_bRedTurn?"红方行棋": "黑方行棋");pDC->SelectObject(pOldFont);}// 检查是否误杀己方棋子BOOL CMyWnd::KillSelfStone(int col, int row, BOOL red) {int from = red?0:16;// 逐个检查己方棋子是否被误杀for(int i=from; i<from+16; i++)if( m_StoneList[i].BeKilled(col, row))return TRUE;return FALSE;}// 检查是否吃对方棋子int CMyWnd::KillEnemy(int col, int row, BOOL red){int from = red?16:0;// 逐个检查对方棋子是否被吃for(int i=from; i<from+16; i++)if( m_StoneList[i].BeKilled(col, row))return i;return -1;}// 应用程序类class CMyApp: public CWinApp{public:BOOL I nitInstance();};// 应用程序类的实例初始化函数BOOL CMyApp::InitInstance(){CMyWnd *pFrame = new CMyWnd;pFrame->Create(0,_T("中国象棋程序"));pFrame->ShowWindow(SW_SHOWMAXIMIZED);pFrame->UpdateWindow();this->m_pMainWnd = pFrame;return TRUE;}// 应用程序类的全局对象CMyApp ThisApp;。