不需要电脑和网络，就是一台机子，点第一下黑色，第二下白色，时间什么的可以省略，就是有和连着5个黑或者白的时候提示胜利，有从新开始，和认输就行了，求大神把原代码复制过来…还有步骤，界面怎么坐…麻烦教教…

我QQ171885859

大神快来帮帮忙…老师让做个这个

开发游戏通常很难的……

楼主我来帮你吧 你先得做一个网格来放棋子

Visual Basic范例开发大全 其中有一节讲五子棋 但是VB6.0 做的

不会vb.net的事件
搞了好久终于做出来
先发一下整个的思路
首先要循环创建15*15个PictureBox来当棋盘
然后记录每一个PictureBox的坐标 并且绑定事件
当点到图片框时触发事件 得到Tag
再把黑棋或白棋放上去
这时进行判断是否连成5子
————来自贴吧"境"客户端

先写了一点
Private Sub Table()
For row As Integer = 0 To 14 '横排
For col As Integer = 0 To 14 '竖排
pic = New PictureBox() '定义一个图片框
pic.Size = New Size(25, 25) '设置图片框大小
pic.BorderStyle = BorderStyle.FixedSingle '单行边框
pic.Location = New Point(row * 25, col * 25) '设置图片位置
pic.Tag = New Point(row, col) '记录图片自身的坐标
AddHandler DirectCast(pic, PictureBox).Click, AddressOf Pic_Click
Me.Controls.Add(pic) '添加
Next
Next
End Sub
Private Sub Pic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic.Click
'MsgBox(sender.Tag.ToString())此处获取单击图片的坐标
End Sub
————来自贴吧"境"客户端

写好了
Public Class Form1
Friend WithEvents pic As PictureBox
Private turn As Boolean = True
Private PicArray(15, 15) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Table()
End Sub
Private Sub Table()
For row As Integer = 0 To 14 '横排
For col As Integer = 0 To 14 '竖排
pic = New PictureBox() '定义一个图片框
pic.Size = New Size(25, 25) '设置图片框大小
pic.BorderStyle = BorderStyle.FixedSingle '单行边框
pic.Location = New Point(row * 25, col * 25) '设置图片位置
pic.Tag = New Point(row, col) '记录图片自身的坐标
pic.BackColor = Color.Moccasin '颜色
AddHandler DirectCast(pic, PictureBox).Click, AddressOf Pic_Click
Me.Controls.Add(pic) '添加
Next
Next
End Sub
Private Sub Pic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic.Click
If PicArray(sender.Tag.X, sender.Tag.Y) = 0 Then
If turn Then '如果turn=true就黑棋
sender.Image = New Bitmap("D:\Documents and Settings\Administrator\Desktop\Black.png")
PicArray(sender.Tag.X, sender.Tag.Y) = 1 '黑棋赋值1
turn = False
Check(sender.Tag.X, sender.Tag.Y, 1)
Else '反之白棋
sender.Image = New Bitmap("D:\Documents and Settings\Administrator\Desktop\White.png")
PicArray(sender.Tag.X, sender.Tag.Y) = 2 '白棋赋值2
turn = True
Check(sender.Tag.X, sender.Tag.Y, 2)
End If
End If
End Sub
Private Sub Check(ByVal picX As Integer, ByVal picY As Integer, ByVal turn As Integer)
Dim count As Integer = -1
Dim R_X = picX
Dim R_Y = picY
'竖直下边
While (PicArray(picX, picY) = turn)
picY -= 1
count += 1
End While
picX = R_X
picY = R_Y
'竖直上边
While (PicArray(picX, picY) = turn)
picY += 1
count += 1
End While
If count >= 5 Then
MsgBox(turn.ToString() & "胜利")
End If
count = -1
picX = R_X
picY = R_Y
'水平左边
While (PicArray(picX, picY) = turn)
picX -= 1
count += 1
End While
picX = R_X
picY = R_Y
'水平右边
While (PicArray(picX, picY) = turn)
picX += 1
count += 1
End While
If count >= 5 Then
MsgBox(turn.ToString() & "胜利")
End If
count = -1
picX = R_X
picY = R_Y
'左上边斜
While (PicArray(picX, picY) = turn)
picX -= 1
picY -= 1
count += 1
End While
picX = R_X
picY = R_Y
'右下边斜
While (PicArray(picX, picY) = turn)
picX += 1
picY += 1
count += 1
End While
If count >= 5 Then
MsgBox(turn.ToString() & "胜利")
End If
count = -1
picX = R_X
picY = R_Y
'右上边斜
While (PicArray(picX, picY) = turn)
picX += 1
picY -= 1
count += 1
End While
picX = R_X
picY = R_Y
'左下边斜
While (PicArray(picX, picY) = turn)
picX -= 1
picY += 1
count += 1
End While
If count >= 5 Then
MsgBox(turn.ToString() & "胜利")
End If
End Sub
End Class
————来自贴吧"境"客户端

