黑白棋V1.0 源程序

最新推荐文章于 2021-01-24 22:07:04 发布
最新推荐文章于 2021-01-24 22:07:04 发布
阅读量1.6k 收藏 2
点赞数
CC 4.0 BY-SA版权
分类专栏： VB.net 文章标签： integer button function string vb.net go
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/xiamin/article/details/2040228

我开发的黑白棋V1.0

对游戏比较感兴趣，闲则没事开发用vb.net练练.

                         黑白棋V1.0 源程序
 作者：夏敏捷  xmj@zzti.edu.cn
                                            转载时请注明作者和出处。未经许可，请勿用于商业用途
Imports  System.Math
 Imports  Microsoft.VisualBasic.Strings
 Public   Class Form1
    Private x1 As Integer
    Private y1 As Integer
    Private Map(9, 9) As Integer
    Private MyColor As Integer
    Dim Info(20) As String
    Private Sub Show_Can_Position()
        Dim i, j As Integer
        Dim g As Graphics = Me.PictureBox1.CreateGraphics()
        Dim bitmap As New Bitmap("Info2.png")
        Dim n As Integer = 0
        For i = 1 To 8
            For j = 1 To 8
                If Map(i, j) = 0 And Can_go(i, j) Then
                    Info(n) = i & "|" & j
                    n = n + 1
                    g.DrawImage(bitmap, (i - 1) * 45 + 26, (j - 1) * 45 + 26, 30, 30)
                End If
            Next
        Next
    End Sub
    Private Function Show_Can_Num() As Integer
        Dim i, j As Integer
        Dim n As Integer = 0
        For i = 1 To 8
            For j = 1 To 8
                If Can_go(i, j) Then
                    Info(n) = i & "|" & j
                    n = n + 1
                End If
            Next
        Next
        Return n
    End Function
    Private Sub Cls_Can_Position()
        Dim n As Integer
        Dim a, b As String
        Dim x, y As Integer
        Dim s As String
        Dim g As Graphics = Me.PictureBox1.CreateGraphics()
        Dim bitmap As New Bitmap("BackColor.png")
        For n = 0 To 20
            s = Info(n)
            If s = "" Then Exit For
            a = s.Substring(0, 1)
            b = s.Substring(InStr(s, "|"), 1)
            x = Convert.ToInt16(a)
            y = Convert.ToInt16(b)
            If Map(x, y) = 0 Then
                g.DrawImage(bitmap, (x - 1) * 45 + 26, (y - 1) * 45 + 26, 30, 30)
            End If
            'Me.Text = CInt(x) & y
        Next
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Show_Can_Position()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Cls_Can_Position()
    End Sub
    Private Function Can_go(ByVal x1 As Integer, ByVal y1 As Integer) As Boolean
        Dim x, y As Integer
        Dim flag As Boolean
        '(1)
        flag = False
        x = x1
        y = y1
        For x = x1 - 1 To 1 Step -1
            If Map(x, y) = 0 Then Exit For
            If Ismychess(x, y1) Then
                flag = True
                Exit For
            End If
        Next
        If flag = True And Abs(x - x1) > 1 Then Return True

        '(2)
        flag = False
        x = x1
        y = y1
        For x = x1 - 1 To 1 Step -1
            y = y - 1
            If Map(x, y) = 0 Then Exit For
            If y < 1 Then
                Exit For
            End If
            If Ismychess(x, y) Then
                flag = True
                Exit For
            End If
        Next
        If flag = True And Abs(x - x1) > 1 Then Return True

        '(3)
        flag = False
        x = x1
        y = y1
        For y = y1 - 1 To 1 Step -1
            If Map(x, y) = 0 Then Exit For
            If Ismychess(x1, y) Then
                flag = True
                Exit For
            End If
        Next
        If flag = True And Abs(y - y1) > 1 Then Return True

        '(4)
        flag = False
        x = x1
        y = y1
        For x = x1 + 1 To 8
            y = y - 1
            If Map(x, y) = 0 Then Exit For
            If y < 1 Then
                Exit For
            End If
            If Ismychess(x, y) Then
                flag = True
                Exit For
            End If
        Next
        If flag = True And Abs(x - x1) > 1 Then Return True

        '(5)
        flag = False
        x = x1
        y = y1
        For x = x1 + 1 To 8
            If Map(x, y) = 0 Then Exit For
            If Ismychess(x, y1) Then
                flag = True
                Exit For
            End If
        Next
        If flag = True And Abs(x - x1) > 1 Then Return True

        '(6)
        flag = False
        x = x1
        y = y1
        For x = x1 + 1 To 8
            y = y + 1
            If Map(x, y) = 0 Then Exit For
            If y > 8 Then
                Exit For
            End If
            If Ismychess(x, y) Then
                flag = True
                Exit For
            End If
        Next
        If flag = True And Abs(x - x1) > 1 Then Return True

        '(7)
        flag = False
        x = x1
        y = y1
        For y = y1 + 1 To 8
            If Map(x, y) = 0 Then Exit For
            If Ismychess(x1, y) Then
                flag = True
                Exit For
            End If
        Next
        If flag = True And Abs(y - y1) > 1 Then Return True

        '(8)
        flag = False
        x = x1
        y = y1
        For x = x1 - 1 To 1 Step -1
            y = y + 1
            If Map(x, y) = 0 Then Exit For
            If y > 8 Then
                Exit For
            End If
            If Ismychess(x, y) Then
                flag = True
                Exit For
            End If
        Next
        If flag = True And Abs(x - x1) > 1 Then Return True
        Return False
    End Function
    Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        Dim x, y As Integer
        Dim flag As Boolean
        x1 = (e.X - 22)  45 + 1
        y1 = (e.Y - 22)  45 + 1
        If Not Can_go(x1, y1) Then
            ToolStripStatusLabel1.Text = "此处不能走棋子"
            Exit Sub
        End If
        Me.Text = e.X & "  " & e.Y & "  " & x1 & "  " & y1
        '(1)
        flag = False
        x = x1
        y = y1
        For x = x1 - 1 To 1 Step -1
            If Map(x, y) = 0 Then Exit For
            If Ismychess(x, y1) Then
                flag = True
                Exit For
            End If
        Next
        If flag = True Then Reverse(x, y)

        '(2)
        flag = False
        x = x1
        y = y1
        For x = x1 - 1 To 1 Step -1
            y = y - 1
            If Map(x, y) = 0 Then Exit For
            If y < 1 Then
                Exit For
            End If
            If Ismychess(x, y) Then
                flag = True
                Exit For
            End If
        Next
        If flag = True Then Reverse(x, y)

        '(3)
        flag = False
        x = x1
        y = y1
        For y = y1 - 1 To 1 Step -1
            If Map(x, y) = 0 Then Exit For
            If Ismychess(x1, y) Then
                flag = True
                Exit For
            End If
        Next
        If flag = True Then Reverse(x, y)

        '(4)
        flag = False
        x = x1
        y = y1
        For x = x1 + 1 To 8
            y = y - 1
            If Map(x, y) = 0 Then Exit For
            If y < 1 Then
                Exit For
            End If
            If Ismychess(x, y) Then
                flag = True
                Exit For
            End If
        Next
        If flag = True Then Reverse(x, y)

        '(5)
        flag = False
        x = x1
        y = y1
        For x = x1 + 1 To 8
            If Map(x, y) = 0 Then Exit For
            If Ismychess(x, y1) Then
                flag = True
                Exit For
            End If
        Next
        If flag = True Then Reverse(x, y)
        '(6)
        flag = False
        x = x1
        y = y1
        For x = x1 + 1 To 8
            y = y + 1
            If Map(x, y) = 0 Then Exit For
            If y > 8 Then
                Exit For
            End If
            If Ismychess(x, y) Then
                flag = True
                Exit For
            End If
        Next
        If flag = True Then Reverse(x, y)

        '(7)
        flag = False
        x = x1
        y = y1
        For y = y1 + 1 To 8
            If Map(x, y) = 0 Then Exit For
            If Ismychess(x1, y) Then
                flag = True
                Exit For
            End If
        Next
        If flag = True Then Reverse(x, y)

        '(8)
        flag = False
        x = x1
        y = y1
        For x = x1 - 1 To 1 Step -1
            y = y + 1
            If Map(x, y) = 0 Then Exit For
            If y > 8 Then
                Exit For
            End If
            If Ismychess(x, y) Then
                flag = True
                Exit For
            End If
        Next
        If flag = True Then Reverse(x, y)
        '清除提示
        Cls_Can_Position()
        '该对方走棋
        If MyColor = 1 Then
            MyColor = 2
            ToolStripStatusLabel1.Text = "白色棋子走"

        Else
            MyColor = 1
            ToolStripStatusLabel1.Text = "黑色棋子走"
        End If
        '显示提示
        Show_Can_Position()
    End Sub
    Private Sub FanQi(ByVal x As Integer, ByVal y As Integer)
        Dim g As Graphics = Me.PictureBox1.CreateGraphics()
        Dim bitmap As New Bitmap("WhiteStone.png")
        '(x1,y1)处原色处理
        If x = x1 And y = y1 Then
            If MyColor = 2 Then
                Map(x, y) = 2
                g.DrawImage(bitmap, (x - 1) * 45 + 22, (y - 1) * 45 + 22, 45, 45)
            End If
            If MyColor = 1 Then
                Map(x, y) = 1
                bitmap = New Bitmap("BlackStone.png")
                g.DrawImage(bitmap, (x - 1) * 45 + 22, (y - 1) * 45 + 22, 45, 45)
            End If
            Exit Sub
        End If
        'If Map(x, y) = 0 Then
        '    Exit Sub
        'End If
        '1黑色 2白色
        If Map(x, y) = 1 Then
            Map(x, y) = 2
            g.DrawImage(bitmap, (x - 1) * 45 + 22, (y - 1) * 45 + 22, 45, 45)
        Else
            Map(x, y) = 1
            bitmap = New Bitmap("BlackStone.png")
            g.DrawImage(bitmap, (x - 1) * 45 + 22, (y - 1) * 45 + 22, 45, 45)
        End If
        ListBox1.Items.Add(x & "  " & y)
    End Sub
    Private Sub Reverse(ByVal x As Integer, ByVal y As Integer)
        Dim a, b, i As Integer
        If (x - x1) * (y1 - y) = 0 Then '直线方向翻转棋子
            '直线x方向
            If x1 <> x Then
                If Abs(x1 - x) = 1 Then
                    Exit Sub
                End If
                If x1 < x Then
                    a = x1 : b = x
                End If
                If x1 > x Then
                    a = x : b = x1
                End If
                For i = a To b
                    If i <> x Then FanQi(i, y1) '(x,y)处不需要翻转
                Next
            End If
            '直线y方向
            If y1 <> y Then
                If Abs(y1 - y) = 1 Then
                    Exit Sub
                End If
                If y1 < y Then
                    a = y1 : b = y
                End If
                If y1 > y Then
                    a = y : b = y1
                End If
                For i = a To b
                    If i <> y Then FanQi(x1, i) '(x,y)处不需要翻转
                    'FanQi(x1, i)
                Next
            End If
        Else '斜线方向翻转棋子
            If (x - x1) = (y - y1) Then
                '45度正斜线
                If Abs(x1 - x) = 1 Then
                    Exit Sub
                End If
                If x1 < x Then
                    a = x1 : b = x
                    y = y1
                End If
                If x1 > x Then
                    a = x : b = x1
                End If
                For i = a To b
                    If i <> x Then FanQi(i, y) '(x,y)处不需要翻转
                    y = y + 1
                    'FanQi(i, i)
                Next
            End If
            If (x - x1) = -(y - y1) Then
                '45度反斜线
                If Abs(x1 - x) = 1 Then
                    Exit Sub
                End If
                If x1 < x Then
                    a = x1 : b = x
                    y = y1
                End If
                If x1 > x Then
                    a = x : b = x1
                End If
                For i = a To b
                    If i <> x Then FanQi(i, y) '(x,y)处不需要翻转
                    y = y - 1
                    'FanQi(i, 9 - i)
                Next
            End If
        End If
    End Sub
    Private Function Ismychess(ByVal x As Integer, ByVal y As Integer) As Boolean
        If Map(x, y) = MyColor Then
            Return True
        Else
            Return False
        End If
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Map(4, 4) = 2   '0无子 1黑色 2白色
        Map(5, 5) = 2
        Map(4, 5) = 1
        Map(5, 4) = 1
        MyColor = 1    '自己棋子颜色--黑色
        ToolStripStatusLabel1.Text = "黑色棋子走"
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, y As Integer
        Dim g As Graphics = Me.PictureBox1.CreateGraphics()
        Dim bitmap As New Bitmap("WhiteStone.png")
        x = 4 : y = 4
        g.DrawImage(bitmap, (x - 1) * 45 + 22, (y - 1) * 45 + 22, 45, 45)
        x = 5 : y = 5
        g.DrawImage(bitmap, (x - 1) * 45 + 22, (y - 1) * 45 + 22, 45, 45)
        bitmap = New Bitmap("BlackStone.png")
        x = 5 : y = 4
        g.DrawImage(bitmap, (x - 1) * 45 + 22, (y - 1) * 45 + 22, 45, 45)
        x = 4 : y = 5
        g.DrawImage(bitmap, (x - 1) * 45 + 22, (y - 1) * 45 + 22, 45, 45)
        Me.Text = "begin"
        Show_Can_Position()
    End Sub
End Class

 

黑白棋（aphabeta剪枝算法的应用）带界面
Mosen
10-10 8101
人工智能课上学了一些搜索算法以及最近学了对弈学在棋类中的应用，认识到了alpha-beta剪枝算法，实现一个简单的黑白棋的程序。源码 链接：http://pan.baidu.com/s/1i5K41z3 密码：6i5z 黑白棋： 又叫翻转棋（Reversi）、奥赛罗棋（Othello）、苹果棋或反棋（Anti reversi）。黑白棋在西方和日本很流行。游戏通过相互翻转对方的棋子，最后以棋
黑白棋判定稳定子的算法
u012501320的专栏
06-17 5797
怎样用编程的·方式判断一个棋子是否稳定呢当一个棋子的
vb 黑白棋游戏
04-20
这是使用vb编程的游戏，黑白棋，简单易懂
VB做的黑白棋
12-27
用VB做的小游戏，界面很简单都是用控件做的希望大家喜欢
黑白棋人机对战，VB游戏源码下载
05-07
摘要:VB源码,游戏编程,黑白棋,VB游戏源码　　黑白棋人机对战，VB游戏源码下载，游戏规则菜单单击事件：黑白棋游戏是一种益智游戏，但在棋盘上下棋非常麻烦，因为要不停地将黑白两棋互换(日本人想出了一个好办法：将棋子正反面涂为异色)，于是我用basic写了这么一个小程序，以方便大家。 　　游戏规则非常简单：在一个棋盘上先放上四枚棋子，黑白双方轮流下棋，每一子须下在棋盘的空白处且能“吃掉”对方至少一子，否则自己不能下而由对方继续下；“吃掉”对方的棋子是指：以落点为中心，向左看去经过几个对方的棋子后又有自己的棋子(中间不能有空格)，则这几个对方的棋子就被换成我方的棋子，即被吃掉了，对方被换掉几子便是
minmax 阿尔法贝塔 树搜索
northeastsqure的专栏
10-22 952
这个算法目的是：在博弈过程中（下棋），我下一步希望得分最高，然后轮到对方，希望棋局得分尽可能低，即对他更有利。 原网页讲的比较好 http://web.cs.ucla.edu/~rosen/161/notes/alphabeta.html http://blog.csdn.net/baixiaozhe/article/details/51872495
C++ 黑白棋AI minimax+alphabeta剪枝
weixin_30408675的博客
12-02 2013
没事写着玩玩，通过debian上的黑白棋测试，搜了10层，打hard应该问题不大 #include <cstdio> #include <cstring> using namespace std; template <typename T> T min(const T &x, const T &y) { return x < y ? x...
黑白棋 V1.0 试用网络版源代码.zip
06-19
这个压缩包文件"黑白棋 V1.0 试用网络版源代码.zip"包含了实现黑白棋网络对战功能的源代码，适合对编程和游戏开发有兴趣的IT专业人士进行学习和研究。以下是对这个源代码包中可能包含的关键知识点的详细说明： 1. *...
黑白棋 V1.0 试用网络版源代码
05-21
《黑白棋 V1.0 试用网络版源代码》是一个专为学习和研究设计的项目，它基于经典的黑白棋游戏，并添加了网络对战功能。这个程序利用了C++编程语言，结合了Microsoft Visual C++（简称VC）的开发环境，通过Winsock库...
自制黑白棋游戏：初级至高级算法详解
压缩包子文件的文件名称列表中只有一个文件名："黑白棋自制版V1.0"。这表明作者可能提供了一个完整的Java程序包，用于运行和体验这个自制版本的黑白棋游戏。这个程序包可能包含所有实现黑白棋算法的源代码、资源文件...
网络版黑白棋游戏的开源代码分析
从文件名称“黑白棋 V1.0 试用网络版源代码”中，我们可以挖掘以下知识： 1. 版本号：提到的是V1.0版本，表明这是该网络版黑白棋的初始发布版本，可能意味着该版本的功能相对基础，可能后续会有功能增强或修复bug的...
黑白棋 C#版本
qq_36382679的博客
01-24 891
using System; using System.Drawing; using System.Threading; using System.Windows.Forms; namespace WindowsApplication1 { public partial class Form1 : Form { private int x1; //落子位置 private int y1; private int[,] Ma
java中 g.drawImage()方法如何使用
热门推荐
evilcry2012的专栏
02-09 2万+
java中 g.drawImage()方法如何使用 2013-04-08 09:04contact999 | 分类：JAVA相关 | 浏览1921次 File file=new File("d:\\img\\5.jpg"); BufferedImage bi=ImageIO.read(file); Graphics g=bi.getGraphics(); g.drawImage(i
黑白棋代码——完结版
anastasia0204的专栏
04-25 2477
黑白棋的底层决策算法
一个JavaScript写的黑白棋AI
a65783305的博客
11-23 177
原文:http://blog.csdn.net/lanphaday/archive/2010/11/22/6026315.aspx 赖勇浩（http://laiyonghao.com） 首先，这个代码不是我写的，但注释是我加上去的。作者是shaofei cheng，他的网站：http://shaofei.name 第二，目前这个代码只是使用了 alpha-beta 剪枝，棋力...
SDL 实现五子棋 GUI (二)
CodingToro
08-28 3698
好了, 经过之前简单的介绍, 我们就开始做一个 SDL 下的五子棋 GUI 吧! 首先还是做一些简单的介绍(关于什么是 SDL, 上一篇已经给出官方网站): 在 SDL 中, 制作的思路就是创建出 GUI 所需要的各个组件(图层), 在呈现的时候从最下面的一层一次"贴"到屏幕上面, 用户就能看到一个完整的 GUI 界面了. 同时使用主循环和相应的函数接收消息并作出响应, 每次循环和一些操作
简易黑白五子棋v1.0.2.1：策略型益智游戏
资源摘要信息:"简易黑白五子棋v1.0.2.1" ### 知识点 #### 五子棋游戏概述 - 五子棋是一种两人对弈的纯策略型棋类游戏。 - 游戏棋具与围棋通用，但规则和玩法不同。 - 起源于中国，是中国汉族传统的黑白棋种之一。 ...
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值