五子棋的人工智能
———— 利用策略类AI和vb.net实现五子棋
作者:张宇
六,电脑算法(1)
''''*****************************************************************************
''''** 模块名称: diannao
''''**
''''** 描述: 此程序主要执行以下功能:
''''** 1. 初始化赋值系统。
''''** 2. 赋值加强算法。
''''** 3. 计算电脑和玩家的最佳攻击位。
''''** 4. 比较电脑和玩家的最佳攻击位并决定电脑的最佳策略。
''''** 5. 执行检查获胜函数。
Sub diannao()
Dim i, j, k, m, n As Integer
Dim dc As Integer
Dim cab As Integer
Dim pab As Integer
For i = 0 To 9
For j = 0 To 9
pscore(i, j) = 0
cscore(i, j) = 0
Next
''''初始化赋值数组
'''''''''''' ******** 电脑加强算法 ********
For i = 0 To 191
If cflag(i) = True Then
cab = 0
For k = 0 To 9
If table(j, k) = 1 Then
If cwin(j, k, i) = True Then
cab = cab + 1
End If
[1] [2] [3] [4] 下一页
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18