效果图

黑棋白棋的图片要自己做
位置也要改一下
建议做成透明的
大小:25像素*25像素
————来自贴吧"境"客户端

@冷_梦阳 快来发表意见

发现了一个bug 当棋子落在边界上时 检查算法会超出数组界限
为了方便我就加了 Try代码段
我再把代码重新发一遍
Public Class Form1
Friend WithEvents pic As PictureBox
Private turn As Boolean = True
Private PicArray(15, 15) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Table()
End Sub
Private Sub Table()
For row As Integer = 0 To 14 '横排
For col As Integer = 0 To 14 '竖排
pic = New PictureBox() '定义一个图片框
pic.Size = New Size(25, 25) '设置图片框大小
pic.BorderStyle = BorderStyle.FixedSingle '单行边框
pic.Location = New Point(row * 25, col * 25) '设置图片位置
pic.Tag = New Point(row, col) '记录图片自身的坐标
pic.BackColor = Color.LightSteelBlue '颜色
AddHandler DirectCast(pic, PictureBox).Click, AddressOf Pic_Click
Me.Controls.Add(pic) '添加
Next
Next
End Sub
Private Sub Pic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic.Click
If PicArray(sender.Tag.X, sender.Tag.Y) = 0 Then
If turn Then '如果turn=true就黑棋
sender.Image = New Bitmap("E:\编程\Black.png")
PicArray(sender.Tag.X, sender.Tag.Y) = 1 '黑棋赋值1
turn = False
Check(sender.Tag.X, sender.Tag.Y, 1)
Else '反之白棋
sender.Image = New Bitmap("E:\编程\White.png")
PicArray(sender.Tag.X, sender.Tag.Y) = 2 '白棋赋值2
turn = True
Check(sender.Tag.X, sender.Tag.Y, 2)
End If
End If
End Sub
Private Sub Check(ByVal picX As Integer, ByVal picY As Integer, ByVal turn As Integer)
Dim count As Integer = -1
Dim R_X = picX
Dim R_Y = picY
Try
'竖直下边
While (PicArray(picX, picY) = turn)
picY -= 1
count += 1
End While
picX = R_X
picY = R_Y
'竖直上边
While (PicArray(picX, picY) = turn)
picY += 1
count += 1
End While
If count >= 5 Then
If turn = 1 Then
MsgBox("黑棋" & "胜利")
Else
MsgBox("白棋" & "胜利")
End If
End If
count = -1
picX = R_X
picY = R_Y
'水平左边
While (PicArray(picX, picY) = turn)
picX -= 1
count += 1
End While
picX = R_X
picY = R_Y
'水平右边
While (PicArray(picX, picY) = turn)
picX += 1
count += 1
End While
If count >= 5 Then
If turn = 1 Then
MsgBox("黑棋" & "胜利")
Else
MsgBox("白棋" & "胜利")
End If
End If
count = -1
picX = R_X
picY = R_Y
'左上边斜
While (PicArray(picX, picY) = turn)
picX -= 1
picY -= 1
count += 1
End While
picX = R_X
picY = R_Y
'右下边斜
While (PicArray(picX, picY) = turn)
picX += 1
picY += 1
count += 1
End While
If count >= 5 Then
If turn = 1 Then
MsgBox("黑棋" & "胜利")
Else
MsgBox("白棋" & "胜利")
End If
End If
count = -1
picX = R_X
picY = R_Y
'右上边斜
While (PicArray(picX, picY) = turn)
picX += 1
picY -= 1
count += 1
End While
picX = R_X
picY = R_Y
'左下边斜
While (PicArray(picX, picY) = turn)
picX -= 1
picY += 1
count += 1
End While
If count >= 5 Then
If turn = 1 Then
MsgBox("黑棋" & "胜利")
Else
MsgBox("白棋" & "胜利")
End If
End If
Catch
'当棋子落在边界时发生错误
End Try
End Sub
End Class

要创建一个17*17的二维数组 这非常难想啊
Public Class Form1
Friend WithEvents pic As PictureBox
Private turn As Boolean = True
Private PicArray(17, 17) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Table()
End Sub
Private Sub Table()
For row As Integer = 1 To 15 '横排
For col As Integer = 1 To 15 '竖排
pic = New PictureBox() '定义一个图片框
pic.Size = New Size(25, 25) '设置图片框大小
pic.BorderStyle = BorderStyle.FixedSingle '单行边框
pic.Location = New Point(row * 25, col * 25) '设置图片位置
pic.Tag = New Point(row, col) '记录图片自身的坐标
pic.BackColor = Color.LightSteelBlue '颜色
AddHandler DirectCast(pic, PictureBox).Click, AddressOf Pic_Click
Me.Controls.Add(pic) '添加
Next
Next
End Sub
Private Sub Pic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic.Click
If PicArray(sender.Tag.X, sender.Tag.Y) = 0 Then
If turn Then '如果turn=true就黑棋
sender.Image = New Bitmap("E:\编程\Black.png")
PicArray(sender.Tag.X, sender.Tag.Y) = 1 '黑棋赋值1
turn = False
Check(sender.Tag.X, sender.Tag.Y, 1)
Else '反之白棋
sender.Image = New Bitmap("E:\编程\White.png")
PicArray(sender.Tag.X, sender.Tag.Y) = 2 '白棋赋值2
turn = True
Check(sender.Tag.X, sender.Tag.Y, 2)
End If
End If
End Sub
Private Sub Check(ByVal picX As Integer, ByVal picY As Integer, ByVal turn As Integer)
Dim count As Integer = -1
Dim R_X = picX
Dim R_Y = picY
'竖直上边
While (PicArray(picX, picY) = turn)
picY -= 1
count += 1
End While
picX = R_X
picY = R_Y
'竖直下边
While (PicArray(picX, picY) = turn)
picY += 1
count += 1
End While
If count >= 5 Then
If turn = 1 Then
MsgBox("黑棋" & "胜利")
Else
MsgBox("白棋" & "胜利")
End If
End If
count = -1
picX = R_X
picY = R_Y
'水平左边
While (PicArray(picX, picY) = turn)
picX -= 1
count += 1
End While
picX = R_X
picY = R_Y
'水平右边
While (PicArray(picX, picY) = turn)
picX += 1
count += 1
End While
If count >= 5 Then
If turn = 1 Then
MsgBox("黑棋" & "胜利")
Else
MsgBox("白棋" & "胜利")
End If
End If
count = -1
picX = R_X
picY = R_Y
'左上边斜
While (PicArray(picX, picY) = turn)
picX -= 1
picY -= 1
count += 1
End While
picX = R_X
picY = R_Y
'右下边斜
While (PicArray(picX, picY) = turn)
picX += 1
picY += 1
count += 1
End While
If count >= 5 Then
If turn = 1 Then
MsgBox("黑棋" & "胜利")
Else
MsgBox("白棋" & "胜利")
End If
End If
count = -1
picX = R_X
picY = R_Y
'右上边斜
While (PicArray(picX, picY) = turn)
picX += 1
picY -= 1
count += 1
End While
picX = R_X
picY = R_Y
'左下边斜
While (PicArray(picX, picY) = turn)
picX -= 1
picY += 1
count += 1
End While
If count >= 5 Then
If turn = 1 Then
MsgBox("黑棋" & "胜利")
Else
MsgBox("白棋" & "胜利")
End If
End If
End Sub
End Class

@末日V4 @《顾名思义》 @haohaoxuexisjl 关于末日v4的代码我做出来了…但是从新开始，悔棋，黑或白胜利后从新开始怎么做…

