高能 | VB编程开发的五子棋游戏!

Posted 跟我学VB

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了高能 | VB编程开发的五子棋游戏!相关的知识,希望对你有一定的参考价值。

五子棋游戏开发

古语有云,棋如人生。伴随着悠扬婉转的旋律,两人在棋盘上对弈,不断思考,运筹帷幄,即增长了智慧、修炼了身心,也陶冶了情操。


今天,我们就共同来学习如何用VB编程开发五子棋游戏。


程序界面如下图


准备工作

首先添加完成功能而必须用到的控件,然后分析逻辑,写代码实现。

我们用到了菜单编辑器、标签、棋盘表格我们使用图形方法来绘制完成。

生成棋盘表格


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


菜单编辑器使用快捷键Ctrl+E,同时按即可弹出。根据功能需要,添加相应的菜单标题、名称,然后点击确定即可。


高能 | VB编程开发的五子棋游戏!

五子棋游戏实现完整代码

1

实现代码


Option Explicit

Dim blackturn As Boolean    '是否轮到黑方下子

Dim whiteturn As Boolean    '是否轮到黑方下子

Dim qipan(0 To 15, 0 To 15) As Integer '用二维数组表示棋盘

Dim inti As Integer     '数组元素

Dim intj As Integer

Dim boolF As Boolean     '表示棋局状态:进行/结束


Private Sub begin_Click() '重新开始

Me.Cls '清除窗口

For inti = 0 To 15

    For intj = 0 To 15

        qipan(inti, intj) = 0 '数组清零

    Next

Next

Form_Load '重画棋盘

End Sub


Private Sub exit_Click() '退出

Unload Me

Set Form1 = Nothing

End Sub


Private Sub Form_Load()

Form_Paint '画棋盘

blackturn = True    '黑方先下

boolF = True   '开始

Label1.Caption = "黑方先下"

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 boolF = 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 qipan(inti, intj) <> 0 Then

    Exit Sub

End If


'画子(圆)

If blackturn = True Then

    '黑色

    Me.FillColor = RGB(0, 0, 0)

    qipan(inti, intj) = 1   '黑子赋1

    Label1.Caption = "白方"

Else

    '白色

    Me.FillColor = RGB(255, 255, 255)

    qipan(inti, intj) = 2   '白子赋2

    Label1.Caption = "黑方"

End If

Me.FillStyle = 0   '不可缺

Me.Circle (intx, inty), 8


'判断是否有五子连线

Call IfFiveLine

'轮流

blackturn = Not blackturn  '取反

End Sub

Private Sub IfFiveLine()   '判断是否有五子连线

Dim strwho As String        '下子方名称


If qipan(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 & "胜!"

    boolF = 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 qipan(i, j) <> qipan(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 qipan(i, j) <> qipan(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


高能 | VB编程开发的五子棋游戏!

至此,五子棋游戏开发完成。主要是逻辑要明确、思路要清晰。同时要对可能出现的各种问题进行预判,这样就可以使得我们的游戏运行状态良好,获得好的体验。


高能 | VB编程开发的五子棋游戏!
更多VB游戏


高能 | VB编程开发的五子棋游戏!




长按上图,关注跟我学VB公众平台


以上是关于高能 | VB编程开发的五子棋游戏!的主要内容,如果未能解决你的问题,请参考以下文章

结对编程-五子棋游戏-开发过程

如何用VB编程开发纸牌接龙游戏?

益智 | 用VB编程开发的围棋游戏!

结对编程项目五子棋-结对项目总结

结对-结对编程项目作业名称-结对项目总结

课后作业-结对编程项目总结