1.VB中国象棋源代码
2.vb做一个简单的小程序

VB中国象棋源代码

       中国象棋程序一般是源码源码用通过穷举法，列出人脑接下来可能走的简单微猪科技源码棋，然后列出各种可能的源码源码用应对方案，然后选择胜率较大的简单squid源码包下载方案进行走棋，其实就是源码源码用系统模板源码下载把策略的思考转化为了概率的计算。

       当然，简单中国象棋软件也要具有一定的源码源码用策略思考能力、棋局的简单分析能力。其次是源码源码用要有效率，像人一样要“背”一些棋谱！简单

       至于源码，源码源码用不用我发了吧，简单安装游戏加速源码以上已经讲得很清楚了，源码源码用刚学编程的简单游戏源码教程论坛都会写了。

       (仅供参考)

二、中国象棋的源代码

        中国象棋源代码blackleft(){  int x,y,n;  if(blackcurpos.y>0)  {    blackcurposition[blacktemppos.x][blacktemppos.y].x;      y=position[blacktemppos.x][blacktemp      if(board[b.x][blacktemppos.y]==0)        drawbmp(xfile[blacblacktemppos.ylacktemppos.x==blackoldpos.x        drawbmp(x);      }      if(blacktemppos.x==blackoldpos.x      drawcursor(blackcurpos);      blacktemppos.x=blackcuemppos.y=blackcurpos.y;  }}blackright()lackcurpos.y<8)  {    blackcurpos.tion[blacktemppktemppos.ysition[blacktemppos.x][blacktemppos.y].y;      if(board[blacktemppos.x][blacktemppos.y]==0)        drawbmp(x,y,boardfile[blacktemppos.x][blacktemppos.y]);      else if(.x==blackoldpos.x        drawbhessfile[ncktemppos.x==blackoldpos.x      drawcursor(blackcurpos);      blacktemppos.x=blactemppos.ys.y;  }}blackdon;  if(blackstate==SELECT      drawselecursor(blackcurpos);      blackoldpos.x=blackcurpos.x;      blackoldpos.y=blackcurpos.y;    }  }  else if(blackstate==MOVE    y=position[blackoldpos.x][blackoldpos.y].y;    drawbmp(x,y,boardfile[blackoldpos.x][blackoldpos.y]);    x=position[blackcurpos.x][blackcurpos.y].x;    y=position[blackcurpos.x][blackcurpos.y].y;    n=board[blackoldpos.x][blackoldpos.y];    drawbmp(x,y,chessfile[n]);    if(board[blackcurpos.x][blackcurpos.y]==RED_JIANG)    {      winner=BLACK;      finish=1;      return;    }    board[blackcurpos.x][blackcurpos.y]=n;    board[blackoldpos.x][blackoldpos.y]=0;    for(i=0;i<=2;i)      for(j=3;j<=5;j)        if(board[i][j]==BLACK_JIANG)          { x=i;y=j;}    for(i=x1,j=y,n=0;i<=9;i)    {      if(board[i][j]==RED_JIANGfinish=1;break;}      else if(board[i][j]!=0) n;    }       turn=RED;    redstate=SELECT;    drawcursor(redcurpos);    drawbmp(,,"bmp\.wfb");               /转交控制权给红方/  } }blackundo(){  int x,y,n;  if(blackstate==MOVE)  {    x=position[blackoldpos.x][blackoldpos.y].x;    y=position[blackoldpos.x][blackoldpos.y].y;    n=board[blackoldpos.x][blackoldpos.y];    drawbmp(x,y,chessfile[n]);    blackoldpos.x=blackcurpos.x;    blackoldpos.y=blackcurpos.y;    drawcursor(blackcurpos);    blackstate=SELECT;  }}/----------------------------------------------------/start(){  drawcursor(blackcurpos);  drawbmp(,,"bmp\.wfb");  while(!finish)  {    key=getkey();    switch(key){      case RED_UP:           if(turn==RED)      redup();    break;      case RED_DOWN:           if(turn==RED)      reddown();    break;      case RED_LEFT:           if(turn==RED)      redleft();    break;      case RED_RIGHT:           if(turn==RED)      redright();    break;      case RED_DO:           if(turn==RED)      reddo();    break;      case RED_UNDO:           if(turn==RED)      redundo();    break;         case BLACK_UP:           if(turn==BLACK)      blackup();    break;      case BLACK_DOWN:           if(turn==BLACK)      blackdown();    break;      case BLACK_LEFT:           if(turn==BLACK)      blackleft();    break;      case BLACK_RIGHT:           if(turn==BLACK)      blackright();    break;      case BLACK_DO:    if(turn==BLACK)      blackdo();    break;      case BLACK_UNDO:    if(turn==BLACK)      blackundo();    break;      case ESCAPE:  finish=1;break;    }     }}main(){  init();  initpos();  initchesap();  drawbmp(0,0,"bmp\.wfb");  initdrawchess();  /初始化光标位置/  redcurpos.x=redoldpos.x=redtemppos.x=9;  redcurpos.y=redoldpos.y=redtemppos.y=8;  blackcurpos.x=blackoldpos.x=blacktemppos.x=0;  blackcurpos.y=blackoldpos.y=blacktemppos.y=0;/开始/  start();  if(winner==RED)    drawbmp(,,"bmp\.wfb");  else if(winner==BLACK)    drawbmp(,,"bmp\.wfb");  else    drawbmp(,,"bmp\.wfb");  getch();  end();}

三、中国象棋的源代码

       中国象棋源代码blackleft(){  int x,y,n;  if(blackcurpos.y>0)  {    blackcurpos.y--;         x=position[blacktemppos.x][blacktemppos.y].x;      y=position[blacktemppos.x][blacktemppos.y].y;      if(board[blacktemppos.x][blacktemppos.y]==0)        drawbmp(x,y,boardfile[blacktemppos.x][blacktemppos.y]);      else if(!(blacktemppos.x==blackoldpos.x        drawbmp(x,y,chessfile[n]);      }      if(blacktemppos.x==blackoldpos.x      drawcursor(blackcurpos);      blacktemppos.x=blackcurpos.x;      blacktemppos.y=blackcurpos.y;  }}blackright(){  int x,y,n;  if(blackcurpos.y<8)  {    blackcurpos.y;         x=position[blacktemppos.x][blacktemppos.y].x;      y=position[blacktemppos.x][blacktemppos.y].y;      if(board[blacktemppos.x][blacktemppos.y]==0)        drawbmp(x,y,boardfile[blacktemppos.x][blacktemppos.y]);      else if(!(blacktemppos.x==blackoldpos.x        drawbmp(x,y,chessfile[n]);      }      if(blacktemppos.x==blackoldpos.x      drawcursor(blackcurpos);      blacktemppos.x=blackcurpos.x;      blacktemppos.y=blackcurpos.y;  }}blackdo(){  int i,j,x,y,n;  if(blackstate==SELECT      drawselecursor(blackcurpos);      blackoldpos.x=blackcurpos.x;      blackoldpos.y=blackcurpos.y;    }  }  else if(blackstate==MOVE    y=position[blackoldpos.x][blackoldpos.y].y;    drawbmp(x,y,boardfile[blackoldpos.x][blackoldpos.y]);    x=position[blackcurpos.x][blackcurpos.y].x;    y=position[blackcurpos.x][blackcurpos.y].y;    n=board[blackoldpos.x][blackoldpos.y];    drawbmp(x,y,chessfile[n]);    if(board[blackcurpos.x][blackcurpos.y]==RED_JIANG)    {      winner=BLACK;      finish=1;      return;    }    board[blackcurpos.x][blackcurpos.y]=n;    board[blackoldpos.x][blackoldpos.y]=0;    for(i=0;i<=2;i)      for(j=3;j<=5;j)        if(board[i][j]==BLACK_JIANG)          { x=i;y=j;}    for(i=x1,j=y,n=0;i<=9;i)    {      if(board[i][j]==RED_JIANGfinish=1;break;}      else if(board[i][j]!=0) n;    }       turn=RED;    redstate=SELECT;    drawcursor(redcurpos);    drawbmp(,,"bmp\\rzq.wfb");               /转交控制权给红方/  } }blackundo(){  int x,y,n;  if(blackstate==MOVE)  {    x=position[blackoldpos.x][blackoldpos.y].x;    y=position[blackoldpos.x][blackoldpos.y].y;    n=board[blackoldpos.x][blackoldpos.y];    drawbmp(x,y,chessfile[n]);    blackoldpos.x=blackcurpos.x;    blackoldpos.y=blackcurpos.y;    drawcursor(blackcurpos);    blackstate=SELECT;  }}/----------------------------------------------------/start(){  drawcursor(blackcurpos);  drawbmp(,,"bmp\\bzq.wfb");  while(!finish)  {    key=getkey();    switch(key){      case RED_UP:           if(turn==RED)      redup();    break;      case RED_DOWN:           if(turn==RED)      reddown();    break;      case RED_LEFT:           if(turn==RED)      redleft();    break;      case RED_RIGHT:           if(turn==RED)      redright();    break;      case RED_DO:           if(turn==RED)      reddo();    break;      case RED_UNDO:           if(turn==RED)      redundo();    break;         case BLACK_UP:           if(turn==BLACK)      blackup();    break;      case BLACK_DOWN:           if(turn==BLACK)      blackdown();    break;      case BLACK_LEFT:           if(turn==BLACK)      blackleft();    break;      case BLACK_RIGHT:           if(turn==BLACK)      blackright();    break;      case BLACK_DO:    if(turn==BLACK)      blackdo();    break;      case BLACK_UNDO:    if(turn==BLACK)      blackundo();    break;      case ESCAPE:  finish=1;break;    }     }}main(){  init();  initpos();  initchesap();  drawbmp(0,0,"bmp\\board.wfb");  initdrawchess();  /初始化光标位置/  redcurpos.x=redoldpos.x=redtemppos.x=9;  redcurpos.y=redoldpos.y=redtemppos.y=8;  blackcurpos.x=blackoldpos.x=blacktemppos.x=0;  blackcurpos.y=blackoldpos.y=blacktemppos.y=0;/开始/  start();  if(winner==RED)    drawbmp(,,"bmp\\redwin.wfb");  else if(winner==BLACK)    drawbmp(,,"bmp\\blackwin.wfb");  else    drawbmp(,,"bmp\\exit.wfb");  getch();  end();}

vb做一个简单的小程序

       Option Explicit

       Private Sub Form_Load()

        ShockwaveFlash1.Movie = "D:\wwwroot\KuFang\images\1.swf"

        ShockwaveFlash1.Menu = False

        ShockwaveFlash1.Playing = True

       End Sub

       Private Sub Timer1_Timer()

        End

       End Sub

       å»ºä¸€ä¸ªæ— è¾¹æ¡†çª—体,复制上面代码进去就OK了

       å·¥ç¨‹æ–‡ä»¶ç»™ä½ å‘过去了 后发的是修改过的 免去了需要修改路径的麻烦