'详细注释
Public Class Form1
Friend WithEvents pic As PictureBox '声明一个带有事件的PictureBox
Private turn As Boolean = True '声明turn表示当前是哪一个回合
Private PicArray(17, 17) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Table() '调用初始化布局
End Sub
Private Sub Table() '初始化布局
For row As Integer = 1 To 15 '横排循环
For col As Integer = 1 To 15 '竖排循环
pic = New PictureBox() '实例化pic
pic.Size = New Size(25, 25) '设置图片框大小
pic.BorderStyle = BorderStyle.FixedSingle '单行边框
pic.Location = New Point(row * 25, col * 25) '设置图片位置
pic.Tag = New Point(row, col) '记录图片自身的坐标
pic.BackColor = Color.LightSteelBlue '设置背景颜色
AddHandler DirectCast(pic, PictureBox).Click, AddressOf Pic_Click '绑定事件
Me.Controls.Add(pic) '添加到Form1
Next
Next
End Sub
Private Sub Pic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic.Click 'pic的单击事件
'senger参数为发起事件者(控件)
If PicArray(sender.Tag.X, sender.Tag.Y) = 0 Then '如果数组中这个位置是空的(0)
If turn Then '如果turn=true就黑棋
sender.Image = New Bitmap("E:\编程\Black.png") '把sender的显示的图片设为黑棋图片
PicArray(sender.Tag.X, sender.Tag.Y) = 1 '黑棋赋值1
turn = False '下一次该白棋
Check(sender.Tag.X, sender.Tag.Y, 1) '检查黑棋是否连成5子
Else '反之白棋
sender.Image = New Bitmap("E:\编程\White.png") '把sender的显示的图片设为黑棋图片
PicArray(sender.Tag.X, sender.Tag.Y) = 2 '白棋赋值2
turn = True '下一次是黑棋
Check(sender.Tag.X, sender.Tag.Y, 2) '检查白棋是否连成5子
End If
End If
End Sub
Private Sub Check(ByVal picX As Integer, ByVal picY As Integer, ByVal turn As Integer) '检查算法
Dim count As Integer = -1 '这里储存连成棋子的个数
Dim R_X = picX '这里备份picX
Dim R_Y = picY '这里备份picY
'竖直上边
While (PicArray(picX, picY) = turn) '循环 往上面检测是否有和它相同颜色的棋子
picY -= 1 '纵坐标-1 用来传给接下来的循环
count += 1 '连成的棋子个数+1
End While
picX = R_X '还原备份
picY = R_Y '还原备份
'竖直下边
While (PicArray(picX, picY) = turn) '循环 往下面检测是否有和它相同颜色的棋子
picY += 1 '纵坐标+1 用来传给接下来的循环
count += 1 '连成的棋子个数+1
End While
If count >= 5 Then '当连成的棋子>=5
If turn = 1 Then '如果该黑棋就黑棋赢
MsgBox("黑棋" & "胜利")
Else
MsgBox("白棋" & "胜利") '如果该白棋就白棋赢
End If
End If
count = -1 '还原备份
picX = R_X
picY = R_Y
'水平左边
While (PicArray(picX, picY) = turn) '循环 往左面检测是否有和它相同颜色的棋子
picX -= 1 '横坐标-1 用来传给接下来的循环
count += 1 '连成的棋子个数+1
End While
picX = R_X '还原备份
picY = R_Y
'水平右边
While (PicArray(picX, picY) = turn) '循环 往右面检测是否有和它相同颜色的棋子
picX += 1 '横坐标+1 用来传给接下来的循环
count += 1
End While
If count >= 5 Then '同上
If turn = 1 Then
MsgBox("黑棋" & "胜利")
Else
MsgBox("白棋" & "胜利")
End If
End If
count = -1 '还原备份
picX = R_X
picY = R_Y
'左上边斜
While (PicArray(picX, picY) = turn) '循环 往左上方向检测是否有和它相同颜色的棋子
picX -= 1 '横坐标-1 用来传给接下来的循环
picY -= 1 '纵坐标-1 用来传给接下来的循环
count += 1
End While
picX = R_X
picY = R_Y
'右下边斜
While (PicArray(picX, picY) = turn) '循环 往右下方向检测是否有和它相同颜色的棋子
picX += 1 '横坐标+1 用来传给接下来的循环
picY += 1 '纵坐标+1 用来传给接下来的循环
count += 1
End While
If count >= 5 Then
If turn = 1 Then
MsgBox("黑棋" & "胜利")
Else
MsgBox("白棋" & "胜利")
End If
End If
count = -1 '还原备份
picX = R_X
picY = R_Y
'右上边斜
While (PicArray(picX, picY) = turn) '循环 往右上方向检测是否有和它相同颜色的棋子
picX += 1 '横坐标+1 用来传给接下来的循环
picY -= 1 '纵坐标-1 用来传给接下来的循环
count += 1
End While
picX = R_X
picY = R_Y
'左下边斜
While (PicArray(picX, picY) = turn) '循环 往左下方向检测是否有和它相同颜色的棋子
picX -= 1 '横坐标-1 用来传给接下来的循环
picY += 1 '纵坐标+1 用来传给接下来的循环
count += 1
End While
If count >= 5 Then
If turn = 1 Then
MsgBox("黑棋" & "胜利")
Else
MsgBox("白棋" & "胜利")
End If
End If
End Sub
End Class

那个网格要怎么做出来呢