| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2524 人关注过本帖
标题:[求助]VB五子棋的编程
只看楼主 加入收藏
tan1003
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-1-13
收藏
得分:0 
你的代码我怎么没找到晕
2007-01-14 21:42
海蓝啸
Rank: 5Rank: 5
来 自:安徽
等 级:贵宾
威 望:17
帖 子:1611
专家分:0
注 册:2006-4-3
收藏
得分:0 

这个社会太复杂。。。
2007-01-14 21:57
海蓝啸
Rank: 5Rank: 5
来 自:安徽
等 级:贵宾
威 望:17
帖 子:1611
专家分:0
注 册:2006-4-3
收藏
得分:0 
网络版源码我没有传上来

这个社会太复杂。。。
2007-01-14 22:00
tan1003
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-1-13
收藏
得分:0 

海蓝 你帮我看下这个 比较简单的 代码怎样 我感觉和你的方法是一样的:
Option Explicit
Dim blackturn As Boolean '轮到黑方下子
Dim whiteturn As Boolean '轮到白方下子
Dim table(0 To 15, 0 To 15) As Integer '用此二维数组表示棋盘
Dim inti As Integer '数组元素……
Dim intj As Integer
Dim boolstatus As Boolean '表示棋局状态:进行/结束
Private Sub Form_Load()
'画棋盘
Form_Paint
blackturn = True '黑方先下
boolstatus = True '开始
Label1.Caption = "黑方先下"
End Sub
Private Sub command2_Click() '关闭窗口
Unload Me
Set wzq = Nothing
End Sub
Private Sub command1_Click() '重新开始
'窗口清除
Me.Cls
'数组清零
For inti = 0 To 15
For intj = 0 To 15
table(inti, intj) = 0
Next
Next
'重画棋盘
Form_Load
End Sub
'下子
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim intx As Integer '落子横向位置
Dim inty As Integer '落子竖向位置
'确定棋局是否在进行中,否,跳出
If boolstatus = False Then
Label1.Caption = "结束"
Exit Sub
End If
'确定落子的确切位置
'如果鼠标点击位置不在棋盘中,则跳出
If x < 10 Or x > 310 Or y < 10 Or y > 310 Then
Exit Sub
End If
'如果鼠标点击位置在棋盘中,则转化为相应棋盘落子点的坐标
If (x - 10) Mod 20 < 10 Then
intx = x - (x - 10) Mod 20
Else
intx = x + 20 - (x - 10) Mod 20
End If
If (y - 10) Mod 20 < 10 Then
inty = y - (y - 10) Mod 20
Else
inty = y + 20 - (y - 10) Mod 20
End If
'把坐标转换成数组中的相应元素
inti = (intx - 10) / 20
intj = (inty - 10) / 20
'如果该数组元素不为零,即表示棋盘中相应点已有棋子,则跳出
If table(inti, intj) <> 0 Then
Exit Sub
End If
'画子(圆)
If blackturn = True Then
'黑色
Me.FillColor = RGB(0, 0, 0)
table(inti, intj) = 1 '黑子赋1
Label1.Caption = "白方"
Else
'白色
Me.FillColor = RGB(255, 255, 255)
table(inti, intj) = 2 '白子赋2
Label1.Caption = "黑方"
End If
Me.FillStyle = 0 '不可缺
Me.Circle (intx, inty), 8
'判断是否有五子连线
Call judgeman
'轮流
blackturn = Not blackturn '取反
End Sub
Private Sub judgeman() '判断是否有五子连线
Dim strwho As String '下子方名称
If table(inti, intj) = 1 Then '表示黑方下的子
strwho = "黑方"
Else
strwho = "白方"
End If
'分别判断横竖,对角线是否有五子,此段代码比较复杂,可能那以理解,但其执行效率极高
'非常适合与棋盘格子很多的情况
If samelinenums(1, 0) >= 5 Or samelinenums(0, 1) >= 5 Or samelinenums(1, 1) >= 5 Or samelinenums(-1, 1) >= 5 Then
MsgBox strwho & "胜!"
boolstatus = False '棋局结束
End If
End Sub
Function samelinenums(changei As Integer, changej As Integer) '判断同一直线上的棋子数
Dim i As Integer
Dim j As Integer
Dim num As Integer '同一线上相同颜色棋子数
'计算落子一边同颜色的棋子数
i = inti: j = intj
Do
If table(i, j) <> table(inti, intj) Then
num = max(Abs(inti - i), Abs(intj - j))
Exit Do
End If
i = i + changei: j = j + changej
Loop Until i < 0 Or i > 15 Or j < 0 Or j > 15
'计算落子另一边同颜色的棋子数
i = inti: j = intj
Do
If table(i, j) <> table(inti, intj) Then
num = num - 1 + max(Abs(inti - i), Abs(intj - j))
Exit Do
End If
i = i - changei: j = j - changej
Loop Until i < 0 Or i > 15 Or j < 0 Or j > 15
'MsgBox num
samelinenums = num
End Function
'求较大值
Function max(inta As Integer, intb As Integer)
max = inta
If max < intb Then max = intb
End Function
Private Sub Form_Paint() '以(10,10)为左上角坐标画一个16*16,每格边长为20象素的棋盘
Cls '清除
Dim i As Integer
ScaleMode = 3 '设定窗体画布的单位为象素
For i = 10 To 330 Step 20
Me.Line (10, i)-(330, i)
Me.Line (i, 10)-(i, 330)
Next
End Sub

2007-01-15 13:33
tan1003
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-1-13
收藏
得分:0 
就是我哪个题目要求 黑方先在天元点上下 第一个 然后白方再下 怎么改呢
2007-01-15 13:39
海蓝啸
Rank: 5Rank: 5
来 自:安徽
等 级:贵宾
威 望:17
帖 子:1611
专家分:0
注 册:2006-4-3
收藏
得分:0 
代码太长了。。。看不下去。。。我大致看了下注释,实现思想应该是一样的吧。。

另外这个是什么意思 “天元点”

这个社会太复杂。。。
2007-01-15 17:54
fhquuje
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-9-12
收藏
得分:0 
Thank You !!
2007-09-12 19:30
快速回复:[求助]VB五子棋的编程
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.014566 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved