End If
Next
''''重设电脑的获胜标志
checkwin()
''''检查当前玩家是否获胜
diannao()
''''调用电脑算法
End Sub
五,获胜检查算法。
''''*****************************************************************************
''''** 模块名称: checkwin
''''**
''''** 描述: 此模块执行以下功能:
''''** 1. 检查是否和棋。
''''** 2. 检查电脑是否获胜。
''''** 3. 检查玩家是否获胜。
Sub checkwin()
Dim i, j, k, m, n As Integer
Dim ca As Integer
Dim pa As Integer
Dim cnormal As Integer = 0
For i = 0 To 191
If cflag(i) = False Then
cnormal = cnormal + 1
If cnormal = 190 Then
Label1.Visible = True
Label1.Text = "和棋,请重新开始!"
PictureBox1.Refresh()
theplayflag = False
Exit Sub
''''设定和棋规则
If cflag(i) = True Then
ca = 0
For j = 0 To 9
For k = 0 To 9
If table(j, k) = 1 Then
If cwin(j, k, i) = True Then
ca = ca + 1
上一页 [1] [2] [3] 下一页
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18