科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件VB.NET实现五子棋的人工智能

VB.NET实现五子棋的人工智能

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

介绍用vb.net实现策略类的人工智能

作者:张宇 来源:论坛 2007年11月9日

关键字:

  • 评论
  • 分享微博
  • 分享邮件
使用vb.net编写五子棋

  一、编写前的准备:

  1、用计算机的思想描述整个下棋的过程

  考虑步骤:

  (1)为了简便我们可以先让电脑先走第一步棋,电脑每走一步就会封掉许多玩家的获胜可能情况。

  (2)当玩家走棋的时候我们首先应该考虑玩家走棋的合法性。

  (3)如果合法,那么玩家也会封掉许多电脑的获胜的可能情况。

  (4)电脑的思考路径:首先判断当前玩家和电脑的所有获胜组合是否需要进行加强赋值,
是进行加强赋值,否则进行普通的赋值。

  (5)比较当前玩家和电脑谁的分值最大。将分值最大的点作为电脑的下一步走法。

  2、利用vb.net窗体和图形工具建立五子棋的棋盘界面

  (1)添加一个picturebox控件

  作用:使用picturebox控件绘制棋子和棋盘

  (2)添加一个label控件

  作用:显示当前的获胜标志,也就是当某一方获胜或和棋时显示此标签。

  (3)添加一个mainmenu控件

  作用:控制游戏的开始或结束

  (4)添加一个mediaplay组件

  作用:使程序可以播放音乐。

  3、设置整体框价

  我们采取10*10的棋盘,为主要的平台。利用数组定义整个棋盘桌面,利用数组定义获胜组合以及获胜标志等。

  二,声明全局数组和变量

  定义虚拟桌面:

Dim table(9, 9) As Integer

  定义当前玩家桌面空格的分数:

Dim pscore(9, 9) As Integer

  定义当前电脑桌面空格的分数:

Dim cscore(9, 9) As Integer

  定义玩家的获胜组合:

Dim pwin(9, 9, 191) As Boolean

  定义电脑的获胜组合:

Dim cwin(9, 9, 191) As Boolean

  定义玩家的获胜组合标志:

Dim pflag(191) As Boolean

  定义电脑的获胜组合标志:
Dim cflag(191) As Boolean

  定义游戏有效标志:

Dim theplayflag As Boolean
    • 评论
    • 分享微博
    • 分享邮件
    闂備緡鍙庨崰鏇炩枎閵忋垺濯奸柕蹇嬪€栭~锟�

    婵犵鈧啿鈧綊鎮樻径鎰畺闁靛ň鏅滄慨婊堟偨椤栨稓鎽冮柟鐑╂櫊瀹曟岸宕堕埡鍌滄殸闂佽鍨伴崢鏍姳閿涘嫭鍠嗘い銈呭姬婵☆偅婢樺Λ妤呮偂濞嗘挸瀚夐柍褜鍓熷顒侊紣娓氣偓閻涙捇鏌涘┑鍛樂缂佹鐭傞獮搴ㄥ焵椤掑嫬瀚夋い鏍ㄧ懁缁诲棝鏌熼褍鐏茬紒杈ㄧ箞閺屽洭鏁愰崟顓犳澖闁荤姳闄嶉崹钘壩i崟顖涘殜闁硅泛顫曢埀顒€锕︾槐鏃堝箣閻愬弬妤呮煛閸偄鐏﹂柛瀣墬缁傛帞鎹勯搹瑙勵啈闂佸搫瀚烽崹閬嶅磻瀹ュ鍎嶉柛鏇ㄥ墯娴犳ê霉閿濆棗鈻曢柍褜鍓氶弻銊ф閻愬鈻曢悗锝傛櫇椤忛亶鏌曢崱顓熷

    重磅专题
    往期文章
    最新文章